fapid_sff_ropens.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_ROPENS_CC_VERSION \
  "TF_FAPID_SFF_ROPENS_CC   V1.0   "

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

using namespace fapidxx;

int sff_ropens__(integer *lu, char *filename, real *version, char *timestamp,
                 char *code, 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 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 output
    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);
    // 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_ropens__

/* ----- END OF fapid_sff_ropens.cc ----- */