| 查看: 1306 | 回复: 7 | ||
tiantian2921新虫 (小有名气)
|
[求助]
文件行数固定（100），列数不固定，怎么用fortran读取文件？ 已有1人参与
|
|
想要用二维数组vn（i，j）i表示数据所在行数，j表示所在列数。这些信息需要。 应该怎么编程实现？ |
回复此楼» 猜你喜欢
网上报道青年教师午睡中猝死、熬夜猝死的越来越多，主要哪些原因引起的？
已经有8人回复
-
面上可以超过30页吧？
已经有11人回复
-
版面费该交吗
已经有15人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有18人回复
-
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？
已经有10人回复
-
什么是人一生最重要的？
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于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人回复
tiantian2921
新虫 (小有名气)
| 顶 |
2楼2014-10-31 17:38:29
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
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
6楼2014-11-05 14:23:24
tiantian2921
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 640.5
- 红花: 2
- 帖子: 209
- 在线: 90.8小时
- 虫号: 642835
- 注册: 2008-11-01
- 性别: MM
- 专业: 凝聚态物性I:结构、力学和
7楼2014-11-05 15:29:55
pippi6
铁杆木虫 (著名写手)
工程和科学数值计算咨询
- 应助: 413 (硕士)
- 贵宾: 0.002
- 金币: 7116.5
- 散金: 15
- 红花: 63
- 帖子: 1639
- 在线: 798.9小时
- 虫号: 2469437
- 注册: 2013-05-14
- 专业: 计算数学与科学工程计算
8楼2014-11-05 23:03:02