fstatfmt10.inc

    ! 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}