Type Disagreement error on Linux using f77

Hi,

The following Fortran code segment works perfectly on a Sun box, but when I tried to compile the same on a Linux box using f77, I got the following error on the marked line :

Line 59:
(IF LMTBE) MTBE = HH(KMTBE)
Type disagreement between expressions at (^) and (^)

Line 60:
(IF LNPHN) NPHN = HH(KNPHN)
Type disagreement between expressions at (^) and (^)

I sincerely appreciate ur help.

Thanks in advance.

Anoop

include 'parchm.cmd'
include 'comchem.cmd'
logical lerror,lin
DIMENSION rate(mxspec), rp(mxspec,mxspec)
dimension hh(mxspec), hr(mxrads)
common /idcell/icell,jcell,kcell,tmchm
REAL NO, NO2, O3, OLE, PAR, TOL, XYL, HCHO, ACET, ETH,
& CRES, MGLY, OPEN, PNA, PAN, CO, HNO2, H2O2, HNO3, ISOP,
& SO2, SULF, MEOH, ETOH, MTBE, NPHN, ALDX, IOLE, PANX, CH4,
& NTR, ISPD, PHCHO, PACET, O1D, O, NO3, N2O5, HO2, OH, C2O3,
& CXO3, XO2, XO2N, TO2, ROR, CRO
c*************************************************
c INPUT OF CONCENTRATION DATA -- PPM UNIT
c*************************************************
SO2 = 0.
SULF = 0.
MEOH = 0.
ETOH = 0.
ISOP = 0.
ISPD = 0.
MTBE = 0.
NPHN = 0.
NO = HH(kNO)
NO2 = HH(kNO2)
OLE = HH(kOLE)
PAR = HH(kPAR)
TOL = HH(kTOL)
XYL = HH(kXYL)
HCHO = HH(kHCHO)
ACET = HH(kACET)
ETH = HH(kETH)
CRES = HH(kCRES)
MGLY = HH(kMGLY)
OPEN = HH(kOPEN)
PNA = HH(kPNA)
PAN = HH(kPAN)
CO = HH(kCO)
HNO2 = HH(kHNO2)
H2O2 = HH(kH2O2)
HNO3 = HH(kHNO3)
IF (LISOP) ISOP = HH(kISOP)
IF (LSO2) SO2 = HH(kSIV)
IF (LSO2) SULF = HH(kSULF)
IF (LMEOH) MEOH = HH(kMEOH)
IF (LETOH) ETOH = HH(kETOH)
IF (LMTBE) MTBE = HH(KMTBE) ********** ERROR
IF (LNPHN) NPHN = HH(KNPHN) ********** ERROR
ALDX = HH(kALDX)
IOLE = HH(kIOLE)
PANX = HH(kPANX)
CH4 = HH(kCH4)
IF (LNITR) NTR = HH(kNITR)
IF (LISOP) ISPD = HH(kISPD)
PHCHO = 0.
PACET = 0.
If (LPHCH) Then
PHCHO = HH(KPHCH)
HCHO = HCHO + PHCHO
PACET = HH(KPACT)
ACET = ACET + PACET
End If
FPF = PHCHO / HCHO
FSF = 1. - FPF
FPA = PACET / ACET
FSA = 1. - FPA
HO2 = HR(kHO2)
OH = HR(kOH)
C2O3 = HR(kC2O3)
CXO3 = HR(kCXO3)
XO2 = HR(kXO2)
XO2N = HR(kXO2N)
TO2 = HR(kTO2)
ROR = HR(kROR)
CRO = HR(kCRO)
kso2 = ksiv
kntr = knitr