sff_ropen__()

int sff_ropen__	(	integer *	lu,
		char *	filename,
		real *	version,
		char *	timestamp,
		char *	code,
		integer *	ierr,
		ftnlen	filename_len,
		ftnlen	timestamp_len,
		ftnlen	code_len
	)

Open SFF file.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_ROpen(lu, filename, 
     &                     version, timestamp, code, ierr)
c 
c Open file for reading. Read STAT line.
c
c input:
c   lu              logical file unit
c   filename        name of file
c ouput:
c   version         version of writing library
c   timestamp       time and date file was written
c   code            indicates optional blocks
c   ierr            error status (ok: ierr=0)
c
      integer lu, ierr
      real version
      character timestamp*(*), code *(*)
      character filename*(*)
c----------------------------------------------------------------------

Definition at line 73 of file fapid_sff_ropen.cc.

References fapidxx::fillfstring(), fapidxx::istreammanager, fapidxx::IFileUnits::open(), and fapidxx::stringfromfstring().

{
  int retval=0;
  *ierr=0;
  try {
    datrw::ianystream &is=
      istreammanager.open(static_cast<int>(*lu),
                          stringfromfstring(filename, filename_len));
    std::string ocode("");
    if (is.hasfree()) { ocode.append("F"); }
    if (is.hassrce()) { ocode.append("S"); }
    // set output
    fillfstring(ocode, code, code_len);
    // timestamp and version got lost
    sff::STAT stat;
    fillfstring(stat.timestamp, timestamp, timestamp_len);
    *version=static_cast<real>(sff::STAT::libversion);
  }
  catch(...) {
    *ierr=1;
  }
  return retval;
} // int sff_ropen__

Here is the call graph for this function: