! Copyright (c) 1988 Edinburgh Portable Compilers Ltd. All Rights Reserved.
! All Machines FSTATFMT10.INC

      !Defines the format returned by GETSTAT or GETFSTAT on all Hosts!

! Modified 11/03/91 - rewritten to be Host independent, requires getfstat1.c
!                     ftncomp58 onwards
! Modified  5/02/91 - allow for Sequent's PTX
! Modfied   8/03/90 - compatible with FIOPARS3 onwards and allows for M88K
! Modified  7/02/90 - compatible with FIOPARS2 onwards and allows for UNIX5.4
! Modified 10/11/89 - allow for SunOS4 SPARC
! Modified 28/11/88 - allow for Clan4
! Modified 20/08/88 - uses new values in ftn_ioparams
! Modified 16/06/88 - create include file


RECORDFORMAT STAT INFORMATION TABLE (                                C
                                                                      C
             INTEGER FILE SIZE      ,
             INTEGER INODE          ,
             INTEGER FILE MODE      ,
             INTEGER DEV NUMBER     )

             !This is the form in which getstat.c returns
             !information which it has acquired from stat(2)

CONSTINTEGER Size of STAT INFO TABLE= 16 {bytes}