MODULE Mod1

    INTEGER, PARAMETER :: DIM = 5 ! 3,27

    CONTAINS

        SUBROUTINE PrintDim

            print *,'DIM IS:'

            print *, DIM ! 11,22

        END SUBROUTINE PrintDim

END MODULE Mod1