	PROGRAM main
	 IMPLICIT NONE

	 REAL, DIMENSION(3,3)      :: A
	 REAL, DIMENSION(0:2, 0:2) :: B
	 REAL, DIMENSION(3, 0:2)   :: C

	 print *, A
	 print *
	 print *, B
	 print *
	 print *, C

	END
