Cluster/unres modified to read MD coordinates in CX format, also from multiple files.

[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 2e03f24..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,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)