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'
or
USE M3UTILIO
for Fortran, or
#include "iodecl3.h"
for C.
I/O API must already be initialized by a call to INIT3() .
... USE M3UTILIO ... 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