The fpgets and fpsets subroutines retrieve and set the status of the floating-point operations, respectively. The include file fpdc.h contains the data declarations (specification statements) for the two subroutines. The include file fpdt.h contains the data initializations (data statements) and must be included in a block data program unit.
fpgets retrieves the floating-point process status and stores the result in a logical array called fpstat.
fpsets sets the floating-point status equal to the logical array fpstat.
This array contains logical values that can be used to specify floating-point rounding modes. See the fpgets and fpsets Subroutines in the XL Fortran User's Guide for examples and information on the elements of the fpstat array.
Examples
CALL fpgets( fpstat ) ... CALL fpsets( fpstat ) BLOCK DATA INCLUDE 'fpdc.h' INCLUDE 'fpdt.h' END