sysdep Module Reference

Provides interface for system dependent procedures. More...

Functions/Subroutines
subroutine, public	abortprogram (message)
	Abort program execution.
integer function, public	sysdepargcount ()
	Get number of command line arguments.
subroutine, public	sysdepargget (index, val)
	Get command line argument.
subroutine, public	sysdepenvget (env, str)
	Get environment variable.

Detailed Description

Provides interface for system dependent procedures.

Author

Youhei SASAKI, Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

This module provides interfaces for system dependent procedures. In other words, there are interface declarations of functions and subroutines whose features are regarded as system dependent.

Note that a procedure with one name may have several implementations.

The sysdep module has no dependence to other modules.

Procedures list

Procedure	Description
AbortProgram	Abort program execution
SysdepArgGet	Get command line argument
SysdepArgCount	Get number of command line arguments
SysdepEnvGet	Get environment variable

Function/Subroutine Documentation

abortprogram()

subroutine, public sysdep::abortprogram

(

character(len=*), intent(in), optional

message

)

Abort program execution.

---

Aborts the program, optionally displaying an error message to stderr.

Parameters

[in]

message

Optional error message to display before aborting

Definition at line 89 of file sysdep.f90.

    use dc_types, only: stderr
    implicit none
    character(len=*), intent(in), optional :: message
    continue
    if (present(message)) write(stderr, *) trim(message)
    call dc_f_abort()

References dc_types::stderr.

sysdepargcount()

integer function, public sysdep::sysdepargcount

Get number of command line arguments.

---

Returns the number of command line arguments passed to the program.

Returns

Number of command line arguments

Definition at line 113 of file sysdep.f90.

    implicit none
    sysdepargcount = command_argument_count()

References sysdepargcount().

Here is the call graph for this function:

sysdepargget()

subroutine, public sysdep::sysdepargget	(	integer, intent(in)	index,
		character(len = *), intent(out)	val )

Get command line argument.

---

Retrieves the command line argument at the specified index. Negative indices count from the end (e.g., -1 is the last argument).

Parameters

[in]	index	Index of the argument to retrieve
[out]	val	Value of the argument

Definition at line 137 of file sysdep.f90.

    implicit none
    integer,            intent(in)  :: index
    character(len = *), intent(out) :: val
    !
    integer:: idx
    integer:: argc
    continue
    argc = sysdepargcount()
    if (index < 0) then
      idx = argc + 1 + index
    else
      idx = index
    endif
    if (idx > argc) then
      val = ''
    else
      call get_command_argument(index, val)
    end if

References sysdepargcount().

Here is the call graph for this function:

sysdepenvget()

subroutine, public sysdep::sysdepenvget	(	character(len = *), intent(in)	env,
		character(len = *), intent(out)	str )

Get environment variable.

---

Retrieves the value of the specified environment variable.

Parameters

[in]	env	Name of the environment variable
[out]	str	Value of the environment variable

Definition at line 175 of file sysdep.f90.

    character(len = *), intent(in)  :: env
    character(len = *), intent(out) :: str
    call get_environment_variable(trim(adjustl(env)), str)