1 subroutine permut(isym,nperm,tabperm)
2 c integer maxperm,maxsym
3 c parameter (maxperm=3628800)
4 c parameter (maxsym=10)
9 dimension a(isym),tabperm(maxchain,maxperm)
24 c print '(i3,2x,100i3)',kkk+1,(a(i),i=1,n)
29 if(nextp(n,a)) go to 10
38 10 if(a(i).lt.a(i+1)) go to 20
55 if(a(j).lt.a(i)) go to 40