https://github.com/cran/bild
Tip revision: 129f03a2619f3da43b97f463998ebb167c5a706d authored by M. Helena Gonçalves on 12 April 2020, 13:20:03 UTC
version 1.2-0
version 1.2-0
Tip revision: 129f03a
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