dynamic SS from old Maurizio's code

[unres.git] / source / unres / src_MD / COMMON.SBRIDGE

diff --git a/source/unres/src_MD/COMMON.SBRIDGE b/source/unres/src_MD/COMMON.SBRIDGE
index d75482c..4b28273 100644 (file)
--- a/source/unres/src_MD/COMMON.SBRIDGE
+++ b/source/unres/src_MD/COMMON.SBRIDGE
@@ -1,6 +1,6 @@
-      double precision ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss
+      double precision ss_depth,ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss
       integer ns,nss,nfree,iss
-      common /sbridge/ ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss,
+      common /sbridge/ ss_depth,ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss,
      & ns,nss,nfree,iss(maxss)
       double precision dhpb,dhpb1,forcon
       integer ihpb,jhpb,nhpb
@@ -10,3 +10,7 @@
       common /restraints/ weidis
       integer link_start,link_end
       common /links_split/ link_start,link_end
+      double precision Ht,dyn_ssbond_ij
+      logical dyn_ss,dyn_ss_mask
+      common /dyn_ssbond/ Ht,dyn_ss,dyn_ss_mask(maxres),
+     &  dyn_ssbond_ij(maxres,maxres)