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

Function/Subroutine Documentation

abortprogram()

subroutine, public sysdep::abortprogram

(

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

message

)

Abort program execution.

---

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.

---

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.

---

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.

---

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)