cluster unres

[unres.git] / source / cluster / unres / src / hc.f

diff --git a/source/cluster/unres/src/hc.f b/source/cluster/unres/src/hc.f
index 3788cdb..da10b8f 100644 (file)
--- a/source/cluster/unres/src/hc.f
+++ b/source/cluster/unres/src/hc.f
@@ -282,6 +282,7 @@ C statement was not necessary.                                  C
 C---------------------------------------------------------------C
       SUBROUTINE HCASS(N,IA,IB,CRIT,LEV,ICLASS,HVALS,IORDER,
      X        CRITVAL,HEIGHT)
+      include 'DIMENSIONS'
       include 'sizesclu.dat'
       include 'COMMON.IOUNITS'
       integer ICLASS(maxconf,maxconf-1)
@@ -410,12 +411,15 @@ C  F. Murtagh, ESA/ESO/STECF, Garching, Feb. 1986.C
 C                                                 C 
 C-------------------------------------------------C
       SUBROUTINE HCDEN(LEV,IORDER,HEIGHT,CRITVAL)
+      include 'DIMENSIONS'
       include 'COMMON.IOUNITS'
       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)
+      CHARACTER*1 OUT(3*LEV,3*LEV)
+c      INTEGER UP,ACROSS,BLANK
+      CHARACTER*1 UP,ACROSS,BLANK
       DATA UP,ACROSS,BLANK/'|','-',' '/
 C
 C