HP MLIB User's Guide Vol. 2 7th Ed.

808 HP MLIB User’s Guide
vmlsetmode, vmlgetmode Set and get the mode for VMATH library functions
savemode = vmlsetmode(IOR(VML_LA, VML_ERRMODE_IGNORE))
...
CALL vmlsetmode(savemode)
The value of the mode returned by vmlsetmode and vmlgetmode is a bitwise OR
of the parameters for the accuracy, error, and FPU modes in effect at the time of
the call. The particular component modes can be determined with the mode
mask parameters:
For example, the following tests whether the higher accuracy mode is in effect:
mode = vmlgetmode( )
IF (IAND(mode, VML_ACCURACY_MASK) == VML_HA) THEN
// Higher Accuracy
END IF
Usage INTEGER (KIND=4), FUNCTION vmlsetmode (mode )
INTEGER (KIND=4) , INTENT (IN) : : mode
INTEGER (KIND=4), FUNCTION vmlgetmode( )
The Fortran include file vmath.fi declares interfaces for these functions and
defines the parameters described above.
Input mode Specification of changes to VMATH mode
(vmlsetmode).
Output oldmode Pre-call value of VMATH mode (vmlsetmode).
VML_ACCURACY_MASK Mask for accuracy mode
VML_ERRMODE_MASK Mask for error mode
VML_FPUMODE_MASK mask for FPU mode