writetraceheader()

void datrw::oasciistream::writetraceheader ( const unsigned int &  n, const char *  type  )

private

Definition at line 174 of file oasciistream.cc.

References DATRW_debug, FOUT, datrw::odatstream::free(), datrw::odatstream::hasfree(), datrw::odatstream::hasinfo(), datrw::odatstream::info(), datrw::ascii::keyauxid, datrw::ascii::keycalib, datrw::ascii::keycalper, datrw::ascii::keychannel, datrw::ascii::keydata, datrw::ascii::keydate, datrw::ascii::keydt, datrw::ascii::keyhang, datrw::ascii::keyinstype, datrw::ascii::keynsamples, datrw::ascii::keynstacks, datrw::ascii::keyRECVCS, datrw::ascii::keyRECVX, datrw::ascii::keyRECVY, datrw::ascii::keyRECVZ, datrw::ascii::keystation, datrw::ascii::keyvang, datrw::odatstream::Mdebug, POUT, and datrw::odatstream::wid2().

Referenced by writetrace().

  {
    DATRW_debug(Mdebug, "oasciistream::writetraceheader",
                        "entered function");
    ::sff::WID2 wid2=this->wid2();
    wid2.nsamples=n;
    POUT( ascii::keydate, wid2.date.hierarchicalstring() );
    POUT( ascii::keydt, wid2.dt );
    POUT( ascii::keynsamples, wid2.nsamples );
    POUT( ascii::keystation, wid2.station );
    POUT( ascii::keychannel, wid2.channel );
    POUT( ascii::keyauxid, wid2.auxid );
    POUT( ascii::keyinstype, wid2.instype );
    POUT( ascii::keycalib, wid2.calib );
    POUT( ascii::keycalper, wid2.calper );
    POUT( ascii::keyhang, wid2.hang );
    POUT( ascii::keyvang, wid2.vang );
    DATRW_debug(Mdebug, "oasciistream::writetraceheader",
                        "WID2 written");
    if (this->hasinfo())
    {
      ::sff::INFO info=this->info();
      POUT( ascii::keynstacks, info.nstacks );
      POUT( ascii::keyRECVX, info.cx );
      POUT( ascii::keyRECVY, info.cy );
      POUT( ascii::keyRECVZ, info.cz );
      POUT( ascii::keyRECVCS, ::sff::coosysID(info.cs) );
    }
    DATRW_debug(Mdebug, "oasciistream::writetraceheader",
                        "INFO written if present");
    if (this->hasfree())
    {
      const ::sff::FREE& free=this->free();
      ::sff::FREE::Tlines::const_iterator I=free.lines.begin();
      while (I!=free.lines.end())
      {
        FOUT( *I );
        ++I;
      }
    }
    DATRW_debug(Mdebug, "oasciistream::writetraceheader",
                        "trace FREE written if present");
    POUT( ascii::keydata, type);
    DATRW_debug(Mdebug, "oasciistream::writetraceheader",
                        "finished");
  } // void oasciistream::writetraceheader(const unsigned int& n)

Here is the call graph for this function:

Here is the caller graph for this function: