sff_close__()

int sff_close__	(	integer *	lu,
		integer *	ierr
	)

Close SFF file.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_close(lu, ierr)
c
c  Calling this subroutine instead of the Fortran close functions
c  provides interface compatibility to libfapidxx
c
c  Input:
c        lu:      Fortran file unit
c  Output:
c        ierr:    error status (ok: ierr=0)
c
      integer lu, ierr
c----------------------------------------------------------------------

Definition at line 69 of file fapid_sff_close.cc.

References fapidxx::IFileUnits::close(), fapidxx::OFileUnits::close(), fapidxx::IFileUnits::isopen(), fapidxx::OFileUnits::isopen(), fapidxx::istreammanager, and fapidxx::ostreammanager.

{
  int retval=0;
  *ierr=0;
  try {
    if (istreammanager.isopen(static_cast<int>(*lu)))
    { istreammanager.close(static_cast<int>(*lu)); }
    if (ostreammanager.isopen(static_cast<int>(*lu)))
    { ostreammanager.close(static_cast<int>(*lu)); }
  }
  catch(...) {
    *ierr=1;
  }
  return retval;
} // int sff_close__

Here is the call graph for this function: