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：OK

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 of owner = ’,statb(5),’,
     1      blocks = ’,statb(13)
       end