test

Fortran Library Reference

stat: Get Status for File, by File Name

The function is called by:

INTEGER*4 stat

ierr = stat ( name, statb )

name

character*n

Input 

Name of the file 

statb

INTEGER*4

Output 

Status structure for the file, 13-element array  

Return value 

INTEGER*4

Output 

ierr=0: OK

ierr>0: Error code

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