source: CIVL/examples/fortran/provesaExamples/MXM/ex1a.F@ bb03188

main test-branch
Last change on this file since bb03188 was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100644
File size: 280 bytes
Line 
1 subroutine mxm44_0(A,N1,B,N2,C,N3)
2 real a(n1,n2),b(n2,n3),c(n1,n3),s
3
4 do j=1,n3
5 do i=1,n1
6 c(i,j) = 0.0
7 do k=1,n2
8 c(i,j) = c(i,j) + a(i,k)*b(k,j)
9 enddo
10 enddo
11 enddo
12
13 return
14 end
Note: See TracBrowser for help on using the repository browser.