X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-SAXS-homology%2Fchainbuild.F;h=9f7e4ac1c5476120a5b1456204c1009268c976ab;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=8bb76a0367496bf7fd1d0b719348121da147ceb0;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/unres/src_MD-M-SAXS-homology/chainbuild.F b/source/unres/src_MD-M-SAXS-homology/chainbuild.F
index 8bb76a0..9f7e4ac 100644
--- a/source/unres/src_MD-M-SAXS-homology/chainbuild.F
+++ b/source/unres/src_MD-M-SAXS-homology/chainbuild.F
@@ -41,6 +41,7 @@ C
       include 'COMMON.INTERACT'
       double precision e1(3),e2(3),e3(3)
       logical lprn,perbox,fail
+      lprn=.false.
 
 c      write (iout,*) "Calling chainbuild_extconf"
       call orig_frame