MODULE CONSTANTS

INTEGER            :: A,B

END MODULE CONSTANTS

MODULE ROUTINES

CONTAINS

SUBROUTINE SUB1

USE CONSTANTS,  ONLY:  A1=>A, B1=>B

INTEGER    :: I

I = 1

RETURN
END SUBROUTINE SUB1

SUBROUTINE SUB2

USE CONSTANTS,  ONLY:  A1=>A, B1=>B

INTEGER    :: I

I = 2

RETURN
END SUBROUTINE SUB2

END MODULE ROUTINES

PROGRAM TEST

USE ROUTINES

call sub1( )
call sub2( )

STOP
END PROGRAM TEST