ts/wf [WP]: let programs explicitly express type conversion

src/ts/wf/autocorr.cc

@@ -177,7 +177,8 @@ int main(int iargc, char* argv[])
       sff::INFO info;
       is >> info;
       if (opt.verbose) { cout << data.header.line() << endl; }
-      Tts result(ts::correlate(data,data));
+      Tts result;
+      result=ts::correlate(data,data);
       result /= Tts::Tvalue(data.size());
       result.header=data.header;
       result.header.auxid="corr";

src/ts/wf/noisymize.cc

@@ -368,21 +368,20 @@ int main(int iargc, char* argv[])
   if (opt.verbose) 
   { cout << "prepare output data" << endl; }
   typedef ts::sff::SFFTimeSeries<Tseries> Tsffseries;
-  Tsffseries Zoutdata(Zseries), Routdata(Rseries);
   Tsffseries::Theader Zheader(Zindata[0].header);
   Tsffseries::Theader Rheader(Rindata[0].header);
 
   sff::WID2 wid2line=Zheader.wid2();
-  wid2line.nsamples=Zoutdata.size();
+  wid2line.nsamples=Zseries.size();
   wid2line.channel="Z";
   Zheader.wid2(wid2line);
-  Zoutdata.header=Zheader;
+  Tsffseries Zoutdata(Zseries, Zheader);;
 
   wid2line=Rheader.wid2();
-  wid2line.nsamples=Routdata.size();
+  wid2line.nsamples=Rseries.size();
   wid2line.channel="R";
   Rheader.wid2(wid2line);
-  Routdata.header=Rheader;
+  Tsffseries Routdata(Rseries, Rheader);;
 
   {
     if (opt.verbose) { cout << "open output file " << filename.Zout << endl; }

src/ts/wf/soutifu.cc

@@ -313,9 +313,9 @@ int main(int iargc, char* argv[])
 
     // create a time series to be used in the output of convolved synthetics
     // based on the input synthetics; copy trace header
-    Tfile::Ttracevector::Ttimeseries cstseries(rdtseries.shape());
-    cstseries.settraceindex(sdtseries.traceindex());
-    cstseries.header=sdtseries.header;
+    Tfile::Ttracevector::Ttimeseries 
+      cstseries(Tfile::Ttracevector::Ttimeseries::Tseries(sdtseries.shape()),
+                sdtseries.header, sdtseries.traceindex());
 
     // place reference in a waveform triple
     stfinv::WaveformTriple tracetriple;
@@ -386,7 +386,9 @@ int main(int iargc, char* argv[])
     // catch values for stf waveform
     if (itrace==0)
     {
-      Tfile::Ttracevector::Ttimeseries stftseries(tracetriple.data.shape()); 
+      Tfile::Ttracevector::Ttimeseries stftseries;
+      stftseries
+        =Tfile::Ttracevector::Ttimeseries::Tseries(tracetriple.data.shape()); 
 
       stfwaveform.sampling.dt=tracetriple.header.sampling.dt;
       stfwaveform.sampling.n=tracetriple.header.sampling.n;
@@ -437,9 +439,9 @@ int main(int iargc, char* argv[])
 
       // create a time series to be used in the output of convolved synthetics
       // based on the input synthetics; copy trace header
-      Tfile::Ttracevector::Ttimeseries cstseries(sdtseries.shape());
-      cstseries.settraceindex(sdtseries.traceindex());
-      cstseries.header=sdtseries.header;
+      Tfile::Ttracevector::Ttimeseries 
+        cstseries(Tfile::Ttracevector::Ttimeseries::Tseries(sdtseries.shape()),
+                 sdtseries.header, sdtseries.traceindex());
 
       // place reference in a waveform triple
       stfinv::WaveformPair tracepair;