Dodanie dynamic disulfide to WHAM

[unres.git] / source / wham / src / readrtns.F

diff --git a/source/wham/src/readrtns.F b/source/wham/src/readrtns.F
index c13b16e..3f03553 100644 (file)
--- a/source/wham/src/readrtns.F
+++ b/source/wham/src/readrtns.F
@@ -17,6 +17,7 @@
       include "COMMON.FREE"
       include "COMMON.CONTROL"
       include "COMMON.ENERGIES"
+      include "COMMON.SBRIDGE"
       character*800 controlcard
       integer i,j,k,ii,n_ene_found
       integer ind,itype1,itype2,itypf,itypsc,itypp
@@ -94,6 +95,8 @@
      & " CONSTR_DIST",constr_dist
       refstr = index(controlcard,'REFSTR').gt.0
       pdbref = index(controlcard,'PDBREF').gt.0
+      dyn_ss=(index(controlcard,'DYN_SS').gt.0)
+c      write (iout,*) "CHUJ Z PIZDA", dyn_ss
       call flush(iout)
       return
       end