sff_wopenfs__()

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
	)

Open file for writing and pass FREE block and SRCE line.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_WOpenFS(lu, filename,
     &                      lines, nline,
     &                      type, cs, c1, c2, c3, date, time, ierr)
c 
c Open file for writing. Write STAT line, FREE block and SRCE line.
c
c input:
c   lu              logical file unit
c   filename        name of file
c   nline           number of lines in FREE block
c   lines           lines in FREE block
c   type            type of source (any 20 character string)
c   cs              coordinate system (S: spherical, C: cartesian)
c   c1, c2, c3      coordiantes as defined by SFF
c   time, date      time and date of source signal
c output:
c   ierr            error status (ok: ierr=0)
c
      integer lu, ierr, nline
      character filename*(*), type*(*), cs*1
      real c1, c2, c3
      character time*(*), date*(*)
      character lines(nline)*80
c----------------------------------------------------------------------

Definition at line 79 of file fapid_sff_wopenfs.cc.

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

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

Here is the call graph for this function: