X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fenergy_p_new.F;h=13fe796391da004f0100b8566f4fcacb12fc15d9;hb=a0cfc6ff57ed89f1e892957c94e58ac27587fa5e;hp=003cb2f0cd0dde6e70b3373d9f7bb2ca4633e95c;hpb=5722c4e038d43e97095a107ea4e836898c816253;p=unres.git

diff --git a/source/wham/src/energy_p_new.F b/source/wham/src/energy_p_new.F
index 003cb2f..13fe796 100644
--- a/source/wham/src/energy_p_new.F
+++ b/source/wham/src/energy_p_new.F
@@ -3104,7 +3104,7 @@ c
       include 'COMMON.FFIELD'
       include 'COMMON.CONTROL'
       double precision u(3),ud(3)
-      lprn=.false.
+      logical :: lprn=.false.
       estr=0.0d0
       do i=nnt+1,nct
         diff = vbld(i)-vbldp0