| 查看: 1208 | 回复: 6 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
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 |
回复此楼» 猜你喜欢
求助VISSIM破解版软件
已经有0人回复
-
求2026年在台湾举行的物理和材料领域国际学术会议信息
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有72人回复
-
求国际会议网站
已经有1人回复
-
求取一些关于纳米材料和纳米技术相关的英文PPT。
已经有0人回复
-
【复旦大学】二维材料方向招收2026年博士研究生1名
已经有0人回复
-
北京纳米能源与系统研究所 王中林院士/曹南颖研究员课题组2026级硕/博/博后招生
已经有10人回复
-
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生
已经有19人回复
-
反铁磁体中的磁性切换：两种不同的机制已成功可视化
已经有0人回复
-
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
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人回复
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
6楼2013-06-07 11:24:34
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
【答案】应助回帖
★ ★
感谢参与，应助指数 +1
dbb627: 金币+2, 谢谢指导 2013-06-07 19:54:40
感谢参与，应助指数 +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
3楼2013-06-07 10:53:12
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
shen6144楼2013-06-07 11:08:07