sysdep Module Reference

システムに依存する手続きのインタフェースを提供します More...

Functions/Subroutines
subroutine, public	abortprogram (message)
	プログラムを異常終了させます
integer function, public	sysdepargcount ()
	コマンドライン引数の数を取得します
subroutine, public	sysdepargget (index, val)
	コマンドライン引数を取得します
subroutine, public	sysdepenvget (env, str)
	環境変数を取得します

Detailed Description

システムに依存する手続きのインタフェースを提供します

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

)

プログラムを異常終了させます

---

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

コマンドライン引数の数を取得します

---

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
	)

コマンドライン引数を取得します

---

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
	)

環境変数を取得します

---

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)