X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fenergy_p_new.F;h=b6540fb13c05b99ace6cd816bce754281222a498;hb=f3fb02dcb801d48f6bdc6f48c78bc8a3a2c7fb97;hp=d857079aab6250551bc82e40915577cd83d9e78a;hpb=5ff7ad0bbfd2c60edf49b10b9f9e6f81ff42a1e2;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