MODULE Mod1

	INTEGER, PARAMETER :: DIM = 5

	CONTAINS

		SUBROUTINE PrintDim

			print *,'DIM IS:'

			print *, DIM

		END SUBROUTINE PrintDim

END MODULE Mod1