fpgets fpsets

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.

Note:
The XLF_FP_UTIL intrinsic module provides procedures for manipulating the status of floating-point operations that are more efficient than the fpgets and fpsets subroutines. For more information, see Efficient Floating-Point Control and Inquiry Procedures.

Examples

CALL fpgets( fpstat )
 ...
CALL fpsets( fpstat )
BLOCK DATA
INCLUDE 'fpdc.h'
INCLUDE 'fpdt.h'
END
 
IBM Copyright 2003