X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fhc.f;fp=source%2Fcluster%2Fwham%2Fsrc-M%2Fhc.f;h=a1a089e430498d663bc48cfeebdc5eb4c7d1fd6c;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=3788cdb1d5b9e9d59b066a16b7a2091cc773847b;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/cluster/wham/src-M/hc.f b/source/cluster/wham/src-M/hc.f
index 3788cdb..a1a089e 100644
--- a/source/cluster/wham/src-M/hc.f
+++ b/source/cluster/wham/src-M/hc.f
@@ -414,8 +414,10 @@ C-------------------------------------------------C
       CHARACTER*80 LINE
       INTEGER IORDER(LEV),HEIGHT(LEV)
       REAL CRITVAL(LEV)
-      INTEGER OUT(3*LEV,3*LEV)
-      INTEGER UP,ACROSS,BLANK
+c      INTEGER OUT(3*LEV,3*LEV)
+c      INTEGER UP,ACROSS,BLANK
+      CHARACTER*1 OUT(3*LEV,3*LEV)
+      CHARACTER*1 UP,ACROSS,BLANK
       DATA UP,ACROSS,BLANK/'|','-',' '/
 C
 C