exit(3F)

NAME
     EXIT - 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 for the printed
     version of this man page.