sff_skipdata__()

int sff_skipdata__	(	integer *	lu,
		char *	code,
		logical *	last,
		integer *	ierr,
		ftnlen	code_len
	)

Skip a complete trace.

Description from stuff.f:

c--------------------------------------------------------------------------
      subroutine sff_SkipData(lu,code,last,ierr)
c
c  Skip a data block including DAST, WID2 DAT2, data, CHK2 and optionally
c  appended Free and Info blocks. Close file if last data block
c  is read.
c
c  major changes:
c    22/11/96   T.F.   added variables code and last to parameter list
c                      (is needed to decide whether there will
c                       follow another datablock or not)
c
      integer lu,ierr
      logical last
      character code*(*)
c--------------------------------------------------------------------------

Definition at line 69 of file fapid_sff_skipdata.cc.

References fapidxx::IFileUnits::close(), fapidxx::fillfstring(), and fapidxx::istreammanager.

{
  int retval=0;
  *ierr=0;
  try {
    datrw::ianystream &is=istreammanager(static_cast<int>(*lu));
    std::string ocode("");
    if (is.hasinfo()) 
    {
      ocode="I";
    }
    if (!is.last()) { ocode += "D"; }
    fillfstring(ocode, code, code_len);
    is.skipseries();
    *last = is.last() ? 1 : 0;
    if (is.last()) { istreammanager.close(static_cast<int>(*lu)); }
  }
  catch(...) {
    *ierr=1;
  }
  return retval;
} // int sff_skipdata__

Here is the call graph for this function: