| 查看: 1321 | 回复: 7 | ||
tiantian2921新虫 (小有名气)
|
[求助]
文件行数固定（100），列数不固定，怎么用fortran读取文件？ 已有1人参与
|
|
想要用二维数组vn（i，j）i表示数据所在行数，j表示所在列数。这些信息需要。 应该怎么编程实现？ |
回复此楼» 猜你喜欢
一志愿西南交通 专硕 材料355 本科双非 求调剂
已经有3人回复
-
295复试调剂
已经有4人回复
-
298-一志愿中国农业大学-求调剂
已经有8人回复
-
材料学硕297已过四六级求调剂推荐
已经有4人回复
-
能源材料化学课题组招收硕士研究生8-10名
已经有14人回复
-
0856调剂，是学校就去
已经有8人回复
-
材料080500调剂求收留
已经有5人回复
-
271材料工程求调剂
已经有7人回复
-
265求调剂
已经有8人回复
-
085410人工智能专硕317求调剂（0854都可以）
已经有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
