Fortran语言的REWIND和BACKSPACE 函数 Fortran语言的REWIND和BACKSPACE 在早期的FORTRAN规范和编译器中,BACKSPACE和REWIND的确与顺序存贮设备--比如磁带机--有关。后来,变成设备无关的语句。但是,可能与文件模式有关。 REWIND现在仍然很常用。假如您的程序需要两遍读入同一个文本格式数据文件,当您读完第一遍后,用REWIND...
Fortran中常见的文件操作函数包括: OPEN:用于打开一个文件以进行读取或写入操作。 CLOSE:用于关闭一个打开的文件。 READ:用于从文件中读取数据。 WRITE:用于向文件中写入数据。 INQUIRE:用于获取有关文件的信息,如文件大小、文件是否存在等。 BACKSPACE:用于将文件指针退回到上一个位置。 REWIND:用于将文件指针移动到...
REWIND命令:将文件指针指回文件开头。 BACKSPACE命令:将文件指针回退一个记录位置(一般是回到上一行) 两个命令的参数均为UNIT号。 例子:从文件读数据 一个例子:从文件中读取数据。数据分三行,第1行有5个整数、第2行3个、第3行2个。我们使用隐式DO循环读入数据。 PROGRAM EXAM_502 IMPLICIT NONE INTEGER*8 T...
4 .Fortran程序定位文件指针到结尾 将文件指针调整到文件头可以用rewind()函数 将文件指针调整到文件结尾:可用于判断文件是否完整:在文件结尾设置结尾标记符号,如果遍历一次文件,到结尾时都没有发现”结尾标记“,说明文件不完整。 character bufferdoread(1,"(A)",iostat=stat1) bufferif(stat1/=0) exit !when fi...
2019-12-19 11:53 − before和after,前者是在元素之前插入东西,后者是在元素后面插入东西,但插入的东西不仅仅只是文字而已,还有图标,以及计算器的操作。 由于两者的操作基本一样,这里以before为例 ### 插入文字 ```html p:nth-child(1)::... 司徒炼 0 1229 python_正则表达式 2019-12-22 21:37 ...
13 Rewind( iFileUnit ) 14 Do 15 Read( iFileUnit , * , ioStat = ioS ) cDummy 16 if ( ioS /= 0 ) Exit 17 GetFileN = GetFileN + 1 18 End Do 19 Rewind( iFileUnit ) 20 Return 21 end function GetFileN 1. 2. 3. 4.
调用后读取位置返回文件起始位置 Implicit None Integer , Intent( IN ) :: iFileUnit character( Len = 1 ) :: cDummy integer :: ierr GetFileN = 0 Rewind( iFileUnit ) Do Read( iFileUnit , * , ioStat = ierr ) cDummy If( ierr /= 0 ) Exit GetFileN = GetFileN + 1 End Do Rewind(...
REWIND(u,ERR=LABEL,IOSTAT=iocheck) 1. u, 文件编号 ERR=LABEL遇到错误转到LABEL语句 IOSTAT=iocheck返回文件打开的状态,见OPEN语句。 BACKSPACE语句 Backspace语句用于在文件数据操作中,从当前数据位置回退到上一个数据位置。 其语句格式为: BACKSPACE(UNIT=number,ERR=errlabel,IOSTAT=iostat) ...
REWIND语句:将文件照常重新定位到数据的开头。 2.4 流 I/O f95中实现了 Fortran 2003 标准“流”I/O 的新方案 。流 I/O 访问将数据文件视作连续的字节序列,用从 1 开始的正整数来寻址。可用OPEN语句中的ACCESS=’STREAM’说明符来声明流 I/O 文件。字节地址文件定位要求READ或WRITE语句中有POS=scalar_integ...
REWIND REWIND(UNIT=unit) 从文件头重新开始文件。 过程 外部过程:把每个子任务作为独立的程序单元进行编码。 两种外部过程:子例程和函数子程序(函数)。 子例程 CALL语句使用过程名调用,格式如下: 定义: SUBROUTINE subroutine_name (argument_list) ... ...