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/
integer :: nsup,nstart_sup,nstart_seq,chain_length,iprzes,nperm
integer :: nend_sup,ishift_pdb !wham
real(kind=8) :: rmssing,anatemp !wham
+ real(kind=8) :: buftubebot, buftubetop,bordtubebot,bordtubetop, &
+ tubebufthick
+ 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