X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadrtns_CSA.F;h=c691135372fb3c3e00fe569bceb608cfc473e22c;hb=f8f1c327d592f7b7eac573d653eadc9ed7e9e511;hp=9f72992830dde7431a57b1d7593c4a4df02c5625;hpb=bddc035f45ddcdb333ca5a0a2091c01e302c6ac9;p=unres.git

diff --git a/source/unres/src_MD-M/readrtns_CSA.F b/source/unres/src_MD-M/readrtns_CSA.F
index 9f72992..c691135 100644
--- a/source/unres/src_MD-M/readrtns_CSA.F
+++ b/source/unres/src_MD-M/readrtns_CSA.F
@@ -179,6 +179,7 @@ C      if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then
         else
           icheckgrad=3
         endif
+        call reada(controlcard,'DELTA',aincr,1.0d-7)
       elseif (index(controlcard,'THREAD').gt.0) then
         modecalc=2
         call readi(controlcard,'THREAD',nthread,0)