Open Watcom FORTRAN 77 Language Reference

Language Reference
2.45.2 Extended FUNCTION Statement
[type[*len]] FUNCTION fun[*len] ( [d [, d] ...] )
where:
type
fun
d
len
is one of LOGICAL, INTEGER, REAL, DOUBLE PRECISION, COMPLEX, CHARACTER
or RECORD /typename/
is a symbolic name of a function subprogram.
is a variable name, array name, or a dummy procedure name. d is called a dummy argument.
is called the length specification and has one of the following forms:
(1) An unsigned positive integer constant.
(2) A positive integer constant expression enclosed in parentheses.
(3) An asterisk in parentheses, (*).
For valid values of len, refer to the appropriate type declaration statement.
This form of the FUNCTION statement is an extension to the FORTRAN 77 language.
Example:
INTEGER*2 MOD2, I, J
I = 12
J = 5
PRINT *, MOD2( I, J )
END
INTEGER*2 FUNCTION MOD2( I, J )
INTEGER*2 I, J
INTEGER II, JJ
II = I
JJ = J
MOD2 = MOD(II, JJ)
END
Notes:
1. No dummy arguments need be specified in the FUNCTION statement. However, the parentheses
() are mandatory.
2. The length specification can appear only once in the FUNCTION statement.
For more information, see the chapter entitled "Functions and Subroutines" on page 243.
78 FUNCTION Statement