All pastes #172251 Raw Edit

Untitled

public text v1 · immutable
·published 2006-09-15 23:13 UTC
rendered paste body
      program MatrixMultiply
      
      real A(100,100),B(100,100)
      integer i,j,k

!     Init matrices

      do i=1,100
         do j=1,100
            A(i,j)=i**j
         enddo
      enddo

!     Matrix multiplication
      
      k=1
      do i=1,100
         do j=1,100
            B(i,j) = A(i,j)*A(j,k)
         enddo
         B(i,k) = B(i,k)-A(i,k)
         write(*,*) B(i,k)
         k=k+1
      enddo
      end