| 查看: 1359 | 回复: 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 |
回复此楼» 猜你喜欢
津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名
已经有0人回复
-
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有236人回复
-
【方案分享】单环磁场+轴心控制+偏转导出电子束约束系统（可行性实验）
已经有6人回复
-
【修正版】单环用磁约束低速电子实验方案（简化版）
已经有0人回复
-
桂林理工大学物理学专业招收调剂，还有三个名额！！！
已经有22人回复
-
考博自荐
已经有4人回复
-
山东大学第二批博士研究生招生
已经有0人回复
-
中国科学院东莞材料科学与技术研究所-2026年博士招生-吴昊研究员-磁学与自旋电子学
已经有0人回复
-
《电磁学》教材推荐
已经有1人回复
-
【急招】合肥工大核聚变材料计算方向2026级工程博士生
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
- 专业: 计算数学与科学工程计算
shen6144楼2013-06-07 11:08:07
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
5楼2013-06-07 11:20:13