source: CIVL/mods/dev.civl.com/examples/fortran/provesaExamples/MXM/mxmdriver.F@ cb4d4f4

main test-branch
Last change on this file since cb4d4f4 was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 556 bytes
Line 
1 PROGRAM MXMDRIVER
2
3 INTEGER N = 4
4 real A(N,N),B(N,N),C(N,N)
5 INTEGER I,J
6
7 DO J=1,N
8 DO I=1,N
9 A(I,J) = 1.0*(I+J)
10 B(I,J) = 1.0*(I-J)
11 ENDDO
12 ENDDO
13
14c DO I=1,N
15c DO J=1,N
16c C(I,J) = 0.0
17c DO K=1,N
18c C(I,J) = C(I,J) + A(I,K)*B(K,J)
19c ENDDO
20c ENDDO
21c ENDDO
22
23 call mxm44_0(A,N,B,N,C,N)
24
25 DO J=1,N
26 DO I=1,N
27c PRINT *,"C(",I,",",J,") = ",C(I,J)
28 ENDDO
29 ENDDO
30
31 END
Note: See TracBrowser for help on using the repository browser.