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 (file)
--- 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