24小时热门版块排行榜    

查看: 1635  |  回复: 3

goalry

金虫 (正式写手)

[求助] 【求助】Fortran语言赋值问题?

我想写个能读取数据的小程序,因为数据量多,首先定义几个一维数组,这个一维数组的维数为10000,程序前几行如下,但老是提示对整形变量定义加赋值语句有错误,还请指导一下。

1. 如果这样写程序:
PROGRAM RATIO
INTEGER(NUM=100)
REAL UOC(NUM),ISC(NUM),RS(NUM)
REAL RSH(NUM),FF(NUM),NCELL(NUM)
错误提示:
D:\Analysis\analysis.f90(3) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: :: %FILL , TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX DOUBLEPRECISION ...
INTEGER(NUM=100)
----------------^
Error executing df.exe.

2. 如果这样写程序:
PROGRAM RATIO
INTEGER:: NUM=10000
REAL UOC(NUM),ISC(NUM),RS(NUM)
REAL RSH(NUM),FF(NUM),NCELL(NUM)
错误提示:
D:\Analysis\analysis.f90(3) : Error: This object is not a valid DATA statement object.   [NUM]
INTEGER:: NUM=10000
----------^
D:\Analysis\analysis.f90(3) : Error: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association   [NUM]
INTEGER:: NUM=10000
----------^
D:\Analysis\analysis.f90(4) : Error: An automatic object is invalid in a main program.   [UOC]
REAL UOC(NUM),ISC(NUM),RS(NUM)
-----^
D:\Analysis\analysis.f90(4) : Error: An automatic object is invalid in a main program.   [ISC]
REAL UOC(NUM),ISC(NUM),RS(NUM)
--------------^
D:\Analysis\analysis.f90(4) : Error: An automatic object is invalid in a main program.   [RS]
REAL UOC(NUM),ISC(NUM),RS(NUM)
-----------------------^
D:\Analysis\analysis.f90(5) : Error: An automatic object is invalid in a main program.   [RSH]
REAL RSH(NUM),FF(NUM),NCELL(NUM)
-----^
D:\Analysis\analysis.f90(5) : Error: An automatic object is invalid in a main program.   [FF]
REAL RSH(NUM),FF(NUM),NCELL(NUM)
--------------^
D:\Analysis\analysis.f90(5) : Error: An automatic object is invalid in a main program.   [NCELL]
REAL RSH(NUM),FF(NUM),NCELL(NUM)
----------------------^
Error executing df.exe.

analysis.obj - 8 error(s), 0 warning(s)

我认为以上两种定义变量的同时赋值语句应该没错啊,求解!!

谢谢
回复此楼
君子以自强不息,厚德载物
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhfzh

木虫 (正式写手)

【答案】应助回帖

goalry(金币+5): 再请教下此处不能用符号变量何解?为什么要加个parameter? 2011-07-22 13:47:04
不能用符号变量  INTEGER,PARAMETER::NUM=10000
2楼2011-07-22 12:40:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

goalry

金虫 (正式写手)

引用回帖:
Originally posted by zhfzh at 2011-07-22 12:40:56:
不能用符号变量  INTEGER,PARAMETER::NUM=10000

VERYGOOD!
THANKS A LOT!
君子以自强不息,厚德载物
3楼2011-07-22 13:46:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhfzh

木虫 (正式写手)


zsl_321123(金币+1): 鼓励交流 2011-08-30 22:14:34
数组在定义的时候就分配好空间了 不能改变大小了 用动态数组可以
4楼2011-07-22 17:14:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 goalry 的主题更新
信息提示
请填处理意见