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

回复此楼

» 猜你喜欢

【急招】合肥工大核聚变材料计算方向2026级工程博士生已经有4人回复
大豆异黄酮分离已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有131人回复
湖南大学材料学院急招2026年博士生，临时增加一名博士联培指标已经有10人回复
天津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生1-2名已经有1人回复
中国科学院物理研究所谌志国研究员团队招收2027年博士研究生已经有4人回复
2026年中德博士后交流项目 - 新型量子和磁性材料：材料制备表征和中子散射研究已经有12人回复
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！已经有1人回复

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

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