From: Cezary Czaplewski Date: Thu, 25 Feb 2016 06:49:58 +0000 (+0900) Subject: default iset in cluster_wham set to 1 X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=fede45206c36d7e88cbd9ebf4e4c77a0987aa513;p=unres.git default iset in cluster_wham set to 1 --- diff --git a/source/cluster/wham/src/readrtns.F b/source/cluster/wham/src/readrtns.F index 0201841..be830b5 100644 --- a/source/cluster/wham/src/readrtns.F +++ b/source/cluster/wham/src/readrtns.F @@ -946,7 +946,7 @@ c Alternative: reading from input call readi(controlcard,"HOMOL_NSET",homol_nset,1) if (homol_nset.gt.1)then - call readi(controlcard,"ISET",iset,homol_nset) + call readi(controlcard,"ISET",iset,1) call card_concat(controlcard) read(controlcard,*) (waga_homology(i),i=1,homol_nset) else