subroutine MySub2

	USE Mod1

	REAL :: MyArray2(DIM)

	SAVE MyArray2

	MyArray2(DIM - 3) = 0.1

	print *, MyArray2(DIM - 3)

	CALL PrintDim

end subroutine MySub2