test

Sun Studio 12：Fortran 库参考

1.4.48.1 stat：按文件名获取文件状态

该函数的调用方式如下所示：

INTEGER*4 stat

ierr = stat ( name, statb )

name

character*n

输入 

文件的名称 

statb

INTEGER*4

输出 

文件的状态结构，由 13 个元素组成的数组 

返回值 

INTEGER*4

输出 

ierr=0：OK

ierr>0：错误代码

示例 1：stat()：


       character name*18 /’MyFile’/
       INTEGER*4 ierr, stat, lunit/1/, statb(13)
       open( unit=lunit, file=name )
       ierr = stat ( name, statb )
       if ( ierr .ne. 0 ) stop ’stat: error’
       write(*,*)’UID of owner = ’,statb(5),’,
     1   blocks = ’,statb(13)
       end