sff_new__()

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

Delete existing file.

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_New(lu, filename, ierr)
c 
c This routine just deletes the file indicated by filename. You need this
c as all WOpen routines refuse to replace an existing file. You will have
c to remove this file first and than open a new one.
c
c input:
c   lu         logical file unit to use for operation
c   filename   name of file to be deleted
c output:
c   ierr       will be 0 if operation was successfull
c
      integer lu, ierr
      character filename*(*)
c
c----------------------------------------------------------------------

Definition at line 74 of file fapid_sff_new.cc.

References fapidxx::stringfromfstring().

{
  std::string name=stringfromfstring(filename, filename_len);
  struct stat buf;
  int status=lstat(name.c_str(), &buf);
  if (status==0)
  {
    int status=remove(name.c_str());
    if (status==0) { *ierr=0; } else { *ierr=1; }
  }
  else
  {
    *ierr=0;
  }
  int retval=0;
  return(retval);
} // int sff_new__

Here is the call graph for this function: