This name has not been declared as an array or a function

汤晨瑾

帮我看一下，非常感谢！！！

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	real:: n=7

02	real,dimension(1:n)::h_scatter

03	real,dimension(1:n)::hp_scatter=(/0,0,0,0,0,0,0/)

04	real,dimension(1:n)::tp_scatter=(/0,0,0,0,0,0,0/)

05	real,dimension(1:n)::beox_style=(/0,0,0,0,0,1,0/)

06

......

07

do j=1,n

08	if (h_style(j)==1) then

09	h_scatter(j)=0

10	else if(beox_style(j)==1) then

11	hp_water(j-1)=h_water(j-1)+dh_pu

12	tp_water(j-1)=ph(pout_pu,hp_water(j-1))      （t=ph(p,h)通过压力和焓查温度语句应该如何写）

13	t_scatter(j)=tp_water(j-1)

14	h_scatter(j)=ptwater(p_heater(j),t_scatter(j))

15

else

16	h_scatter(j)=hs_heater(j)

17

end

18

end do

19	print*,(h_scatter(j),j=1,n)

error #6410: This name has not been declared as an array or a function.   [H_SCATTER]
error #6410: This name has not been declared as an array or a function.   [HP_WATER]
error #6410: This name has not been declared as an array or a function.   [TP_WATER]
是否是因为当取1时j-1=0，未定义才出错

vvt

1.编译错误先看第一个，后面的一律无视。

2.
real:: n=7
real,dimension(1:n)::h_scatter
这种写法是不允许的，变量不能作为数组大小。（如果要做只能用动态数组）

3.hp_water和 TP_WATER 没有定义为数组，不能作为数组使用。

汤晨瑾

vvt 发表于 2017-3-22 12:57
1.编译错误先看第一个，后面的一律无视。

2.

integer,parameter::n=7
real,dimension(1:n)::h_scatter
real,dimension(1:n)::hp_water=(/0,0,0,0,0,0,0/)
real,dimension(1:n)::tp_water=(/0,0,0,0,0,0,0/)

我看到书上有这样声明的。

汤晨瑾

汤晨瑾 发表于 2017-3-22 13:40
integer,parameter::n=7
real,dimension(1:n)::h_scatter
real,dimension(1:n)::hp_water=(/0,0,0,0,0,0, ...

fortran 90 编程基础 林晓彤主编
integer，parameter::M=3,N=4
integer,dimension::(1:M,1:N)::tem

vvt

integer,parameter::n=7
这是常量
real:: n=7
这是变量
（他们的区别是，有没有 parameter）

汤晨瑾

vvt 发表于 2017-3-22 18:00
integer,parameter::n=7
这是常量
real:: n=7

好的。这个我改过来了。谢谢您！但是显示的错误还是没有声明数组。