rmml.net
当前位置:首页 >> FortrAn iostAt >>

FortrAn iostAt

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...

使用一个计数变量用于记录行数,用iostat检查是否出错,如出错则表示read已经到达文件尾,直接跳出并显示行数 例如: program r character (len=100) :: line real :: x(100) integer :: i, n, io open (10, file = 'DATA') n = 0 do read (10, ...

Integer istat Open(12,FIle = ... ) Read(12,*,IOSTAT=istat) if ( istat /= 0 ) then Close( 12 , STATUS = 'DELETE' ) end if

能否补充一下程序和错误信息,光看文字描述是不应该出错。再交流。

表示: 如遇到文件尾部,则跳转至语句标号为 50 的语句执行。 如遇到文件读取错误,则跳转至语句标号为 900 的语句执行。 这种语法不建议使用,新语法来说,建议用 ioStat

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

你直接输入1试试!文件的路径设置了没? 追问: 试过了,没用 回答: 我觉得你的文件怎么那么怪异,是不是那个地方错了,你发个原文过来我试试! 追问: 什么地方?你说,这个好像不能发附件. 回答: 你直接复制原文到上面就OK了,==我再看看 追问...

额外声明一个变量 integer :: err do while(.true.) read(funit, *, iostat=err) x,y if(err0 读取时发生错误 err=0 正常 err

如果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(...

real x,y,c,d,e,finteger ioerroropen(5,file='cycle.txt',status='old')open(6,file='newcycle.txt',status='new')10read(5,*,iostat=ioerror)x,y,c,d,e,fif (ioerror.ne.0) goto 20if (sqrt(x*x+y*y).lt.5) thenwrite(*,100)x,y,c,d,e,fwrite(...

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