.EAQ2Q - call function that returns a floating point result.

Usage:

B:
   retval = .eaq2q( &func, arg1, arg2, ... );
/* C users just declare function as double */

Where:

&func
is a pointer to the address of a Fortran 66 or Pascal function.
arg1, arg2, ...
are the arguments to be used when calling "func".

Description:

This routine constructs and executes a call to the specified function. The function "func" is expected to return a double precision floating point number in the EAQ register, as is done by Pascal and Fortran 66 subroutines. B is unable to make use of such a result directly. .EAQ2Q is a transfer function which will convert this value into a one word value suitable for use by B. It makes no sense to invoke a B function using .EAQ2Q; more probably, you will use .EAQ2Q to invoke a function written in Pascal.

See Also:

expl b lib apply

Copyright © 1996, Thinkage Ltd.