X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fwham%2Fsrc%2Fenergy_p_new.F;h=b6540fb13c05b99ace6cd816bce754281222a498;hb=0926b2763113f3215c92641ca8c495fc5c1cb1bb;hp=d857079aab6250551bc82e40915577cd83d9e78a;hpb=9745a7aaaa8fe4adb0ff5dca81364409c292d40f;p=unres.git

diff --git a/source/wham/src/energy_p_new.F b/source/wham/src/energy_p_new.F
index d857079..b6540fb 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