PROGRAM matrix
	INTEGER m(4,3)
	DO i = 1, 4
	   DO j = 1, 3
	      m(i,j) = j
	   END DO
	END DO

	DO i = 1,4
	   DO j=1,3
	      WRITE(*,*) m(i,j), ' '
	   END DO
	   WRITE(*,*)
	END DO

	END PROGRAM