      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 !&#932;&#965;&#967;&#945;&#943;&#945; &#964;&#953;&#956;&#942; &#945;&#957; &#952;&#941;&#955;&#949;&#964;&#949; &#956;&#960;&#959;&#961;&#949;&#943;&#964;&#949; &#957;&#945; &#946;&#940;&#955;&#949;&#964;&#949; &#954;&#945;&#953; 0
         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