test

Sun Studio 12: Fortran ライブラリ・リファレンス

1.4.48.2 fstat: 論理装置によるファイルの状態の取得

関数

INTEGER*4 fstat

ierr = fstat ( lunit, statb )

lunit

INTEGER*4

入力 

論理装置番号 

statb

INTEGER*4

出力 

ファイル状態の情報が格納される要素数 13 の配列 

戻り値 

INTEGER*4

出力 

ierr=0: 正常

ierr>0: エラーコード

関数は、次のように呼び出します。

例 2: fstat():


       character name*18 /'MyFile'/
       INTEGER*4 fstat, lunit/1/, statb(13)
       open( unit=lunit, file=name )
       ierr = fstat ( lunit, statb )
       if ( ierr .ne. 0 ) stop 'fstat: error'
       write(*,*)'所有者の UID = ',statb(5),',
     1      ブロック数 = ',statb(13)
       end