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 b608908..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
@@ -13,4 +14,5 @@
       double precision Ht,dyn_ssbond_ij
       logical dyn_ss,dyn_ss_mask
       common /dyn_ssbond/ dyn_ssbond_ij(maxres,maxres),
-     &  Ht,dyn_ss,dyn_ss_mask(maxres)
+     &  idssb(maxdim),jdssb(maxdim),
+     &  Ht,dyn_ss,dyn_ss_mask(maxres),atriss,btriss,ctriss,dtriss