fdds_closepr - close a print file

SYNOPSIS

#include <fdds.h> (fixed-format sources)
#include <f90dds.h> (free-format sources)

integer function fdds_closepr()

DESCRIPTION

fdds_closepr prints termination messages to the console and also to the print file if it is open. Messages to the console will include the program name.

If no error messages have been printed via fdds_prterr, the message is 'NORMAL TERMINATION', the print file (if open) is closed, and the program terminates with exit(0).

When errors were detected, the message becomes 'ABNORMAL TERMINATION', the print file (if open) is closed, and the program terminates with non-zero exit().

The routine will never return.
Do not use this routine before calling MPI_Finalize.

EXAMPLES

      integer ier
      ...
      ier=fdds_closepr()

SEE ALSO

fdds_openpr Open a printfile
fdds_prtmsg Print a message
fdds_prtcon Print to console
fdds_prterr Print error message
fdds_errors Query errors

AUTHOR

Jerry Ehlers, BP America (May 2003)