!--
! *** Caution!! ***
!
! This file is generated from "sysdepenv.rb2f90" by Ruby 1.8.5.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! 窶ｻ窶ｻ窶ｻ 豕ｨ諢�!!! 窶ｻ窶ｻ窶ｻ
!
! 縺薙�繝輔ぃ繧､繝ｫ縺ｯ "sysdepenv.rb2f90" 縺九ｉ Ruby 1.8.5
! 縺ｫ繧医▲縺ｦ閾ｪ蜍慕函謌舌＆繧後◆繝輔ぃ繧､繝ｫ縺ｧ縺�.
! 縺薙�繝輔ぃ繧､繝ｫ繧堤峩謗･邱ｨ髮�＠縺ｾ縺帙ｓ繧医≧縺企｡倥＞閾ｴ縺励∪縺�.
!
!
!++
!
!== SysdepEnv - 迺ｰ蠅�ｾ晏ｭ俶ｧ繝ｫ繝ｼ繝√Φ (迺ｰ蠅�､画焚蜿門ｾ�)
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: sysdepenv-nostd.f90,v 1.1 2009-03-20 09:09:49 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2006. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
! Fortran 95 莉･蜑阪�螟ｧ謚ｵ縺ｮ蜃ｦ逅�ｳｻ縺ｧ縺ｯ GETENV 縺ｨ縺�≧繧ｵ繝ｼ繝薙せ繧ｵ繝悶Ν繝ｼ繝√Φ縺�
! 逕ｨ諢上＆繧後※縺�ｋ. (Fortran90/95 縺ｮ隕乗�ｼ縺ｫ縺ｯ蜷ｫ縺ｾ繧後※縺�↑縺�).
! Fortran 2003 隕乗�ｼ縺ｫ縺ｯ GET_ENVIRONMENT_VARIABLE 縺ｨ縺�≧繧ｵ繝悶Ν繝ｼ繝√Φ縺�
! 隕丞ｮ壹＆繧後※縺�ｋ. 縺薙ｌ繧峨ｒ菴ｿ縺医↑縺��逅�ｳｻ縺ｧ縺ｯ驕ｩ螳懷ｯｾ蜃ｦ縺悟ｿ�ｦ√〒縺ゅｋ.
!

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

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