	PROGRAM main
	 IMPLICIT NONE

	 REAL, DIMENSION(0:1,0:1) :: A1 
	 REAL, DIMENSION(2,2) :: A2 
	 REAL, DIMENSION(2,2) :: B

	 A1(0,0) = 1; A1(0,1) = 2; A1(1,0) = 3; A1(1,1) = 4; 
	 A2(1,1) = -1; A2(1,2) = 2; A2(2,1) = -3; A2(2,2) = 4; 


	 B = A1 + A2;

	 print *, "A1:"
	 print *, A1(0,0), "  ", A1(0,1)  
	 print *, A1(1,0), "  ", A1(1,1)
	 print *, "A2:"
	 print *, A2(1,1), "  ", A2(1,2)  
	 print *, A2(2,1), "  ", A2(2,2)
	 print *, "B:"
	 print *, B(1,1), "  ", B(1,2)  
	 print *, B(2,1), "  ", B(2,2)
	END
