rmml.net
当前位置:首页 >> FortrAn 如何判断数据读完 >>

FortrAn 如何判断数据读完

Give me the file you'd love to read and I can give the exact answer to you A common solution to read to the end of file is like this:(if the end of the file is the word 'end') character(len=80) :: fline open(unit=110,file='file...

integer:: end read (1, iostat= end) if (end

如果txt中数据是一个数据一行,txt文件名是1.txt的情况下: program abc implicit none integer i integer j[18] logical var open(unit=1,file='1.txt') j=0 do while(.true.) read(1,*,iostat=var) i select case(i) case(1) j(1)=j(1)+1 case(...

你的问题是非计算机专业学工程计算的学生最最最常问的问题之一。 下面凭我个人的经验进行回答。 ①光靠fortran对xls文件直接进行读写,是非常难解决这个问题的。 因xls文件是一个十分复杂的格式,采用直接读取的方式非常变态,基本是没有人会这样...

一直读,直到结束为止。 结束可用 iostat 判断

执行下面的程序试试。program n implicit none real :: particle(2440,4) integer :: i,j open(unit=10,file='E:\核\WS\B.txt',status='old') do i=1,2440 read(10,*)(particle(i,j),j=1,4) end do close(10) write(*,*)particle(5,4)stopend

这是一个基本操作。如果你这么问,我建议你系统的阅读一本教科书。 以下是通用的格式: Open( 12 , File = 文件名 ) Read( 12 , * ) 数组 Close( 12 ) 但具体你的文件是什么样子,是文本文件,还是二进制文件?文本文件是成列的,还是成块的?数...

open 后面的文件名可以带路径(相对路径或绝对路径均可) open( 12 , file = 输入文件 ) open( 13 , file = "nnode\输出文件1" ) open( 14 , file = "nline\输出文件2" ) .... ... 不同的通道号代表不同文件,向里面对应的 read 或 write 既可。...

循环读取文件中的数据,用计数器计数,用iostat判断是否到文件尾。

! read data implicit none integer,parameter:: nx=20,ny=40 integer ix,iy,fx(nx,ny) open(11,file='t.txt') ! 把 t.txt 改为你要打开的txt文件的名称 fx=0 do iy=1,ny read(11,*) (fx(ix,iy),ix=1,nx) end do close(11) stop end

网站首页 | 网站地图
All rights reserved Powered by www.rmml.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com