source: CIVL/examples/fortran/nek5000/verification/driver_gauss.f@ 01c5b2ce

1.23 2.0 acw/focus-triggers main test-branch
Last change on this file since 01c5b2ce was e3f356c, checked in by Wenhao Wu <wuwenhao@…>, 5 years ago

merge from branch omptrans for tacas2022

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5471 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 247 bytes
Line 
1 PROGRAM DRIVERGAUSS
2 DIMENSION A(2,2),IR(2),IC(2)
3 N = 2
4 LDIM = 2
5
6 DO I=1,N
7 DO J=1,N
8 A(J,I) = I*10+J
9 END DO
10 END DO
11 CALL LU(A,LDIM,N,IR,IC)
12
13 END PROGRAM DRIVERGAUSS
Note: See TracBrowser for help on using the repository browser.