From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Sun, 20 May 2012 21:36:29 +0000 (+0200)
Subject: cluster/wham  hc.f gfortran fix
X-Git-Tag: v.3.3.0~5^2~268
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=739afc5a1413bc2a9e6331579bab18b503df1952;p=unres.git

cluster/wham  hc.f gfortran fix
---

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
diff --git a/source/cluster/wham/src/hc.f b/source/cluster/wham/src/hc.f
index 3788cdb..a1a089e 100644
--- a/source/cluster/wham/src/hc.f
+++ b/source/cluster/wham/src/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