\hypertarget{sysdepenv_8f90}{}\section{sysdep/sysdepenv.f90 File Reference}
\label{sysdepenv_8f90}\index{sysdep/sysdepenv.\+f90@{sysdep/sysdepenv.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{sysdepenv_8f90_a9e07f27148c8cf1890cf7dbc3a0334ee}{sysdepenvget} (env, str)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{sysdepenv_8f90_a9e07f27148c8cf1890cf7dbc3a0334ee}\label{sysdepenv_8f90_a9e07f27148c8cf1890cf7dbc3a0334ee}} 
\index{sysdepenv.\+f90@{sysdepenv.\+f90}!sysdepenvget@{sysdepenvget}}
\index{sysdepenvget@{sysdepenvget}!sysdepenv.\+f90@{sysdepenv.\+f90}}
\subsubsection{\texorpdfstring{sysdepenvget()}{sysdepenvget()}}
{\footnotesize\ttfamily subroutine sysdepenvget (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(in)}]{env,  }\item[{character(len = $\ast$), intent(out)}]{str }\end{DoxyParamCaption})}



Definition at line 33 of file sysdepenv.\+f90.



Referenced by historycreate1(), and historycreate2().


\begin{DoxyCode}
33   \textcolor{comment}{!}
34   \textcolor{comment}{! この手続きは *env* に指定した環境変数の値を *str* へ返します.}
35   \textcolor{comment}{! *env* 指定した環境変数が定義されていない場合は空文字が *str* へ}
36   \textcolor{comment}{! 返ります.}
37   \textcolor{comment}{! 処理系が <b>GET\_ENVIRONMENT\_VARIABLE()</b> または }
38   \textcolor{comment}{! <b>GETENV()</b> を有していない場合は常に空文字が *str* へ}
39   \textcolor{comment}{! 返ります.}
40   \textcolor{comment}{!}
41   \textcolor{comment}{! This procedure returns environment variable which is specified}
42   \textcolor{comment}{! by *env* to *str*.}
43   \textcolor{comment}{! If the environment variable is not set, blank is returned to *str*.}
44   \textcolor{comment}{! If <b>GET\_ENVIRONMENT\_VARIABLE()</b> or}
45   \textcolor{comment}{! <b>GETENV()</b> is not implemented, blank is returned to *str*}
46   \textcolor{comment}{! at all times.}
47   \textcolor{comment}{!}
48   \textcolor{keywordtype}{implicit none}
49   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}  :: env \textcolor{comment}{! 環境変数名}
50   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)} :: str \textcolor{comment}{! 環境変数の値}
51 \textcolor{keywordflow}{continue}
52   \textcolor{keyword}{call }get\_environment\_variable(trim(adjustl(env)), str)
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=271pt]{sysdepenv_8f90_a9e07f27148c8cf1890cf7dbc3a0334ee_icgraph}
\end{center}
\end{figure}
