24小时热门版块排行榜    

查看: 1475  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 大学老师 +11 考研一路顺风 2024-11-13 14/700 2024-11-15 15:24 by LNP@mRNA
[基金申请] 变性人申请基金咋算性别? +21 leicahfs 2024-11-11 21/1050 2024-11-15 14:54 by 跳鱼拨刺
[基金申请] 博后资助名单出来了 +12 Shxjjxjkx 2024-11-14 14/700 2024-11-15 14:40 by fanfenggui
[教师之家] 评正教授需要两个国家级项目,有人用子课题糊弄,结果在评审前资格公示时被举报拿下了 +21 瞬息宇宙 2024-11-12 30/1500 2024-11-15 14:10 by sh0210210327
[硕博家园] 实验进度 +9 麻辣烫。 2024-11-11 14/700 2024-11-15 13:14 by hanweiguo
[硕博家园] reject后小感 +6 sioc-sunj 2024-11-14 8/400 2024-11-15 11:50 by 畅21
[论文投稿] 论文返修状态变成了awaiting AE recommendation 10+3 猪小耍 2024-11-13 12/600 2024-11-15 08:41 by 北京莱茵润色
[论文投稿] 国内期刊审稿人数量 +3 新时代核动力驴 2024-11-13 4/200 2024-11-15 06:33 by steven_198377
[论文投稿] chemical science和advanced science哪个好一点 +5 yly150 2024-11-12 5/250 2024-11-15 01:09 by ca0yan9
[论文投稿] OE返修遇到expired +3 隔壁老王来了 2024-11-14 7/350 2024-11-14 20:46 by 隔壁老王来了
[有机交流] 同一个反应回流情况不同 20+3 1853846 2024-11-12 3/150 2024-11-14 15:42 by 太阳谷
[基金申请] 76批博后基金 +3 feiyi3986 2024-11-14 3/150 2024-11-14 11:50 by puly
[有机交流] 硫谜用双氧水氧化出现的困惑(老板说一定要用双氧水氧化做好)求指教 10+4 luowenwu 2024-11-10 15/750 2024-11-14 10:52 by luolinfeng
[基金申请] 博后面上出结果了 +5 wl87925139 2024-11-14 5/250 2024-11-14 10:26 by kingmax18996
[论文投稿] 要不要撤稿另投 10+4 wangzhesd 2024-11-09 8/400 2024-11-14 09:09 by LIU_V
[论文投稿] 二审审一年的佛系编辑 +10 thefoxrain 2024-11-09 15/750 2024-11-12 19:27 by lide966
[论文投稿] 投稿求助 40+3 liukun11 2024-11-12 4/200 2024-11-12 19:13 by liukun11
[论文投稿] 论文接受后,编辑部发邮件提醒缺少附件 15+4 上善若水明泪 2024-11-10 4/200 2024-11-12 14:24 by 北京莱茵润色
[论文投稿] 爱思唯尔投稿系统里的通讯作者可以和文章里的通讯作者标注不同吗 +7 Omnissiah 2024-11-10 7/350 2024-11-12 14:07 by holypower
[基金申请] 要求论文发表日期在项目执行期内,论文发表日期是在线日期还是见刊日期 +6 Jiangnanyu1 2024-11-09 7/350 2024-11-10 17:49 by jurkat.1640
信息提示
请填处理意见