projects / unres.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 37982ff)
max_template instead of fix number 19 in wham and cluster
authorCezary Czaplewski <czarek@chem.univ.gda.pl>
Thu, 3 Mar 2016 05:51:29 +0000 (06:51 +0100)
committerCezary Czaplewski <czarek@chem.univ.gda.pl>
Thu, 3 Mar 2016 05:51:29 +0000 (06:51 +0100)
source/cluster/wham/src/energy_p_new.F patch | blob | history
source/wham/src/energy_p_new.F patch | blob | history

diff --git a/source/cluster/wham/src/energy_p_new.F b/source/cluster/wham/src/energy_p_new.F
index 1fc05cb..a5ba7fb 100644 (file)
--- a/source/cluster/wham/src/energy_p_new.F
+++ b/source/cluster/wham/src/energy_p_new.F
@@ -3106,7 +3106,7 @@ c
       include 'COMMON.SETUP'
       include 'COMMON.NAMES'
 
-      do i=1,19
+      do i=1,max_template
         distancek(i)=9999999.9
       enddo
 
diff --git a/source/wham/src/energy_p_new.F b/source/wham/src/energy_p_new.F
index e1fcea1..8a1f9c7 100644 (file)
--- a/source/wham/src/energy_p_new.F
+++ b/source/wham/src/energy_p_new.F
@@ -3182,7 +3182,7 @@ c
       include 'COMMON.SETUP'
       include 'COMMON.NAMES'
 
-      do i=1,19
+      do i=1,max_template
         distancek(i)=9999999.9
       enddo
 
UNRESPACK 3.x