File: sysdepenv-f2003std.f90

SysdepEnv - 環境依存性ルーチン (環境変数取得)

Authors:	Yasuhiro MORIKAWA
Version:	$Id: sysdepenv-f2003std.f90,v 1.1 2009-03-26 02:28:34 morikawa Exp $
Tag Name:	$Name: gtool5-20101228-1 $
Copyright:	Copyright (C) GFD Dennou Club, 2006. All rights reserved.
License:	See COPYRIGHT

Fortran 95 以前の大抵の処理系では GETENV というサービスサブルーチンが用意されている. (Fortran90/95 の規格には含まれていない). Fortran 2003 規格には GET_ENVIRONMENT_VARIABLE というサブルーチンが規定されている. これらを使えない処理系では適宜対処が必要である.

Methods

SysdepEnvGet

Public Instance methods

SysdepEnvGet( env, str )

Subroutine :

env :

character(len = *), intent(in)

環境変数名

str :

character(len = *), intent(out)

環境変数の値

この手続きは env に指定した環境変数の値を str へ返します. env 指定した環境変数が定義されていない場合は空文字が str へ返ります. 処理系が GET_ENVIRONMENT_VARIABLE() または GETENV() を有していない場合は常に空文字が 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 GET_ENVIRONMENT_VARIABLE() or GETENV() is not implemented, blank is returned to str at all times.

[Source]

subroutine SysdepEnvGet(env, str)
  !
  ! この手続きは *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)
end subroutine SysdepEnvGet