24小时热门版块排行榜    

查看: 1891  |  回复: 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的回帖

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的回帖
查看全部 4 个回答

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的回帖

zhfzh

木虫 (正式写手)


zsl_321123(金币+1): 鼓励交流 2011-08-30 22:14:34
数组在定义的时候就分配好空间了 不能改变大小了 用动态数组可以
4楼2011-07-22 17:14:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 青基如何破局 +3 lyz123lyz 2026-08-27 4/200 2026-08-27 13:08 by kulium
[基金申请] 基金不中,共勉 +8 eulota 2026-08-26 8/400 2026-08-27 12:34 by lice_1987
[基金申请] 基金未中,这种答复是模板吗? +4 zhaosm1982 2026-08-27 5/250 2026-08-27 12:17 by zhaosm1982
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 LIbGuocjEEYw 2026-08-26 4/200 2026-08-27 02:01 by Ie9AyIAvGbvs
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7 process2012 2026-08-23 10/500 2026-08-26 19:23 by hmhminy
[基金申请] 范进中举一文的中心思想 +9 炎黄贵胄 2026-08-22 10/500 2026-08-26 15:40 by semaglutide
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +4 yuleib84 2026-08-26 5/250 2026-08-26 13:40 by yuleib84
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[基金申请] 国合现在查不到了吗? +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 牛来!米来!面来! +8 beefly 2026-08-26 8/400 2026-08-26 08:37 by xuzhipiao
[基金申请] 在坚冰还盖着北海的时候,我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 时间戳今天,20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
信息提示
请填处理意见