!　学習目的：do文(応用2）：行列の積
! ex205.f
      real*8 a(2,2),b(2,2),c(2,2)

      a(1,1)=1.d0
      a(1,2)=2.d0
      a(2,1)=3.d0
      a(2,2)=4.d0
      b(1,1)=5.d0
      b(1,2)=6.d0
      b(2,1)=7.d0
      b(2,2)=8.d0

      do i=1,2
      do j=1,2
        c(i,j)=0.d0
        do k=1,2
          c(i,j)=a(i,k)*b(k,j)+c(i,j)
        end do
      end do
      end do

      write(*,*) c(1,1),c(1,2)
      write(*,*) c(2,1),c(2,2)
      write(*,*)

      do i=1,2
        write(*,*) (c(i,j),j=1,2) ! よく使われる配列要素の書き方
      end do
      write(*,*)

!　以下は中級者向け
      do i=1,2
        write(*,*) ('i=',i,' j=',j,c(i,j),' | ',j=1,2)
      end do
      

      stop
      end