test

Fortran Library Reference

lstat: Get Status for File, by File Name

The function is called by:

ierr = lstat ( name, statb )

name

character*n

Input 

File name  

statb

INTEGER*4

Output 

Status array of file, 13 elements 

Return value 

INTEGER*4

Output 

ierr=0: OK

ierr>0: Error code

Example 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),', blocks = ',statb(13)
    end