EXIT(3F) Last changed: 1-6-98
NAMEEXIT - Exits from a Fortran program
SYNOPSIS
UNICOS and UNICOS/mk systems:
CALL EXIT[(istat)]
IRIX systems:
CALL EXIT(istat)IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
DESCRIPTION
On IRIX systems, the information on this man page is valid only for
programs compiled with the MIPSpro 7 Fortran 90 compiler.
EXIT ends the execution of a Fortran program.
istat EXIT ends the execution of a Fortran program. On UNICOS/mk
systems, it terminates execution on the local processing
element (PE). The integer status istat is optional on
UNICOS systems and is required on IRIX systems. The default
exit status is 0.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX, all arguments must be of default kind
unless documented otherwise. On UNICOS and UNICOS/mk, default kind is
KIND=8 for integer, real, complex, and logical arguments; on IRIX, the
default kind is KIND=4.
NOTES
UNICOS and UNICOS/mk only: The single parameter to EXIT is optional.
Because EXIT is predeclared, any explicit call to it can optionally
include a parameter. However, if EXIT is passed as an actual
parameter corresponding to a dummy parameter that is a procedure, and
if the corresponding dummy parameter is then called, one of the
following must be done:
* The dummy procedure parameter must be declared in an interface block
as having an optional integer parameter
* The call to the dummy procedure parameter (that is, the indirect
call to EXIT) must include an actual parameter corresponding to the
optional one for EXIT.
SEE ALSO
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
