| 查看: 1241 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
tiantian2921新虫 (小有名气)
|
[求助]
文件行数固定（100），列数不固定，怎么用fortran读取文件？已有1人参与
|
||
|
想要用二维数组vn（i，j）i表示数据所在行数，j表示所在列数。这些信息需要。 应该怎么编程实现？ |
回复此楼» 猜你喜欢
博士读完未来一定会好吗
已经有34人回复
-
心脉受损
已经有8人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有9人回复
-
博士申请都是内定的吗？
已经有8人回复
-
读博
已经有5人回复
-
投稿精细化工
已经有4人回复
-
导师想让我从独立一作变成了共一第一
已经有9人回复
-
Springer期刊投稿求助
已经有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人回复
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