projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
3ef5736e8acaa0a3f7efc5afc652cdff2dceacf5
[unres.git]
/
test.F
1
subroutine test_sub(a,b)
2
integer :: a
3
double precision :: b(3,2)
4
a = 3
5
b(1,1) = 1.0
6
b(1,2) = 2.0
7
b(2,1) = 3.0
8
b(2,2) = 4.0
9
b(3,1) = 5.0
10
b(3,2) = 6.0
11
end subroutine