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

读取编号为105的文件,按照格式串5300进行读取,读取后是否成功的状态保存到eof里面,读取的内容保存在titldum里面。 哥们在学习swat吧?

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

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

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

Program Main Implicit None integer n integer :: GetFileN Open( 12 , File = 'a.txt' ) n = GetFileN( 12 ) Write( * , * ) '共有',n,'行!' Close( 12 ) End Program Main Integer Function GetFileN( iFileUnit ) Implicit None Integer , ...

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

Try on my code. The [read] command in fortran could automatically test the type of input. So it is not necessary to write a IF loop to slow code running speed program enter_int implicit none integer :: ierror, intVal do write(*...

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