fapid_sff_wopenfs.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_WOPENFS_CC_VERSION \
  "TF_FAPID_SFF_WOPENFS_CC   V1.0   "

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

using namespace fapidxx;

int sff_wopenfs__(integer *lu, char *filename, char *lines, integer *nline,
                  char *type__, char *cs, real *c1, real *c2, real *c3, 
                  char *date, char *time, integer *ierr, ftnlen filename_len,
                  ftnlen lines_len, ftnlen type_len, ftnlen cs_len,
                  ftnlen date_len, ftnlen time_len)
{
  int retval=0;
  *ierr=0;
  try {
    datrw::oanystream &os=
      ostreammanager.open(static_cast<int>(*lu),
                          stringfromfstring(filename, filename_len));
    if (os.handlessrce())
    {
      sff::SRCE srce;
      srce.cs=sff::coosysID(*cs);
      srce.cx=static_cast<double>(*c1);
      srce.cy=static_cast<double>(*c2);
      srce.cz=static_cast<double>(*c3);
      srce.type=stringfromfstring(type__, type_len);
      srce.date=SRCEdate(date, time, date_len, time_len);
      os << srce;
    }
    if (os.handlesfilefree())
    {
      sff::FREE filefree=freeblock(nline, lines, lines_len);
      os << filefree;
    }
  }
  catch (...) {
    *ierr=1;
  }
  return(retval);
} // int sff_wopenfs__

/* ----- END OF fapid_sff_wopenfs.cc ----- */