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

回复此楼

» 猜你喜欢

反铁磁体中的磁性切换：两种不同的机制已成功可视化已经有0人回复
求标准粉末衍射卡号 ICDD 01-076-1802 已经有0人回复
物理学I论文润色/翻译怎么收费? 已经有282人回复
新西兰Robinson研究所招收全奖PhD 已经有0人回复
石墨烯转移--二氧化硅衬底石墨烯已经有0人回复
笼目材料中量子自旋液体基态的证据已经有0人回复
数学教学论硕士可以读数学物理博士吗？已经有0人回复
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生已经有4人回复
澳门大学应用物理及材料工程研究院潘晖教授课题组诚招博士后已经有11人回复

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

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