24小时热门版块排行榜

>论坛更新日志 (3461)
>虫友互识 (636)
>导师招生 (288)
>文献求助 (200)
>休闲灌水 (195)
>考博 (187)
>论文投稿 (124)
>博后之家 (93)
>硕博家园 (87)
>考研 (87)
>教师之家 (47)
>招聘信息布告栏 (45)
>精细化工 (42)
>基金申请 (36)
>公派出国 (34)
>找工作 (28)

返回列表

姚海峰456

银虫 (初入文坛)

应助: 0 (幼儿园)
金币: 160
红花: 2
帖子: 8
在线: 10.9小时
虫号: 1137331
注册: 2010-11-02
专业: 凝聚态物性I:结构、力学和

[求助] fortran 怎么读入文件中的数据

56
1 1
61.001149080613175 -0.000000000000014 -0.000000000000000
-0.000000000000000 64.495177634162630    0.000000000000001
-0.000000000000000    0.000000000000028 10.948330193089291
1 2
-7.106904028710336 -0.562485096405496    0.000000000000000
   0.562127061658834    1.452838053359047    0.000000000000000
-0.000000000000000    0.000000000000001    0.555622125642789
1 3
-1.445969194636234 -0.000000000000000 -0.000000000000000
-0.000000000000000    0.108134686512645    0.000000000000000
-0.000000000000000    0.000000000000000    0.028903817434806
1 4
-7.106904028710336    0.562485096405496 -0.000000000000000
-0.562127061658834    1.452838053359047    0.000000000000000
   0.000000000000000    0.000000000000001    0.555622125642789
2 1
-1.693885854785461 -0.000000000000000 -0.000000000000000
   0.000000000000000    0.241741435628154 -0.000000000000000
-0.000000000000000    0.000000000000000 -0.208563408841332
2 2
0.767523079773841    0.215339247760293    0.000000000000000
   0.243743197032047 -0.535278340052949    0.000000000000000
-0.000000000000000 -0.000000000000000    0.361648979605292
2 3
   1.125419496318242 -0.000000000000000 -0.000000000000000
-0.000000000000000    0.010185728203563 -0.000000000000000
-0.000000000000000    0.000000000000000 -0.098857937488331
2 4
   0.767523079773841 -0.215339247760293 -0.000000000000000
-0.243743197032047 -0.535278340052949    0.000000000000000
   0.000000000000000 -0.000000000000000    0.361648979605292
3 1.............
数据排列一直到4  4，用fortran怎么把上面的数据读进去，如果数据多了，都按照这样的规律排列的话又会怎样读取，望大神指点！Sample Text

回复此楼

» 猜你喜欢

版面费该交吗已经有9人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有13人回复
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？已经有8人回复
面上可以超过30页吧？已经有4人回复
“人文社科而论，许多学术研究还没有达到民国时期的水平” 已经有5人回复
什么是人一生最重要的？已经有4人回复
今年春晚有几个节目很不错，点赞！已经有12人回复

» 本主题相关价值贴推荐，对您同样有帮助:

Fortran数据读入格式的修改已经有5人回复
Fortran的subroutine和function有什么区别，是在于输入输出的特点吗？已经有13人回复
Fortran 编译问题已经有9人回复
Fortran的格式化输入输出问题已经有14人回复
三维数组换行输入到文件（intel fortran 编译器）已经有6人回复
fortran两个问题，文件中的空格，屏幕同一行覆盖输出已经有23人回复
【求助】从文件读入数组遇到困难已经有3人回复
【讨论】怎么从文件的最后一行读数据？已经有4人回复
【求助】Fortran 程序可以直接读取和输出excel文件吗已经有3人回复
【求助】Fortran 如何读取文件中特定行的内容已经有16人回复
【求助】matlab读取fortran输出的txt文件【已解决】已经有3人回复

1楼 2012-10-22 16:13:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

应助: 201 (大学生)
金币: 6482.7
散金: 557
红花: 40
帖子: 3050
在线: 1009.9小时
虫号: 505962
注册: 2008-02-18
专业: 应用地球物理学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
姚海峰456: 金币+15, ★★★很有帮助, 谢谢baobiao007 ，深受启发！！！ 2012-10-22 21:15:39

读前三组的例子如下

program main
implicit none
integer,parameter :: m=3,n=3
integer :: line,d1(m),d2(m),i,j,k
real,dimension(m,n,3) :: a
open(10,file="data2.txt",status='old')
read(10,'(I2)') line
do k=1,3
read(10,'(2I4)') d1(k),d2(k)
read(10,'(3F22.15)') ((a(i,j,k),j=1,n),i=1,m)
end do
close(10)

write(*,*) line
do k=1,3
write(*,'(2I4)') d1(k),d2(k)
write(*,*) '-------------'
write(*,'(3F22.15)') ((a(i,j,k),j=1,n),i=1,m)
end do

end program main

赞一下

回复此楼

我同意叔本华的观点，人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活，逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦

2楼2012-10-22 17:44:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主姚海峰456 的主题更新

返回列表