bugfix przekroczenia granic

[unres.git] / source / unres / src_MD-M / parmread.F

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 29c5dec..61b17cc 100644 (file)
--- a/source/unres/src_MD-M/parmread.F
+++ b/source/unres/src_MD-M/parmread.F
@@ -1140,7 +1140,7 @@ C
         bad(i,1)=-2*eps_scp(i,1)*rscp(i,1)**6
         bad(i,2)=-2*eps_scp(i,2)*rscp(i,2)**6
       enddo
-
+      lprint=.true.
       if (lprint) then
         write (iout,*) "Parameters of SC-p interactions:"
         do i=1,ntyp
@@ -1148,6 +1148,7 @@ C
      &     eps_scp(i,2),rscp(i,2),aad(i,1),bad(i,1),aad(i,2),bad(i,2)
         enddo
       endif
+      lprint=.false.
 #endif
 C
 C Define the constants of the disulfide bridge