LOGICAL FUNCTION SHUT3()
shut3c() is a C wrapper calling the Fortran SHUT3()
int shut3c( ) ;
Note that M3ERR() and
M3EXIT() do a
CALL SHUT3() prior to terminating a program.
INCLUDE 'IODECL3.EXT'
for Fortran, or
#include "iodecl3.h" for C.
I/O API must already be initialized by a call to INIT3() .
...
INCLUDE 'IODECL3.EXT'
...
IF ( .NOT. SHUT3( ) ) THEN
C Unable to flush or close some file now open. How to deal
C with it?? -- probably an unrecoverable-error situation.
...
END IF
STOP
...
END
...
#include "iodecl3.h"
...
if ( ! shut3c( ) )
{
/* unrecoverable-error situation ?? */
...
exit( 2 ) ;
}
exit( 0 ) ;
}
Up: I/O API: Public Routines Up: Utility Routines
To: Models-3/EDSS I/O API: The Help Pages