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 エラー'
       ...