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

このモジュールはシステムに依存する手続きに関する インタフェースを提供します. 言い換えると, このモジュールではシステムに依存するサブルーチンと関数の インタフェース宣言がなされています.

従って, ある名前の手続きがあったとして, その手続きの実装は実際には 複数のファイルにおいて行われている可能性があるので気をつけてください.

この sysdep モジュールは他のモジュールに依存しません.

手続一覧

手続名	説明
AbortProgram	プログラムを異常終了
SysdepArgGet	コマンドライン引数を取得
SysdepArgCount	コマンドライン引数の数を取得
SysdepEnvGet	環境変数を取得

Function/Subroutine Documentation

abortprogram()

subroutine, public sysdep::abortprogram

(

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

message

)

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

---

プログラムを異常終了させます. オプションでエラーメッセージを標準エラー出力に表示します.

Parameters

[in]

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

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

---

プログラムに渡されたコマンドライン引数の数を返します.

Returns

コマンドライン引数の数

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 )

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

---

指定されたインデックスのコマンドライン引数を取得します. 負のインデックスは末尾からカウントします (例: -1 は最後の引数).

Parameters

[in]	index	取得する引数のインデックス
[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 )

環境変数を取得します

---

指定された環境変数の値を取得します.

Parameters

[in]	env	環境変数の名前
[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)