The INTRINSIC statement lists intrinsic functions that can be passed as actual arguments.
Parameter |
Description |
fun |
Function name |
If the name of an intrinsic function is used as an actual argument, it must appear in an INTRINSIC statement in the same program unit.
Example: Intrinsic functions passed as actual arguments:
INTRINSIC SIN, COS X = CALC ( SIN, COS )
A symbolic name must not appear in both an EXTERNAL and an INTRINSIC statement in the same program unit.
The actual argument must be a specific name. Most generic names are also specific, but a few are not: IMAG, LOG, and LOG10.
A symbolic name can appear more than once in an INTRINSIC statement.In the FORTRAN 77 Standard, a symbolic name can appear only once in an INTRINSIC statement. @
Because they are in-line or generic, the following intrinsics cannot be passed as actual arguments:
Table 4-2 Intrinsics That Cannot Be Passed As Actual Arguments
LOC AND IAND IIAND JIAND OR IOR IIOR IEOR IIEOR JIOR JIEOR NOT INOT JNOT XOR LSHIFT RSHIFT LRSHIFT |
INT IINT JINT IQINT IIQINT JIQINT IFIX IIFIX JIFIX IDINT IIDINT JIDINT FLOAT FLOATI FLOATJ DFLOAT DFLOTI DFLOTJ IZTEXT |
SNGL SNGLQ REAL DREAL DBLE DBLEQ QEXT QEXTD QFLOAT CMPLX DCMPLX ICHAR IACHAR ACHAR CHAR MAX MAX0 AMAX0 JZTEXT |
AIMAX0 AJMAX0 IMAX0 JMAX0 MAX1 AMAX1 DMAX1 IMAX1 JMAX1 QMAX1 MIN MIN0 AMIN0 AIMIN0 AJMIN0 IMIN0 JMIN0 MIN1 ZEXT |
AMIN1 DMIN1 IMIN1 JMIN1 QMIN1 IMAG LOG LOG10 QREAL QCMPLX SIZEOF EPBASE EPEMAX EPEMIN EPHUGE EPMRSP EPPREC EPTINY |