- subroutine permut(isym)
-
- use geometry_data, only: tabperm
-! implicit real*8 (a-h,o-z)
-! include 'DIMENSIONS'
-! include 'COMMON.LOCAL'
-! include 'COMMON.VAR'
-! include 'COMMON.CHAIN'
-! include 'COMMON.INTERACT'
-! include 'COMMON.IOUNITS'
-! include 'COMMON.GEO'
-! include 'COMMON.NAMES'
-! include 'COMMON.CONTROL'
-
- integer :: n,isym
+ subroutine permut(isym,nperm,tabperm)
+!c integer maxperm,maxsym
+!c parameter (maxperm=3628800)
+!c parameter (maxsym=10)
+! include "DIMENSIONS"
+ integer n,a,tabperm,nperm,kkk,i,isym