---

Manual Reference Pages  - system_stat (3m_system)

---

NAME

SYSTEM_STAT - [M_system:QUERY_FILE] Get file status information (LICENSE:PD)

CONTENTS

Syntax
Description
Options
Examples
Author
License

SYNTAX

CALL SYSTEM_STAT(NAME, VALUES [, STATUS],[DEBUG])

   character(len=*),intent(in)          :: NAME
   integer(kind=int64),intent(out)      :: values(13)
   integer,optional,intent(out)         :: status
   integer,intent(in)                   :: debug

DESCRIPTION

This function returns information about a file. No permissions are required on the file itself, but execute (search) permission is required on all of the directories in path that lead to the file. The elements that are obtained and stored in the array VALUES:

      VALUES(1) Device ID
      VALUES(2) Inode number
      VALUES(3) File mode
      VALUES(4) Number of links
      VALUES(5) Owner’s uid
      VALUES(6) Owner’s gid
      VALUES(7) ID of device containing directory entry for file (0 if
                not available)
      VALUES(8) File size (bytes)
      VALUES(9) Last access time as a Unix Epoch time rounded to seconds
      VALUES(10) Last modification time as a Unix Epoch time rounded
                 to seconds
      VALUES(11) Last file status change time as a Unix Epoch time
                 rounded to seconds
      VALUES(12) Preferred I/O block size (-1 if not available)
      VALUES(13) Number of blocks allocated (-1 if not available)

Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0.

OPTIONS

NAME	The type shall be CHARACTER, of the default kind and a valid path within the file system.
VALUES	The type shall be INTEGER(8), DIMENSION(13).
STATUS	(Optional) status flag of type INTEGER(4). Returns 0 on success and a system specific error code otherwise.
DEBUG	(Optional) print values being returned from C routine being called if value of 0 is used

EXAMPLES

program demo_system_stat

   use M_system, only : system_stat, system_getpwuid, system_getgrgid
   use M_system, only : epoch_to_calendar
   !use M_time, only :   fmtdate, u2d
   use, intrinsic :: iso_fortran_env, only : int32, int64
   implicit none

   integer(kind=int64)  :: buff(13)
   integer(kind=int32)  :: status
   character(len=*),parameter :: fmt_date=’year-month-day hour:minute:second’

   integer(kind=int64) :: &
    Device_ID, Inode_number,     File_mode, Number_of_links, Owner_uid,        &
    Owner_gid, Directory_device, File_size, Last_access,     Last_modification,&
    Last_status_change,  Preferred_block_size,  Number_of_blocks_allocated
   equivalence                                    &
      ( buff(1)  , Device_ID                  ) , &
      ( buff(2)  , Inode_number               ) , &
      ( buff(3)  , File_mode                  ) , &
      ( buff(4)  , Number_of_links            ) , &
      ( buff(5)  , Owner_uid                  ) , &
      ( buff(6)  , Owner_gid                  ) , &
      ( buff(7)  , Directory_device           ) , &
      ( buff(8)  , File_size                  ) , &
      ( buff(9)  , Last_access                ) , &
      ( buff(10) , Last_modification          ) , &
      ( buff(11) , Last_status_change         ) , &
      ( buff(12) , Preferred_block_size       ) , &
      ( buff(13) , Number_of_blocks_allocated )

   CALL SYSTEM_STAT("/etc/hosts", buff, status)

   if(status == 0) then
      write (*, FMT="(’Device ID(hex/decimal):’,      &
      & T30, Z0,’h/’,I0,’d’)") buff(1),buff(1)
      write (*, FMT="(’Inode number:’,                &
      & T30, I0)") buff(2)
      write (*, FMT="(’File mode (octal):’,           &
      & T30, O19)") buff(3)
      write (*, FMT="(’Number of links:’,             &
      & T30, I0)") buff(4)
      write (*, FMT="(’Owner’’s uid/username:’,       &
      & T30, I0,1x, A)") buff(5), system_getpwuid(buff(5))
      write (*, FMT="(’Owner’’s gid/group:’,          &
      & T30, I0,1x, A)") buff(6), system_getgrgid(buff(6))
      write (*, FMT="(’Device where located:’,        &
      & T30, I0)") buff(7)
      write (*, FMT="(’File size(bytes):’,            &
      & T30, I0)") buff(8)
      write (*, FMT="(’Last access time:’,            &
      & T30, I0,1x, A)") buff(9),  epoch_to_calendar(buff(9))
      !& T30, I0,1x, A)") buff(9), fmtdate(u2d(int(buff(9))),fmt_date)
      write (*, FMT="(’Last modification time:’,      &
      & T30, I0,1x, A)") buff(10), epoch_to_calendar(buff(10))
      !& T30, I0,1x, A)") buff(10),fmtdate(u2d(int(buff(10))),fmt_date)
      write (*, FMT="(’Last status change time:’,     &
      & T30, I0,1x, A)") buff(11), epoch_to_calendar(buff(11))
      !& T30, I0,1x, A)") buff(11),fmtdate(u2d(int(buff(11))),fmt_date)
      write (*, FMT="(’Preferred block size(bytes):’, &
      & T30, I0)") buff(12)
      write (*, FMT="(’No. of blocks allocated:’,     &
      & T30, I0)") buff(13)
   endif

   end program demo_system_stat

Results:

   Device ID(hex/decimal):      3E6BE045h/1047257157d
   Inode number:                1407374886070599
   File mode (octal):                        100750
   Number of links:             1
   Owner’s uid/username:        18 SYSTEM
   Owner’s gid/group:           18 SYSTEM
   Device where located:        0
   File size(bytes):            824
   Last access time:            1557983191 2019-05-16 01:06:31
   Last modification time:      1557983191 2019-05-16 01:06:31
   Last status change time:     1557983532 2019-05-16 01:12:12
   Preferred block size(bytes): 65536
   No. of blocks allocated:     4

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

system_stat (3m_system)

March 07, 2025

Generated by manServer 1.08 from da2b33d4-42cb-43c5-b6ef-1056e81e8c5c using man macros.