fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数？

alog10(eti)=10.79574*(1-t1/t0)-5.02800*alog10(t0/t1)+1.50475*10**(-4)*(1-10**((-8.2969*(t0/t1-1))))+0.42873*10**(-3)*(10**(4.76955*(1-t1/t0))-1)+0.78614

这句你想做什么？
等号左边是alog10(eti) 是一个函数返回值。
等号右边是一个表达式。
你不能让一个函数返回值等于一个表达式。这从逻辑上就是说不通的。
你是想解方程么？

1)另外定义一个实数
real::logeti
2)然后
if .... then
logeti=10.79574*(1-t1/t0)-5.02800*alog10(t0/t1)+1.50475*10**(-4)*(1-10**((-8.2969*(t0/t1-1))))+0.42873*10**(-3)*(10**(4.76955*(1-t1/t0))-1)+0.78614
else
logeti =-9.09685)*(t1/t0-1)-3.56654*alog10(t1/t0)+0.87682*(1-t0/t1)+0.78614
endif
如果需要求
eti

eti=10**logeti