poprawka w triss

[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 4b28273..6319416 100644 (file)
--- a/source/unres/src_MD/COMMON.SBRIDGE
+++ b/source/unres/src_MD/COMMON.SBRIDGE
@@ -1,9 +1,10 @@
-      double precision ss_depth,ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss
+      double precision ss_depth,ebr,d0cm,akcm,akth,akct,v1ss,v2ss,v3ss,
+     &atriss,btriss,ctriss,dtriss
       integer ns,nss,nfree,iss
       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
+      integer ihpb,jhpb,nhpb,idssb,jdssb
       common /links/ dhpb(maxdim),dhpb1(maxdim),forcon(maxdim),
      & ihpb(maxdim),jhpb(maxdim),ibecarb(maxdim),nhpb
       double precision weidis
@@ -12,5 +13,6 @@
       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)
+      common /dyn_ssbond/ dyn_ssbond_ij(maxres,maxres),
+     &  idssb(maxdim),jdssb(maxdim),
+     &  Ht,dyn_ss,dyn_ss_mask(maxres),atriss,btriss,ctriss,dtriss