source: CIVL/examples/fortran/cv2018/matrix_mult/naive_mxm.f@ cc8e265

1.23 2.0 acw/focus-triggers main test-branch
Last change on this file since cc8e265 was d5096aa, checked in by Ziqing Luo <ziqing@…>, 8 years ago

merge in examples that Wenhao used for his correctness workshop submission

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5032 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 263 bytes
Line 
1 SUBROUTINE MXM(A,N1,B,N2,C,N3)
2 REAL A(N1,N2), B(N2,N3), C(N1,N3)
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 END
Note: See TracBrowser for help on using the repository browser.