X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Fhc.f;h=da10b8f573a8b086dd4ac66928ad4a4b1e7ba3f7;hb=bbc592a98c993b8b5fb1b191d0ddf5763ee3516c;hp=3788cdb1d5b9e9d59b066a16b7a2091cc773847b;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git

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