From 64b0c5822d976031125efd68857ec66056ff4a0e Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Thu, 3 Mar 2016 06:51:29 +0100 Subject: [PATCH] max_template instead of fix number 19 in wham and cluster --- source/cluster/wham/src/energy_p_new.F | 2 +- source/wham/src/energy_p_new.F | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/source/cluster/wham/src/energy_p_new.F b/source/cluster/wham/src/energy_p_new.F index 1fc05cb..a5ba7fb 100644 --- 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 --- 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 -- 1.7.9.5