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