1 subroutine permut(isym)
2 implicit real*8 (a-h,o-z)
4 include 'DIMENSIONS.FREE'
8 include 'COMMON.INTERACT'
9 include 'COMMON.IOUNITS'
11 c include 'COMMON.NAMES'
12 include 'COMMON.CONTROL'
13 c include 'COMMON.DISTFIT'
14 c include 'COMMON.SETUP'
29 10 print *,(a(i),i=1,n)
33 c write (iout,*) "tututu", kkk
35 if(nextp(n,a)) go to 10
44 10 if(a(i).lt.a(i+1)) go to 20
61 if(a(j).lt.a(i)) go to 40