\hypertarget{hsp1r_8f90}{}\section{gtool/gtool\+\_\+history/hsp1r.f90 File Reference}
\label{hsp1r_8f90}\index{gtool/gtool\+\_\+history/hsp1r.\+f90@{gtool/gtool\+\_\+history/hsp1r.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{hsp1r_8f90_ab7d4ff637d42583b202910d1c3527022}{hsp1r} (vname, var, i)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{hsp1r_8f90_ab7d4ff637d42583b202910d1c3527022}\label{hsp1r_8f90_ab7d4ff637d42583b202910d1c3527022}} 
\index{hsp1r.\+f90@{hsp1r.\+f90}!hsp1r@{hsp1r}}
\index{hsp1r@{hsp1r}!hsp1r.\+f90@{hsp1r.\+f90}}
\subsubsection{\texorpdfstring{hsp1r()}{hsp1r()}}
{\footnotesize\ttfamily subroutine hsp1r (\begin{DoxyParamCaption}\item[{character(len=$\ast$)}]{vname,  }\item[{real, dimension(i)}]{var,  }\item[{integer}]{i }\end{DoxyParamCaption})}



Definition at line 15 of file hsp1r.\+f90.


\begin{DoxyCode}
15   \textcolor{comment}{!}
16   \textcolor{comment}{!== 機能}
17   \textcolor{comment}{!}
18   \textcolor{comment}{! ヒストリーに変数を出力する}
19   \textcolor{comment}{!}
20 
21   \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}
22   \textcolor{keywordtype}{character(len=*)} :: vname \textcolor{comment}{! 変数名}
23   \textcolor{keywordtype}{real}             :: var(i)  \textcolor{comment}{! 変数}
24   \textcolor{keywordtype}{integer}          :: i \textcolor{comment}{! 各次元の大きさ}
25 
26   \textcolor{keyword}{call }historyput(vname,var)
27 
\end{DoxyCode}
