From 7baaf36efbc265e029ec93a4bb1adfadfd55d7bf Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Tue, 21 Jul 2020 13:12:07 +0200 Subject: [PATCH] cluster wham test homo small memory single sco --- .../cluster/wham/src-HCD-5D/read_constr_homology.F | 4 ++-- source/wham/src-HCD-5D/read_constr_homology.F | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/source/cluster/wham/src-HCD-5D/read_constr_homology.F b/source/cluster/wham/src-HCD-5D/read_constr_homology.F index 0b265fa..2a8f127 100644 --- a/source/cluster/wham/src-HCD-5D/read_constr_homology.F +++ b/source/cluster/wham/src-HCD-5D/read_constr_homology.F @@ -257,8 +257,8 @@ c & constr_homology endif sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) else - ii=ii+1 - l_homo(k,ii)=.false. +ct ii=ii+1 +ct l_homo(k,ii)=.false. endif enddo enddo diff --git a/source/wham/src-HCD-5D/read_constr_homology.F b/source/wham/src-HCD-5D/read_constr_homology.F index fa81b80..239a49e 100644 --- a/source/wham/src-HCD-5D/read_constr_homology.F +++ b/source/wham/src-HCD-5D/read_constr_homology.F @@ -259,8 +259,8 @@ c & constr_homology endif sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) else - ii=ii+1 - l_homo(k,ii)=.false. +ct ii=ii+1 +ct l_homo(k,ii)=.false. endif enddo enddo -- 1.7.9.5