FORTRAN Reference Manual

Mixed-Language Programming
FORTRAN Reference Manual—528615-001
13-9
The FORTRAN Calling Sequence
with types as shown and return a type INTEGER*2 function value. If it were written in
TAL, it would be declared as follows:
INT PROC watson (holmes, doyle);
INT .holmes;
REAL .doyle;
BEGIN
INT value;
...
RETURN value;
END;
If you specify the FORTRAN compiler directive EXTENDEDREF, the TAL code would
be:
INT PROC watson (holmes, doyle);
INT .EXT holmes;
REAL .EXT doyle;
BEGIN
INT value;
...
RETURN value;
END;
Calling a FORTRAN function is the same as calling a typed TAL procedure with the
corresponding function value data type and with all parameters passed by reference.
Character Functions
FORTRAN treats a type CHARACTER function as a typeless procedure with an
additional parameter, in which the function value is returned, preceding the arguments
that appear in the FORTRAN source code. However, you must not declare this
pseudo-parameter as a formal parameter if the procedure is coded in TAL. Thus, for
example, given the function reference:
conan = mycroft (holmes, doyle)