| 查看: 1712 | 回复: 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) 我认为以上两种定义变量的同时赋值语句应该没错啊，求解！！ 谢谢 |
回复此楼» 猜你喜欢
基底STO,薄膜SRO，XRD里面的振荡，是laue震荡还是kiessig振荡? 怎么判断？
已经有2人回复
-
B区学生调剂-兰州交通大学材料科学与工程学院
已经有12人回复
-
物理学I论文润色/翻译怎么收费?
已经有189人回复
-
山西大同大学物理学专业还有调剂名额，欢迎调剂！
已经有13人回复
-
桂林理工大学物理学专业招收调剂
已经有17人回复
-
VASP 的一组 GPU / CPU 基准测试记录
已经有0人回复
-
此贴已删除
已经有7人回复
-
津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名
已经有0人回复
-
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树
已经有0人回复
-
【方案分享】单环磁场+轴心控制+偏转导出电子束约束系统（可行性实验）
已经有1人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 新手入门，如何理解计算机编程
已经有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
20