fapid_sff_wopen.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_WOPEN_CC_VERSION \
  "TF_FAPID_SFF_WOPEN_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_wopen__(integer *lu, char *filename,
                integer *ierr, ftnlen filename_len)
{
  int retval=0;
  *ierr=0;
  try {
    datrw::oanystream &os=
      ostreammanager.open(static_cast<int>(*lu),
                          stringfromfstring(filename, filename_len));
  }
  catch (...) {
    *ierr=1;
  }
  return(retval);
} // int sff_wopen__

/* ----- END OF fapid_sff_wopen.cc ----- */