24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1702  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿鲁东大学071000生物学学硕初试分数276求调剂 +15 慕绝cc 2026-04-09 19/950 2026-04-09 10:40 by zhjsh86521
[考研] 一志愿武理车辆 281 求调剂 +3 上岸研究生. 2026-04-07 3/150 2026-04-09 10:26 by liuhuiying09
[考研] 289 分105500药学专硕求调剂 +5 白云123456789 2026-04-09 5/250 2026-04-09 09:53 by sujing_jingzi
[考研] 材料调剂 +14 一样YWY 2026-04-06 14/700 2026-04-08 23:00 by 猪会飞
[考研] 材料考研求调剂总分280 +30 mkjlz1 2026-04-06 35/1750 2026-04-08 21:25 by cyh—315
[考研] 287求调剂 +6 Fnhc 2026-04-07 6/300 2026-04-08 10:05 by xingguangj
[考研] 306求调剂 +3 15287505595 2026-04-03 3/150 2026-04-07 18:08 by 蓝云思雨
[考研] 材料求调剂 +18 一样YWY 2026-04-05 18/900 2026-04-07 15:49 by dxlg
[考研] 334分机械专硕求调剂 +3 蛋花紫菜汤 2026-04-03 3/150 2026-04-07 14:49 by 逍遥cocoa
[考研] 生物学调剂 可调剂到生物与医药 +3 李政莹 2026-04-06 3/150 2026-04-06 19:02 by macy2011
[考研] 285求调剂 +8 AZMK 2026-04-04 11/550 2026-04-06 13:56 by BruceLiu320
[考研] 272分求调剂 +4 wangyile2233 2026-04-02 4/200 2026-04-05 22:21 by 286640313
[考研] 一志愿9材料学硕297已过六级求调剂推荐 +11 adaie 2026-04-04 12/600 2026-04-05 19:04 by 蓝云思雨
[考研] 22408 总分320,一篇论文二作,两个国三,求调剂 +3 Leomulufu 2026-04-04 5/250 2026-04-05 19:04 by chongya
[考研] 326求调剂 +3 顾若浮生 2026-04-05 3/150 2026-04-05 18:32 by 蓝云思雨
[考研] 353求调剂 +10 MayUxw1 2026-04-03 10/500 2026-04-05 09:23 by 无际的草原
[考研] 复试调剂 +6 范根培 2026-04-04 6/300 2026-04-04 14:27 by 土木硕士招生
[考研] 材料科学与工程考研 +10 拯救皮特托先生 2026-04-02 10/500 2026-04-03 23:57 by userper
[考研] 081200-11408-276学硕求调剂 +5 崔wj 2026-04-03 5/250 2026-04-03 15:06 by arrow8852
[考研] 285求调剂 +7 AZMK 2026-04-02 9/450 2026-04-03 11:12 by wanwan00
信息提示
请填处理意见