sff_wtracefi__()

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

Write one trace of data with FREE block and INFO line.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_WTraceFI(lu, 
     &                   wid2line, nsamp, fdata, idata, last, 
     &                   nline, lines, 
     &                   cs, c1, c2, c3, nstack, ierr)
c
c Write one data block starting with DAST line.
c Write also FREE block and 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   nline           number of FREE block lines
c   lines           FREE block lines
c   cs              coordinate system
c   c1, c2, c3      receiver coordinates
c   nstack          number of stacks
c
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
      integer lu, nsamp, idata(nsamp), nline, nstack
      real fdata(nsamp), c1, c2, c3
      logical last
      character wid2line*132, lines(nline)*80, cs*1
c----------------------------------------------------------------------

Definition at line 90 of file fapid_sff_wtracefi.cc.

References fapidxx::OFileUnits::close(), fapidxx::freeblock(), 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;
    }
    if (os.handlestracefree())
    {
      sff::FREE tracefree=freeblock(nline, lines, lines_len);
      os << tracefree;
    }
    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_wtracefi__

Here is the call graph for this function: