wham SAXS cutoff

[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 e2eca89..78f2521 100644 (file)
--- a/source/wham/src-M/readrtns.F
+++ b/source/wham/src-M/readrtns.F
@@ -129,8 +129,9 @@ C      endif
       call readi(controlcard,'NSAXS',nsaxs,0)
       call readi(controlcard,'SAXS_MODE',saxs_mode,0)
       call reada(controlcard,'SCAL_RAD',scal_rad,1.0d0)
+      call reada(controlcard,'SAXS_CUTOFF',saxs_cutoff,1.0d0)
       write (iout,*) "Number of SAXS restraints",NSAXS," SAXS_MODE",
-     &   SAXS_MODE," SCAL_RAD",scal_rad
+     &   SAXS_MODE," SCAL_RAD",scal_rad,"SAXS_CUTOFF",saxs_cutoff
 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