zmiany w MD

diff --git a/source/unres/MD.f90 b/source/unres/MD.f90
index 929337f..4368ce2 100644 (file)
--- a/source/unres/MD.f90
+++ b/source/unres/MD.f90
@@ -4481,7 +4481,7 @@
 !el      common /przechowalnia/ GGinv,gdc,Cmat,nbond
 !el      common /przechowalnia/ nbond
       integer :: max_rattle = 5
-      logical :: lprn = .true., lprn1 = .true., not_done
+      logical :: lprn = .false., lprn1 = .false., not_done
       real(kind=8) :: tol_rattle = 1.0d-5
       integer :: nres2
       nres2=2*nres

diff --git a/source/unres/REMD.f90 b/source/unres/REMD.f90
index 1deb000..fe970be 100644 (file)
--- a/source/unres/REMD.f90
+++ b/source/unres/REMD.f90
@@ -290,7 +290,7 @@
 !#endif
 !      include 'COMMON.IOUNITS'
 !      include 'COMMON.TIME1'
-      logical :: lprn = .true.
+      logical :: lprn = .false.
       logical :: osob
 #ifndef FIVEDIAG
       real(kind=8),dimension(2*nres,2*nres) :: Bmat,matmult