!--
! *** Caution!! ***
! 
! This file is generated from "sysdepenv.rb2f90" by Ruby 1.8.2.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "sysdepenv.rb2f90" から Ruby 1.8.2
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!
!== SysdepEnv - 環境依存性ルーチン (環境変数取得)
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: sysdepenv-common.f90,v 1.1 2006-11-17 17:16:00 morikawa Exp $
! Tag Name::  $Name: gt4f90io-20080812 $
! Copyright:: Copyright (C) GFD Dennou Club, 2006. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
! 通常の処理系では getenv というサービスサブルーチンが
! 用意されている. (残念ながら、これらは Fortran90/95 の規格には
! 含まれていない)。これを使えない処理系では適宜対処が必要である。
!

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

!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++