Revision a300fe2b8c94aa973f39d050e5d9ddf04f609e1a authored by M. Helena Gon\xe7alves on 17 February 2013, 00:00:00 UTC, committed by Gabor Csardi on 17 February 2013, 00:00:00 UTC 
None
1 parent e9f9bbd
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