PROGRAM TEST3 c DIMENSION A(2,2), B(2,2), C(2,2) c open(6,file='test3.out') c n=2 c a(1,1)=1.0 a(1,2)=2.0 a(2,1)=2.0 a(2,2)=1.0 write(6,100)((a(i,j),j=1,n),i=1,n) c b(1,1)=2.0 b(1,2)=1.0 b(2,1)=1.0 b(2,2)=2.0 write(6,100)((b(i,j),j=1,n),i=1,n) c call add(a, b, c) c write(6,100)((c(i,j),j=1,n),i=1,n) 100 format( 4(tr1, e11.5 ) ) c stop end c subroutine add (e, f, g) c dimension e(2,2), f(2,2), g(2,2) c n=2 do 10 i=1,n do 20 j=1,n g(i,j)=e(i,j)+f(i,j) 20 continue 10 continue c return end