& tabpermchain,nchain ,npermchain,ireschain,iz_sc,nres_chomo
double precision c,cref,crefjlee,dc,xloc,xrot,dc_norm,t,r,prod,rt,
& rmssing,anatemp,chomo
& tabpermchain,nchain ,npermchain,ireschain,iz_sc,nres_chomo
double precision c,cref,crefjlee,dc,xloc,xrot,dc_norm,t,r,prod,rt,
& rmssing,anatemp,chomo