Revision 8cb2c8da847b4c6e53ee55172cf78036c95befd8 authored by M. Helena Gon\xe7alves on 06 June 2010, 00:00:00 UTC, committed by Gabor Csardi on 06 June 2010, 00:00:00 UTC
0 parent
Raw File
mati.f

      subroutine mati(a,b,c,n1,n2,n3,n,npar)
C      ! computes c=a*b
      implicit double precision (a-h,o-z)
      dimension a(n1,n2),b(n2,n3),c(n1,n3)    
      do 10 i=1,n
        do 20 j=1,n3
          s=0
            do 30 k=1,(npar-2)
              s=s+a(i,k)*b(k,j)
   30        continue
          c(i,j)=s
   20   continue
   10 continue 
      return
      end
back to top