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

       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