sff_wtracei__()

int sff_wtracei__	(	integer *	lu,
		char *	wid2line,
		integer *	nsamp,
		real *	fdata,
		integer *	idata,
		logical *	last,
		char *	cs,
		real *	c1,
		real *	c2,
		real *	c3,
		integer *	nstack,
		integer *	ierr,
		ftnlen	wid2line_len,
		ftnlen	cs_len
	)

Write one trace of data with INFO line.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_WTraceI(lu, 
     &                   wid2line, nsamp, fdata, idata, last, 
     &                   cs, c1, c2, c3, nstack, ierr)
c
c Write one data block starting with DAST line.
c Write also  INFO line.
c The File will be closed after writing the last trace.
c 
c input
c   lu              logical file unit
c   wid2line        valid WID2 line
c   nsamp           number of samples
c   fdata           data array
c   last            must be true is the trace to be written is the
c                   last one in this file
c   cs              coordinate system
c   c1, c2, c3      receiver coordinates
c   nstack          number of stacks
c ouput:
c   ierr            error status (ok: ierr=0)
c
c workspace:
c   idata           fdata will be converted to idata using sff_f2i
c                   (both array may be in same memory space - see
c                   comments on sff_f2i)
c
c----------------------------------------------------------------------

Definition at line 81 of file fapid_sff_wtracei.cc.

References fapidxx::OFileUnits::close(), fapidxx::ostreammanager, and fapidxx::WID2container::wid2.

{
  int retval=0;
  *ierr=0;
  try {
    datrw::oanystream &os=ostreammanager(static_cast<int>(*lu));
    WID2container wid2c(wid2line, wid2line_len);
    unsigned int nsamples=static_cast<unsigned int>(*nsamp);
    os << wid2c.wid2;
    if (os.handlesinfo())
    {
      sff::INFO info;
      info.cs=sff::coosysID(*cs);
      info.cx=static_cast<double>(*c1);
      info.cy=static_cast<double>(*c2);
      info.cz=static_cast<double>(*c3);
      info.nstacks=static_cast<int>(*nstack);
      os << info;
    }
    aff::LinearShape shape(0, nsamples-1, 0);
    datrw::Tfseries series(shape, aff::SharedHeap<real>(fdata, *nsamp));
    os << series;
    if (*last) ostreammanager.close(static_cast<int>(*lu));
  }
  catch (...) {
    *ierr=1;
  }
  return(retval);
} // int sff_wtracei__

Here is the call graph for this function: