test

Fortran Library Reference

fstat: Get Status for File, by Logical Unit

The function

INTEGER*4 fstat

ierr = fstat ( lunit, statb )

lunit

INTEGER*4

Input 

Logical unit number  

statb

INTEGER*4

Output 

Status for the file: 13-element array  

Return value 

INTEGER*4

Output 

ierr=0: OK

ierr>0: Error code

is called by:

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