saxs and adam's corrections to multichain

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

diff --git a/source/wham/src-M/readrtns.F b/source/wham/src-M/readrtns.F
index 271fca8..51216d9 100644 (file)
--- a/source/wham/src-M/readrtns.F
+++ b/source/wham/src-M/readrtns.F
@@ -126,6 +126,10 @@ C      endif
       refstr = index(controlcard,'REFSTR').gt.0
       pdbref = index(controlcard,'PDBREF').gt.0
       dyn_ss=(index(controlcard,'DYN_SS').gt.0)
+      call readi(controlcard,'NSAXS',nsaxs,0)
+      call readi(controlcard,'SAXS_MODE',saxs_mode,0)
+      write (iout,*) "Number of SAXS restraints",NSAXS," SAXS_MODE",
+     &   SAXS_MODE
 C /06/28/2013 Adasko: dyn_ss is keyword allowing to break and create bond
 C disulfide bond. Note that in conterary to dynamics this in
 C CONTROLCARD. The bond are read in molread_zs.F