该函数的调用方式如下所示:
|
ierr = lstat ( name, statb ) |
|||
|
name |
character*n |
输入 |
文件名 |
|
statb |
INTEGER*4 |
输出 |
文件夹的状态数组,共 13 个元素 |
|
返回值 |
INTEGER*4 |
输出 |
ierr=0:OK ierr>0:错误代码 |
示例 3:lstat():
character name*18 /’MyFile’/
INTEGER*4 lstat, lunit/1/, statb(13)
open( unit=lunit, file=name )
ierr = lstat ( name, statb )
if ( ierr .ne. 0 ) stop ’lstat: error’
write(*,*)’UID of owner = ’,statb(5),’,
1 blocks = ’,statb(13)
end
|