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)
! common /from_zscore/ in module.compare
!-----------------------------------------------------------------------------