sff_wopen__()

int sff_wopen__	(	integer *	lu,
		char *	filename,
		integer *	ierr,
		ftnlen	filename_len
	)

Open file for writing.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_WOpen(lu, filename, ierr)
c 
c Open file for writing. Write STAT line.
c
c input:
c   lu              logical file unit
c   filename        name of file
c output:
c   ierr            error status (ok: ierr=0)
c
      integer lu, ierr
      character filename*(*)
c----------------------------------------------------------------------

Definition at line 66 of file fapid_sff_wopen.cc.

References fapidxx::OFileUnits::open(), fapidxx::ostreammanager, and fapidxx::stringfromfstring().

{
  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__

Here is the call graph for this function: