sysdepenv-nostd.f90

Path: sysdep/sysdepenv-nostd.f90
Last Update: Fri Mar 20 18:09:49 +0900 2009

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

Authors:Yasuhiro MORIKAWA
Version:$Id: sysdepenv-nostd.f90,v 1.1 2009-03-20 09:09:49 morikawa Exp $
Tag Name:$Name: gtool5-20090809 $
Copyright:Copyright (C) GFD Dennou Club, 2006. All rights reserved.
License:See COPYRIGHT

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

Methods

Public Instance methods

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 getenv(trim(adjustl(env)), str)
end subroutine SysdepEnvGet

[Validate]