Open Watcom FORTRAN 77 Language Reference

Language Reference
2.57 INTRINSIC Statement
INTRINSIC f [,f] ...
where:
f
is the name of an intrinsic function name.
An INTRINSIC statement is used to identify a symbolic name as the name of an intrinsic function. It also
allows a specific intrinsic function to be passed as an actual argument. The names of intrinsic functions for
type conversion (INT, IFIX, HFIX, IDINT, FLOAT, DFLOAT, SNGL, REAL, DREAL, DBLE, CMPLX,
DCMPLX, ICHAR, CHAR), lexical relationship (LGE, LGT, LLE, LLT), for choosing the largest or
smallest value (MAX, MAX0, AMAX1, DMAX1, AMAX0, MAX1, MIN, MIN0, AMIN1, DMIN1,
AMIN0, MIN1), as well as ALLOCATED, ISIZEOF and LOC, must not be used as actual arguments.
A generic intrinsic function does not lose its generic property if it appears in an INTRINSIC statement.
A name must only appear in an INTRINSIC statement once. A symbolic name must not appear in both an
INTRINSIC and an EXTERNAL statement in a program unit.
Example:
INTRINSIC SIN
.
.
.
CALL SAM( SIN )
In the previous example, the intrinsic function SIN was passed to the subroutine SAM. If the INTRINSIC
statement were eliminated then the variable SIN would be passed to the subroutine SAM.
102 INTRINSIC Statement