The Fortran interface provides five routines with names reflecting the type used for active real arguments. The actual subroutine and type names are formed by replacing AD and ADTYPE in the above as follows:

when ADTYPE is	Real(kind=nag_wp)	then AD is p0w
when ADTYPE is	Type(nagad_a1w_w_rtype)	then AD is a1w
when ADTYPE is	Type(nagad_t1w_w_rtype)	then AD is t1w
when ADTYPE is	Type(nagad_a1t1w_w_rtype)	then AD is a1t1w
when ADTYPE is	Type(nagad_t2w_w_rtype)	then AD is t2w

C++ Header Interface

#include <nagad.h>

extern "C" {

void	x10bj_AD_f_ (void *&cb_handle, const ADTYPE &xa, Integer &ifail)

}

The header declares five functions with names reflecting the type used for active real arguments. The actual function and type names are formed by replacing AD and ADTYPE in the above as follows:

when ADTYPE is	double	then AD is p0w
when ADTYPE is	nagad_a1w_w_rtype	then AD is a1w
when ADTYPE is	nagad_t1w_w_rtype	then AD is t1w
when ADTYPE is	nagad_a1t1w_w_rtype	then AD is a1t1w
when ADTYPE is	nagad_t2w_w_rtype	then AD is t2w

3 Description

For routines where it is necessary to perform callback operations via one or more companion callbacks, data must be passed between the procedure argument and any such companion callback via a callback data object as created by x10ba_AD_f. x10bj_AD_f can be used to insert an object of the type ADTYPE into the callback data object. In this way an object of the type ADTYPE can be communicated between a procedure argument and its companion callbacks.

Note that data must be written to and read from the callback data object in strict order without omission.

4 References

None.

5 Arguments

1: $cb_handle$ – Pointer to AD Data Input/Output: On entry: will contain a handle to the callback data object.

On exit: will contain a handle to the updated callback data object.
2: $xa$ – ADTYPE Input: On entry: an object of the type ADTYPE, $x_{a}$ , to be inserted into the callback data object.
3: $ifail$ – Integer Input/Output: On entry: ifail must be set to $0$ , $−1$ or $1$ to set behaviour on detection of an error; these values have no effect when no error is detected.
A value of $0$ causes the printing of an error message and program execution will be halted; otherwise program execution continues. A value of $−1$ means that an error message is printed while a value of $1$ means that it is not.

If halting is not appropriate, the value $−1$ or $1$ is recommended. If message printing is undesirable, then the value $1$ is recommended. Otherwise, the value $0$ is recommended. When the value $- 1$ or $1$ is used it is essential to test the value of ifail on exit.

On exit: $ifail = 0$ unless the routine detects an error or a warning has been flagged (see Section 6).

6 Error Indicators and Warnings

If on entry

ifail = 0

−1

, explanatory error messages are output on the current error message unit (as defined by x04aaf).

Errors or warnings detected by the routine:

$ifail = 1$: On entry, cb_handle does not define a valid handle to a NAG AD callback data object. It has not been initialized or has been corrupted.

$ifail = - 99$: An unexpected error has been triggered by this routine. Please contact NAG.
See Section 7 in the Introduction to the NAG Library FL Interface for further information.

$ifail = - 399$: Your licence key may have expired or may not have been installed correctly.
See Section 8 in the Introduction to the NAG Library FL Interface for further information.