projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
cluster & wham update
[unres.git]
/
source
/
maxlik
/
src_FPy
/
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