test

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

1.4.19 getfd: 外部装置番号に対するファイル記述子の取得

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

INTEGER*4 getfd

fildes = getfd( unitn )

unitn

INTEGER*4

入力 

外部装置番号 

戻り値 

INTEGER*4 または INTEGER*8

出力 

ファイルが結合されている場合はファイル記述子、結合されていない場合は -1。64 ビット環境用にコンパイルすると、結果として INTEGER*8 が戻る。

例: getfd():


       INTEGER*4 fildes, getfd, unitn/1/
       open( unitn, file='tgetfd.data' )
       fildes = getfd( unitn )
       if ( fildes .eq. -1 ) stop 'getfd: ファイルは結合されていません'
       write(*,*) 'ファイル記述子 = ', fildes
       end

参照: open(2)