| 查看: 1920 | 回复: 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) 我认为以上两种定义变量的同时赋值语句应该没错啊，求解！！ 谢谢 |
回复此楼» 猜你喜欢
青基已中
已经有1人回复
-
散金币祈福
已经有186人回复
-
物理学I论文润色/翻译怎么收费?
已经有296人回复
-
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布
已经有1人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
深圳大学应用技术学院招聘凝聚态物理博士后
已经有109人回复
-
深圳大学2027级光电信息工程/物理学研究生推免
已经有64人回复
-
求助中医院临床中医中标的青年标书学习，谢谢
已经有4人回复
-
浙大物院表面物理课题组长期招收普博及直博学生
已经有13人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手入门，如何理解计算机编程
已经有8人回复
- allocate与data共存的问题
已经有14人回复
- FORTRAN 基础知识讲解
已经有21人回复
- 求助Fortran编程
已经有8人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 注册化工工程师
已经有10人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】有很多错误的程序，找不出来了
已经有18人回复
- 【求助】大家谈谈对注册环保工程师的了解
已经有15人回复
- 【信息】环保工程师报考条件
已经有11人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
zhfzh
木虫 (正式写手)
- 应助: 19 (小学生)
- 金币: 6620.5
- 散金: 200
- 红花: 4
- 帖子: 685
- 在线: 665小时
- 虫号: 715595
- 注册: 2009-03-05
- 专业: 原子和分子物理
2楼2011-07-22 12:40:56
goalry
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 850.9
- 散金: 22
- 帖子: 317
- 在线: 38.3小时
- 虫号: 446377
- 注册: 2007-10-29
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
3楼2011-07-22 13:46:13
zhfzh
木虫 (正式写手)
- 应助: 19 (小学生)
- 金币: 6620.5
- 散金: 200
- 红花: 4
- 帖子: 685
- 在线: 665小时
- 虫号: 715595
- 注册: 2009-03-05
- 专业: 原子和分子物理
4楼2011-07-22 17:14:23
10