fix for gfortran build of source/cluster/unres
authorDawid Jagiela <lightnir@chem.univ.gda.pl>
Fri, 18 May 2012 10:08:31 +0000 (12:08 +0200)
committerDawid Jagiela <lightnir@chem.univ.gda.pl>
Fri, 18 May 2012 10:08:31 +0000 (12:08 +0200)
source/cluster/unres/src/hc.f

index 3788cdb..2e03f24 100644 (file)
@@ -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)
+      CHARACTER*1 OUT(3*LEV,3*LEV)
+c      INTEGER UP,ACROSS,BLANK
+      CHARACTER*1 UP,ACROSS,BLANK
       DATA UP,ACROSS,BLANK/'|','-',' '/
 C
 C