test

Sun Studio 12：Fortran 库参考

1.4.14.2 ftello64：返回文件的当前位置

该函数的调用方式如下所示：

INTEGER*8 ftello64

n = ftello64( lunit )

lunit

INTEGER*4

输入 

开放的逻辑单元 

返回值 

INTEGER*8

输出 

n≥0：n 为距文件开头的字节偏移量

n<0：n 为系统错误代码

示例：ftello64()：


       INTEGER*8 ftello64, lunit/1/, n
       open( UNIT=lunit, FILE=’MyFile’ )
       ...
       n = ftello64( lunit )
       if ( n .lt. 0 ) stop ’ftell error’
       ...