| 查看: 1490 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
tiantian2921新虫 (小有名气)
|
[求助]
文件行数固定（100），列数不固定，怎么用fortran读取文件？ 已有1人参与
|
|
|
想要用二维数组vn（i，j）i表示数据所在行数，j表示所在列数。这些信息需要。 应该怎么编程实现？ |
回复此楼» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有85人回复
-
感觉是下周放榜了
已经有9人回复
-
filecode=后面第一个是大写字母
已经有10人回复
-
时间戳变了，能看出什么问题？
已经有4人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有15人回复
-
今天系统多次维护，明天很可能放榜！
已经有9人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于FORTRAN使用DAT文件
已经有5人回复
- Fortran读取dat文件求助
已经有4人回复
- Fortran怎么从一个dat文件中读取不同类型数据赋值给不同的变量？
已经有8人回复
- Fortran有扩展名为n的文件吗？
已经有5人回复
- Fortran如何读取不确定行数的数据
已经有3人回复
- fortran里面如何表达连续的整数数列？
已经有6人回复
- 用fortran怎么读.CSV文件
已经有11人回复
- fortran数组输出，行与列请教
已经有7人回复
- fortran文件操作，接着写不覆盖
已经有3人回复
- 200多个txt文件matlab读取问题
已经有18人回复
- 又来求助啦，fortran里使用多文件，其中的子程序文件怎么观察参数值啊？
已经有3人回复
- Fortran 90格式的源文件里面可以粘贴Fortran 77格式的子例程吗？
已经有4人回复
- Fortran有EOF文件结尾么？
已经有7人回复
- fortran两个问题，文件中的空格，屏幕同一行覆盖输出
已经有23人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】FORTRAN读取文本文件
已经有9人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】下面这个公式怎么用FORTRAN实现
已经有7人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
- 【求助】如何实现编写的fortran程序让别人使用，但不让别人知道源代码
已经有6人回复
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
8楼2014-11-05 23:03:02
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
tiantian2921: 金币+20, ★★★很有帮助, 谢谢！有事晚回复了。测试后可行的话，再做回贴说明。 2014-11-05 10:32:02
感谢参与，应助指数 +1
tiantian2921: 金币+20, ★★★很有帮助, 谢谢！有事晚回复了。测试后可行的话，再做回贴说明。 2014-11-05 10:32:02
|
我做了一个sample文件（10行），你可以很容易改成任意行而不失一般性，姑且叫做 test.dat 1.0 1.0 2.0 1.0 2.0 3.0 1.0 2.0 3.0 4.0 1.0 2.0 3.0 4.0 5.0 1.0 2.0 3.0 4.0 5.0 6.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 Fortran code如下 subroutine TestRead implicit none integer,parameter :: n=20,m=10 integer :: i,j real*8, dimension(m,n) :: vn open(22,file='test.dat') do i=1,m print*,' i=',i read(22,4,advance='yes',eor=2) (vn(i,j),j=1,n) 2 continue end do close(22) do i=1,m print"(<n> f10.5)", (vn(i,j),j=1,n) end do 4 format( <n> f4.2) end subroutine TestRead 你可以适当修改参数，以适应你的需求。不知道这是否是你要的 |
3楼2014-11-01 00:07:56
tiantian2921
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 640.5
- 红花: 2
- 帖子: 209
- 在线: 90.8小时
- 虫号: 642835
- 注册: 2008-11-01
- 性别: MM
- 专业: 凝聚态物性I:结构、力学和
4楼2014-11-05 11:36:30
tiantian2921
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 640.5
- 红花: 2
- 帖子: 209
- 在线: 90.8小时
- 虫号: 642835
- 注册: 2008-11-01
- 性别: MM
- 专业: 凝聚态物性I:结构、力学和
5楼2014-11-05 11:41:25
