sigfit [WP]: produce debug output

confirmed: program passes correct header date to libdatrwxx; file contains
wrong value

src/ts/wf/sigfit.cc

@@ -60,6 +60,7 @@
 #include <tfxx/rangelist.h>
 #include <tfxx/rangestring.h>
 #include <tfxx/error.h>
+#include <tfxx/misc.h>
 #include <datrwxx/readany.h>
 #include <datrwxx/writeany.h>
 #include <tsxx/tsxx.h>
@@ -646,7 +647,7 @@ int main(int iargc, char* argv[])
     }
     std::ofstream ofs(opt.residualname.c_str(),
                         datrw::oanystream::openmode(opt.otype));
-    datrw::oanystream os(ofs, opt.otype);
+    datrw::oanystream os(ofs, opt.otype, opt.debug);
     if (os.handlesfilefree())
     {
       sff::FREE residualFileFree;
@@ -658,8 +659,17 @@ int main(int iargc, char* argv[])
       }
       os << residualFileFree;
     }
+    TFXX_debug(opt.debug, "main()", "write trace signal\n  " <<
+               TFXX_value(signal.header.channel) << "\n  " <<
+               TFXX_value(signal.header.date.timestring()));
     os << signal;
+    TFXX_debug(opt.debug, "main()", "write trace synthetics\n  " <<
+               TFXX_value(synthetics.header.channel) << "\n  " <<
+               TFXX_value(synthetics.header.date.timestring()));
     os << synthetics;
+    TFXX_debug(opt.debug, "main()", "write trace residual\n  " <<
+               TFXX_value(residual.header.channel) << "\n  " <<
+               TFXX_value(residual.header.date.timestring()));
     os << residual;
     for (Tbundlevec::const_iterator i=bundlevec.begin(); 
          i!=bundlevec.end(); i++)