X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fgen_rand_conf.F;h=9f5567d32b6b0bbc31cc0a5a9a23bf50ca5b34e5;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=b5e55958fe83e6a79147eaac1d8b16bec4b5c8c6;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/unres/src-HCD-5D/gen_rand_conf.F b/source/unres/src-HCD-5D/gen_rand_conf.F
index b5e5595..9f5567d 100644
--- a/source/unres/src-HCD-5D/gen_rand_conf.F
+++ b/source/unres/src-HCD-5D/gen_rand_conf.F
@@ -281,7 +281,7 @@ c-------------------------------------------------------------------------
       double precision eig_limit /1.0D-8/
       double precision Big /10.0D0/
       double precision vec(3,3)
-      logical lprint,fail,lcheck
+      logical lprint,fail,lcheck,lprn /.false./
       lcheck=.false.
       lprint=.false.
       fail=.false.
@@ -514,10 +514,12 @@ C
       endif
       if (box(1,2).lt.-MaxBoxLen .or. box(2,2).gt.MaxBoxLen) then
 #ifdef MPI
+        if (lprn) then
         write (iout,'(a,i4,a)') 'CG Processor:',me,': bad sampling box.'
         write (*,'(a,i4,a)') 'CG Processor:',me,': bad sampling box.'
+        endif
 #else
-c        write (iout,'(a)') 'Bad sampling box.'
+        if (lprn) write (iout,'(a)') 'Bad sampling box.'
 #endif
         fail=.true.
         return