common /links_split/ link_start,link_end
double precision Ht,dyn_ssbond_ij,dtriss,atriss,btriss,ctriss
logical dyn_ss,dyn_ss_mask
- common /dyn_ssbond/ dtriss,atriss,btriss,ctriss,
+ common /dyn_ssbond/ dtriss,atriss,btriss,ctriss,Ht,
& dyn_ssbond_ij(maxres,maxres),
- & idssb(maxdim),jdssb(maxdim),
- & Ht,dyn_ss,dyn_ss_mask(maxres)
+ & idssb(maxdim),jdssb(maxdim)
+ common /dyn_ss_logic/
+ & dyn_ss,dyn_ss_mask(maxres)