24小时热门版块排行榜

返回列表

shen614

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 147
帖子: 5
在线: 3.8小时
虫号: 1519344
注册: 2011-12-01
专业: 化工热力学和基础数据

[求助] fortran 从文件读入问题很基础

没有FORTRAN基础
想从文件里面读取数据

程序
WRITE(*,*) 'The Input Filename=?  '
      READ(*,999) FILE1

999    format(a12)
      OPEN(1,FILE=FILE1)
      read(1,*) npp,nppp
      read(1,*) (zong(i),i=1,2)
      read(1,*) (const(i),i=1,npp)
      read(1,*) (para(i),i=1,nppp)
      read(1,*) ((p(i,j),j=1,3),i=1,4)
      read(1,*) err

      ENDFILE 1

数据文件 a.txt
9,14
4.52,7.39
1,18,273,6000,1337,40500,0.25,0.1,0.2
3.9724,1.2322,-1.8977,-1.8977,0.5056,1.0387,-0.5280,-0.5280,2.02,-0.4962,0,0,298.15,10**-3
6.46,3.62,2.04,6.56,3.72,2.14,6.66,3.82,2.24,6.34,3.52,1.94
10**-6

但是老是出现 run-time error F6501:READ(a)-end of file encountered

回复此楼

» 猜你喜欢

26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！已经有1人回复
如何从铁电相到顺电相。已经有1人回复
物理学I论文润色/翻译怎么收费? 已经有280人回复
各位大佬，求一份最新Wien2k版本作为学习用途已经有0人回复
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后已经有36人回复
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向已经有24人回复
PRB投稿，Acknowledgment sent to author状态十天了已经有3人回复
PVA溶解已经有1人回复
基金申请已经有44人回复

» 本主题相关价值贴推荐，对您同样有帮助:

fortran文件操作，接着写不覆盖已经有3人回复
FORTRAN中如何实现重复读取一行？已经有24人回复
fortran，带字符的数据读取与存储！已经有11人回复
FORTRAN 读取文件数据出错已经有6人回复
Fortran数据读入格式的修改已经有5人回复
Fortran的subroutine和function有什么区别，是在于输入输出的特点吗？已经有13人回复
Fortran如何读取数据避开空行？已经有7人回复
FORTRAN 基础知识讲解已经有21人回复
如何运行Fortran编译好的exe并自动输入文已经有11人回复
Fortran的格式化输入输出问题已经有14人回复
三维数组换行输入到文件（intel fortran 编译器）已经有6人回复
【求助】FORTRAN读取文本文件已经有9人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗已经有3人回复
【求助】Fortran 如何读取文件中特定行的内容已经有16人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复

1楼 2013-06-07 10:30:05

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

应助: 413 (硕士)
贵宾: 0.002
金币: 7116.5
散金: 15
红花: 63
帖子: 1639
在线: 798.9小时
虫号: 2469437
注册: 2013-05-14
专业: 计算数学与科学工程计算

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
dbb627: 金币+2, 谢谢指导 2013-06-07 19:54:40

READ(*,999) FILE1
999    format(a12)
可以不要。然后
OPEN(1,FILE=‘a.txt’)
      read(1,*) npp,nppp
         read(1,*) (zong(i),i=1,2)
      read(1,*) (const(i),i=1,npp)
      read(1,*) (para(i),i=1,nppp)
      read(1,*) ((p(i,j),j=1,3),i=1,4)
      read(1,*) err
close（1）
如果数据个数对，就应该可以

赞一下

回复此楼

2楼2013-06-07 10:44:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

shen614

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 147
帖子: 5
在线: 3.8小时
虫号: 1519344
注册: 2011-12-01
专业: 化工热力学和基础数据

引用回帖:

2楼: Originally posted by pippi6 at 2013-06-07 10:44:12
READ(*,999) FILE1
999    format(a12)
可以不要。然后
OPEN(1,FILE=‘a.txt’)
      read(1,*) npp,nppp
         read(1,*) (zong(i),i=1,2)
      read(1,*) (const(i),i=1,npp)
      ...

还是不行啊
数据个数是对的啊，贴在上面了呀
和输入格式有关嘛？
而且有不同的数据的，不能每次改程序，会很烦的

赞一下

回复此楼

3楼2013-06-07 10:53:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖