X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadrtns_CSA.F;h=0f8b08a5f207313ca029b4930ef99d9aaf3433d5;hb=e60965f49d9b673b981e806180d7da574e1ae17a;hp=afad609936acc69abfceeb6364c64c7bb4693145;hpb=8bb1cdb2042196e72a125024b254c96a72d7c7ef;p=unres.git

diff --git a/source/unres/src-HCD-5D/readrtns_CSA.F b/source/unres/src-HCD-5D/readrtns_CSA.F
index afad609..0f8b08a 100644
--- a/source/unres/src-HCD-5D/readrtns_CSA.F
+++ b/source/unres/src-HCD-5D/readrtns_CSA.F
@@ -3106,6 +3106,7 @@ c Alternative: reading from input
       call reada(controlcard,'DIST_CUT',dist_cut,5.0d0) ! for diff ways of calc sigma
       call reada(controlcard,'DIST2_CUT',dist2_cut,9999.0d0)
       dist1cut=(index(controlcard,'DIST1CUT').gt.0)
+      if (dist1cut)  write(iout,*) 'DIST1CUT is ON'
       call readi(controlcard,"HOMOL_NSET",homol_nset,1)       
       read2sigma=(index(controlcard,'READ2SIGMA').gt.0)
       start_from_model=(index(controlcard,'START_FROM_MODELS').gt.0)