Path: | sysdepenv-common.f90 |
Last Update: | Sat Nov 18 02:16:00 JST 2006 |
Authors: | Yasuhiro MORIKAWA |
Version: | $Id: sysdepenv-common.f90,v 1.1 2006/11/17 17:16:00 morikawa Exp $ |
Tag Name: | $Name: gt4f90io-20070616 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2006. All rights reserved. |
License: | See COPYRIGHT |
通常の処理系では getenv というサービスサブルーチンが 用意されている. (残念ながら、これらは Fortran90/95 の規格には 含まれていない)。これを使えない処理系では適宜対処が必要である。
Subroutine : | |||
env : | character(len = *), intent(in)
| ||
str : | character(len = *), intent(out)
|
この手続きは env に指定した環境変数の値を str へ返します. env 指定した環境変数が定義されていない場合は空文字が str へ 返ります. 処理系が 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 GETENV() is not implemented, blank is returned to str at all times.
subroutine SysdepEnvGet(env, str) ! ! この手続きは *env* に指定した環境変数の値を *str* へ返します. ! *env* 指定した環境変数が定義されていない場合は空文字が *str* へ ! 返ります. ! 処理系が <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>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