fortran定义数组问题

drunkzui

program bb
implicit none
real,parameter::a=17.269,b=35.86,cp=1004,g=9.8
real::z=35.2,t0=291.56,pz=1003.5,td0=291.07,ez,thea,qz,pl,tl,el,ql,zl
integer::rh=97,n
ez=6.1078*exp((a*(td0-273.16))/(td0-b))
thea=t0*(1000/pz)**0.286
qz=((0.622*ez)/(pz-0.378*ez))
pl=300
tl=thea(1000/pl)**(-0.286)
el=6.1078*exp((a*(tl-273.16))/(tl-b))
ql=((0.622*el)/(pl-0.378*el))
n=1

第十行提示我This name has not been declared as an array.   [THEA]
tl=thea(1000/pl)**(-0.286)
---^
要怎么做啊，求助大佬们

green7

theau是一个实型数，第7行是计算公式。
第10行它后边出现括号，肯定是错了啊，一个变量后怎么跟括号呢，又不是函数。

drunkzui

green7 发表于 2021-10-9 13:12
theau是一个实型数，第7行是计算公式。
第10行它后边出现括号，肯定是错了啊，一个变量后怎么跟括号呢，又 ...

谢谢懂了！