SUBROUTINE myprint(n)
	 IMPLICIT NONE

	 INTEGER, INTENT(IN) :: n

	 print *, "F90 print integer parameter n = ", n
	END SUBROUTINE