Multiplication of tow matrix

Fortran Problem  3 
     
 
৩.  দুইটি matrix এর গুন

            1   2   3

ধরা যাক A=  1   2   3

            1   2   3

 

            3   2   1   

    এবং   B=    3   2   1

                3   2   1

             Solution
             C=A*B
    1234567890
                 DIMENSION A(3,3),B(3,3),C(3,3)
                WRITE(*,*) 'ENTER THE VALUE OF MATRIX A'
                DO I =1,3
                DO J=1,3
                   READ(*,*) A(I,J)
                ENDDO
                ENDDO
                WRITE(*,*) 'ENTER THE VALUE OF MATRIX B'
                DO I =1,3
                DO J=1,3
                READ(*,*) B(I,J)
                 ENDDO
                ENDDO
                 DO I=1,3
                 DO J=1,3
                  C(I,J) = 0.0
                  DO K=1,3
                  C(I,J)=C(I,J)+A(I,K)*B(K,J)
                 ENDDO
                 ENDDO
                  ENDDO

                WRITE(*,*) C(1,1) , C(1,2) ,C(1,3)

          WRITE(*,*) C(2,1) , C(2,2) ,C(2,3)

          WRITE(*,*) C(3,1) ,C(3,2) ,C(3,3)

          END

          বি.দ্র.  just copy this program and paste in your force 2.0 .                                              Matrix এর মানগুলো row wise put কর. Best of Luck…………………