Intel Fortran Language Reference - NCI National Facility

14 Intel Fortran Language Reference
2. If the procedure name is specified with the INTRINSIC attribute in one of the following, the
reference is to that intrinsic procedure:
a. The same scoping unit
b. A module made accessible by a USE statement in the scoping unit
The reference must be consistent with the interface of that intrinsic procedure.
3. If the following is true, the reference is resolved by applying rules 1 and 2 to the host scoping
unit:
a. The procedure name is established to be generic in the host scoping unit
b. There is agreement between the scoping unit and the host scoping unit as to whether the
procedure is a function or subroutine name.
4. If none of the preceding rules apply, the reference must be to the generic intrinsic procedure
with that name. The reference must be consistent with the interface of that intrinsic procedure.
Example
The following example shows how a module can define three separate procedures, and a main
program give them a generic name DUP through an interface block. Although the main program
calls all three by the generic name, there is no ambiguity since the arguments are of different data
types, and DUP is a function rather than a subroutine. The module UN_MOD must give each
procedure a different name.
MODULE UN_MOD
!
CONTAINS
subroutine dup1(x,y)
real x,y
print *, ' Real arguments', x, y
end subroutine dup1
subroutine dup2(m,n)
integer m,n
print *, ' Integer arguments', m, n
end subroutine dup2
character function dup3 (z)
character(len=2) z
dup3 = 'String argument '// z
end function dup3
END MODULE
15-6