fapid_sff_ropenfs.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_ROPENFS_CC_VERSION \
  "TF_FAPID_SFF_ROPENFS_CC   V1.0   "

#include <fapidxx/fapidsff.h>
#include <fapidxx/fileunit.h>
#include <fapidxx/helper.h>
#include <sffxx.h>

using namespace fapidxx;

int sff_ropenfs__(integer *lu, char *filename, real *version, 
                  char *timestamp, char *code,
                  integer *nline, char *lines, integer *lenmax,
                  integer *lindim,
                  char *type__, char *cs, real *c1, real *c2, real *c3,
                  char *date, char *time, integer *ierr,
                  ftnlen filename_len, ftnlen timestamp_len, ftnlen code_len,
                  ftnlen lines_len, ftnlen type_len, ftnlen cs_len,
                  ftnlen date_len, ftnlen time_len)
{
  int retval=0;
  *ierr=0;
  try {
    datrw::ianystream &is=
      istreammanager.open(static_cast<int>(*lu),
                          stringfromfstring(filename, filename_len));
    sff::SRCE srce;
    std::string ocode("");
    if (is.hasfree()) { ocode.append("F"); }
    if (is.hassrce()) { ocode.append("S"); }
    if (is.hassrce()) { is >> srce; }
    // set SRCE data
    std::string srceline=srce.line();
    fillfstring(ocode, code, code_len);
    fillfstring(srce.type, type__, type_len);
    char thecs=sff::coosysID(srce.cs);
    fillfstring(std::string(&thecs, 1), cs, cs_len);
    *c1=static_cast<real>(srce.cx);
    *c2=static_cast<real>(srce.cy);
    *c3=static_cast<real>(srce.cz);
    fillfstring(srceline.substr(74,6), date, date_len);
    fillfstring(srceline.substr(81,10), time, time_len);
    // set free block
    sff::FREE free;
    if (is.hasfree()) { is >> free; }
    freeblock(free, nline, lines, lindim, lenmax, lines_len);
    // timestamp and version got lost
    sff::STAT stat;
    fillfstring(stat.timestamp, timestamp, timestamp_len);
    *version=static_cast<real>(sff::STAT::libversion);
//    std::cerr << "leaving sff_ropens__" << std::endl;
  }
  catch(...) {
    *ierr=1;
  }
  return retval;
} // int sff_ropenfs__

/* ----- END OF fapid_sff_ropenfs.cc ----- */