integer nres,nsup,nstart_sup,nz_start,nz_end,iz_sc,
& nres0,nstart_seq,chain_length,iprzes,tabperm,nperm
double precision c,dc,dc_old,d_c_work,xloc,xrot,dc_norm,t,r,
integer nres,nsup,nstart_sup,nz_start,nz_end,iz_sc,
& nres0,nstart_seq,chain_length,iprzes,tabperm,nperm
double precision c,dc,dc_old,d_c_work,xloc,xrot,dc_norm,t,r,