Intel Fortran Language Reference - NCI National Facility

Program Units and Procedures 8
• If all the USE statements have ONLY options, all the only-lists are interpreted as a single,
concatenated only-list. Only those entities named in one or more of the only-lists are
accessible.
If two or more generic interfaces that are accessible in a scoping unit have the same name, the
same operator, or are both assignments, they are interpreted as a single generic interface.
Otherwise, multiple accessible entities can have the same name only if no reference to the name is
made in the scoping unit.
The local names of entities made accessible by a USE statement must not be respecified with any
attribute other than PUBLIC or PRIVATE. The local names can appear in namelist group lists, but
not in a COMMON or EQUIVALENCE statement.
Examples
The following shows examples of the USE statement:
MODULE MOD_A
INTEGER :: B, C
REAL E(25,5), D(100)
END MODULE MOD_A
...
SUBROUTINE SUB_Y
USE MOD_A, DX => D, EX => E ! Array D has been renamed DX and array E
... ! has been renamed EX. Scalar variables B
END SUBROUTINE SUB_Y
! and C are also available to this subrou-
... ! tine (using their module names).
SUBROUTINE SUB_Z
USE MOD_A, ONLY: B, C
! Only scalar variables B and C are
... ! available to this subroutine
END SUBROUTINE SUB_Z
...
The following example shows a module containing common blocks:
MODULE COLORS
COMMON /BLOCKA/ C, D(15)
COMMON /BLOCKB/ E, F
...
END MODULE COLORS
...
FUNCTION HUE(A, B)
USE COLORS
8-9