X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fwham%2Fsrc-M%2Freadrtns.F;h=e2eca892e005718b9fc944fb5c46ee85ff731f4c;hb=17f6ba1f1fcc75e0823f1cfb16fa99c11f606d6d;hp=51216d936388de182e4b60ad093e7c69eeca4b2c;hpb=058b4e72d61c149f66570d580bda9b47464d9df6;p=unres.git

diff --git a/source/wham/src-M/readrtns.F b/source/wham/src-M/readrtns.F
index 51216d9..e2eca89 100644
--- a/source/wham/src-M/readrtns.F
+++ b/source/wham/src-M/readrtns.F
@@ -128,8 +128,9 @@ C      endif
       dyn_ss=(index(controlcard,'DYN_SS').gt.0)
       call readi(controlcard,'NSAXS',nsaxs,0)
       call readi(controlcard,'SAXS_MODE',saxs_mode,0)
+      call reada(controlcard,'SCAL_RAD',scal_rad,1.0d0)
       write (iout,*) "Number of SAXS restraints",NSAXS," SAXS_MODE",
-     &   SAXS_MODE
+     &   SAXS_MODE," SCAL_RAD",scal_rad
 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