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: file not connected’
       write(*,*) ’file descriptor = ’, fildes
       end

另请参见 open(2)。