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

diff --git a/source/cluster/unres/src/hc.f b/source/cluster/unres/src/hc.f
index 2e03f24..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,6 +411,7 @@ 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)