\hypertarget{hscrea_8f90}{}\section{gtool/gtool\+\_\+history/hscrea.f90 File Reference}
\label{hscrea_8f90}\index{gtool/gtool\+\_\+history/hscrea.\+f90@{gtool/gtool\+\_\+history/hscrea.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{hscrea_8f90_a701866f655e7b2d0fc6b5968aabe6508}{hscrea} (fname, title, source, institution, idim, dims, dimsiz, xtypes, longnames, units, origin, interval)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{hscrea_8f90_a701866f655e7b2d0fc6b5968aabe6508}\label{hscrea_8f90_a701866f655e7b2d0fc6b5968aabe6508}} 
\index{hscrea.\+f90@{hscrea.\+f90}!hscrea@{hscrea}}
\index{hscrea@{hscrea}!hscrea.\+f90@{hscrea.\+f90}}
\subsubsection{\texorpdfstring{hscrea()}{hscrea()}}
{\footnotesize\ttfamily subroutine hscrea (\begin{DoxyParamCaption}\item[{character(len=$\ast$)}]{fname,  }\item[{character(len=$\ast$)}]{title,  }\item[{character(len=$\ast$)}]{source,  }\item[{character(len=$\ast$)}]{institution,  }\item[{integer}]{idim,  }\item[{character(len=1), dimension(idim)}]{dims,  }\item[{integer, dimension(idim)}]{dimsiz,  }\item[{character(len=$\ast$), dimension(idim)}]{xtypes,  }\item[{character(len=$\ast$), dimension(idim)}]{longnames,  }\item[{character(len=$\ast$), dimension(idim)}]{units,  }\item[{real}]{origin,  }\item[{real}]{interval }\end{DoxyParamCaption})}



Definition at line 17 of file hscrea.\+f90.


\begin{DoxyCode}
17   \textcolor{comment}{!}
18   \textcolor{comment}{!== 機能}
19   \textcolor{comment}{!}
20   \textcolor{comment}{! ヒストリーを定義する.}
21   \textcolor{comment}{!}
22 
23   \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: historycreate
24   \textcolor{keywordtype}{implicit none}
25 
26   \textcolor{keywordtype}{character(len=*)}              :: fname           \textcolor{comment}{! 出力ファイル}
27   \textcolor{keywordtype}{character(len=*)}              :: title           \textcolor{comment}{! データ全体の表題}
28   \textcolor{keywordtype}{character(len=*)}              :: source          \textcolor{comment}{! データを作成する際の手段}
29   \textcolor{keywordtype}{character(len=*)}              :: institution     \textcolor{comment}{! ファイルを最終的に変更した人/組織}
30   \textcolor{keywordtype}{integer}                       :: idim            \textcolor{comment}{! 定義する軸変数の数}
31   \textcolor{keywordtype}{character(len=1)},\textcolor{keywordtype}{dimension(idim)}   :: dims            \textcolor{comment}{! 軸変数名}
32   \textcolor{keywordtype}{integer},\textcolor{keywordtype}{dimension(idim)}       :: dimsiz          \textcolor{comment}{! 軸変数の大きさ}
33   \textcolor{keywordtype}{character(len=*)},\textcolor{keywordtype}{dimension(idim)} :: xtypes          \textcolor{comment}{! 軸変数のタイプ}
34   \textcolor{keywordtype}{character(len=*)},\textcolor{keywordtype}{dimension(idim)} :: longnames       \textcolor{comment}{! 軸変数の長い名前}
35   \textcolor{keywordtype}{character(len=*)},\textcolor{keywordtype}{dimension(idim)} :: units           \textcolor{comment}{! 単位}
36   \textcolor{keywordtype}{real}                          :: origin          \textcolor{comment}{! 開始時間}
37   \textcolor{keywordtype}{real}                          :: interval        \textcolor{comment}{! 出力時間間隔}
38 
39   \textcolor{keyword}{call }historycreate( file=fname, title=title, &
40     & source=source, institution=institution, &
41     & dims=dims, dimsizes=dimsiz, xtypes=xtypes, &
42     & longnames=longnames, units=units, &
43     & origin=origin, interval=interval )
44 
\end{DoxyCode}
