Manual Reference Pages - system_dir (3m_system)

NAME

system_dir(3f) - [M_system] return filenames in a directory matching specified wildcard string (LICENSE:PD)

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

function system_dir(directory,pattern,ignorecase)

     character(len=*),intent(in),optional  :: directory
     character(len=*),intent(in),optional  :: pattern
     logical,intent(in),optional           :: ignorecase
     character(len=:),allocatable          :: system_dir(:)

DESCRIPTION

returns an array of filenames in the specified directory matching the wildcard string (which defaults to "*").

OPTIONS

DIRECTORY
name of directory to match filenames in. Defaults to ".".

PATTERN
wildcard string matching the rules of the matchw(3f) function. Basically

o "*" matches anything

o "?" matches any single character

IGNORECASE
Boolean value indicating whether to ignore case or not when performing matching

RETURNS

system_dir
An array right-padded to the length of the longest filename. Note that this means filenames actually containing trailing spaces in their names may be incorrect.

EXAMPLES

Sample program:

   program demo_system_dir
   use M_system, only : system_dir, system_isdir
   implicit none
   character(len=:),allocatable :: dirname
      write(*, ’("*.f90: ",a)’)system_dir(pattern=’*.f90’)
      write(*, ’("*.F90: ",a)’)system_dir(pattern=’*.F90’)
      write(*, ’("ignorecase:*.F90: ",a)’)system_dir(pattern=’*.F90’,ignorecase=.true.)
      write(*, ’("ignorecase:*.f90: ",a)’)system_dir(pattern=’*.F90’,ignorecase=.true.)
      dirname=’/tmp’
      if(system_isdir(dirname))then
         write(*, ’("/tmp/*.f90: ",a)’)system_dir(directory=’/tmp’,pattern=’*.f90’)
      else
         write(*, ’(a)’)’<WARNING:>’//dirname//’ does not exist’
      endif
   end program demo_system_dir

AUTHOR

John S. Urban

LICENSE

Public Domain

Nemo Release 3.1

system_dir (3m_system)

March 07, 2025

Generated by manServer 1.08 from 6ba90aa8-8999-4d05-899b-adb0e63fd0e2 using man macros.

system_dir
	An array right-padded to the length of the longest filename. Note that this means filenames actually containing trailing spaces in their names may be incorrect.