From b4c5bfcd0ed469a966fa058046bd0904f178e8e1 Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Sun, 20 May 2012 23:36:29 +0200 Subject: [PATCH] cluster/wham hc.f gfortran fix --- source/cluster/wham/src-M/hc.f | 6 ++++-- source/cluster/wham/src/hc.f | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/source/cluster/wham/src-M/hc.f b/source/cluster/wham/src-M/hc.f index 3788cdb..a1a089e 100644 --- a/source/cluster/wham/src-M/hc.f +++ b/source/cluster/wham/src-M/hc.f @@ -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) +c INTEGER UP,ACROSS,BLANK + CHARACTER*1 OUT(3*LEV,3*LEV) + CHARACTER*1 UP,ACROSS,BLANK DATA UP,ACROSS,BLANK/'|','-',' '/ C C diff --git a/source/cluster/wham/src/hc.f b/source/cluster/wham/src/hc.f index 3788cdb..a1a089e 100644 --- a/source/cluster/wham/src/hc.f +++ b/source/cluster/wham/src/hc.f @@ -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) +c INTEGER UP,ACROSS,BLANK + CHARACTER*1 OUT(3*LEV,3*LEV) + CHARACTER*1 UP,ACROSS,BLANK DATA UP,ACROSS,BLANK/'|','-',' '/ C C -- 1.7.9.5