update

[unres.git] / source / unres / src_MD-M-SAXS-homology / chainbuild.F

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 (file)
--- 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