test

Sun Studio 12：Fortran 库参考

1.4.13.2 ftell：返回文件的当前位置

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

INTEGER*4 ftell

n = ftell( lunit )

lunit

INTEGER*4

输入 

开放的逻辑单元 

返回值 

INTEGER*4

输出 

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

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

示例：ftell()：


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

示例：同上，但在 64 位环境中，使用 -m64 编译：


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

另请参见 fseek(3S) 和 perror(3F) 以及 fseeko64(3F) 和 ftello64(3F)。