real(kind=8),dimension(:,:),allocatable :: xloc,xrot !(3,maxres)
real(kind=8),dimension(:),allocatable :: dc_work !(MAXRES6)
integer :: nres,nres0
+ integer, dimension(5) :: nres_molec
! common /rotmat/
real(kind=8),dimension(:,:,:),allocatable :: prod,rt !(3,3,maxres)
! common /refstruct/
real(kind=8) :: buflipbot, bufliptop,bordlipbot,bordliptop, &
lipbufthick,lipthick
integer,dimension(:,:),allocatable :: tabperm !(maxperm,maxsym)
+ integer molec
! common /from_zscore/ in module.compare
!-----------------------------------------------------------------------------
! common.geo