| 查看: 1621 | 回复: 1 | ||
[求助]
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 |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
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人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
姚海峰456: 金币+15, ★★★很有帮助, 谢谢baobiao007 ，深受启发！！！ 2012-10-22 21:15:39
感谢参与，应助指数 +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
30