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_MD_T_maxlik-NEWCORR-PMF-5
/
testpermut.f
1
implicit none
2
include "DIMENSIONS"
3
c integer maxperm,maxsym
4
c parameter (maxperm=3628800)
5
c parameter (maxsym=10)
6
integer i,j,nsym,nperm,tabperm(maxsym,maxperm)
7
read (*,*) nsym
8
call permut(nsym,nperm,tabperm)
9
print *,"nperm",nperm
10
do i=1,nperm
11
print '(i3,2x,100i3)',i,(tabperm(j,i),j=1,nsym)
12
enddo
13
end