F7NOHX - call a routine that works in binary floating point.

Usage:

call f7nohx(routine, arg1,arg2,...)

Where:

routine
is the name of the subroutine (declared in an EXTERNAL statement) that is to be called.
arg1,arg2,
are the arguments to be passed to the subroutine.

Description:

This subroutine allows a F77 program executing in hex mode to call a subroutine that requires hex to be turned off. The current value of the hex mode indicator is saved, and restored on return, so F7NOHX can be called from a routine that happens to be compiled in non-hex mode.

Copyright © 1996, Thinkage Ltd.