sysdepenv.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sysdepenvget (env, str)

Function/Subroutine Documentation

sysdepenvget()

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

Definition at line 33 of file sysdepenv.f90.

Referenced by historycreate1(), and historycreate2().

  !
  ! この手続きは *env* に指定した環境変数の値を *str* へ返します.
  ! *env* 指定した環境変数が定義されていない場合は空文字が *str* へ
  ! 返ります.
  ! 処理系が <b>GET_ENVIRONMENT_VARIABLE()</b> または 
  ! <b>GETENV()</b> を有していない場合は常に空文字が *str* へ
  ! 返ります.
  !
  ! This procedure returns environment variable which is specified
  ! by *env* to *str*.
  ! If the environment variable is not set, blank is returned to *str*.
  ! If <b>GET_ENVIRONMENT_VARIABLE()</b> or
  ! <b>GETENV()</b> is not implemented, blank is returned to *str*
  ! at all times.
  !
  implicit none
  character(len = *), intent(in)  :: env ! 環境変数名
  character(len = *), intent(out) :: str ! 環境変数の値
continue
  call get_environment_variable(trim(adjustl(env)), str)

Here is the caller graph for this function: