\hypertarget{historyput_8f90}{}\section{gtool/gtool\+\_\+history/historyput.f90 File Reference}
\label{historyput_8f90}\index{gtool/gtool\+\_\+history/historyput.\+f90@{gtool/gtool\+\_\+history/historyput.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
recursive subroutine \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex} (varname, array, arraysize, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
recursive subroutine \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex} (varname, array, arraysize, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
recursive subroutine \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex} (varname, array, arraysize, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
recursive subroutine \hyperlink{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}{historyputcharex} (varname, array, arraysize, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a62d98469e8c18d2d6fa1058ac5e01a3f}{historyputaxismpireal} (varname, array, history, err)
\item 
subroutine \hyperlink{historyput_8f90_a998923e82c4b9cca1e106a062828047b}{historyputaxismpidouble} (varname, array, history, err)
\item 
subroutine \hyperlink{historyput_8f90_a6046ffe097038d0ba0a09d91cd7e8fcb}{historyputaxismpiint} (varname, array, history, err)
\item 
subroutine \hyperlink{historyput_8f90_a3b36168ea9523b127675090aaccd7297}{historyputdouble0} (varname, value, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a20deaf69634919470a0530cce9f9265f}{historyputdouble1} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_ae0b99569792e398ab7903085a38666d0}{historyputdouble2} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_abdf881e96f5f7737ffe5827521c94509}{historyputdouble3} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a773681ebe16381761a27cdbb28952857}{historyputdouble4} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a5944d369dbe2e9b6f0fdaf87bb57bd36}{historyputdouble5} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a5c16bd2dd8dcab02a98bfcbe440cab37}{historyputdouble6} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_abfbe7275ad82a1e76f26693c29b2cee6}{historyputdouble7} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_adb0f1631b17c33004bd45247b4a8b72f}{historyputreal0} (varname, value, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a929ea6d3a67979e3d944b1f5242e5bb5}{historyputreal1} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_abdb23dd0b05e98370cf550de357bb891}{historyputreal2} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a142846f1c0ac2c5ecc193b8a56c511bf}{historyputreal3} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a61b5f3c6602e29ce74ee81dca143e307}{historyputreal4} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a72a939c33c763d3f2da686927f675fd6}{historyputreal5} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a746556f6a11350f0c7f04b9e3d5dcb2c}{historyputreal6} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a05242fb4107ddd2cf0087c87deeeeaf3}{historyputreal7} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a7ac04d51b92163bc230ddb56b09e9229}{historyputint0} (varname, value, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a773909790393bbc45f947d48a53d27d9}{historyputint1} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_ada2d2dff3432972bf002a8945e4c683e}{historyputint2} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_acbcf6699f2a0ec5a8dbb7acbdba42f1e}{historyputint3} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a85ed9bad172b248ea4ead339d0ad1008}{historyputint4} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_ae76db48d27faaf128fcdeb119bdb8984}{historyputint5} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a1224802b7a1368cad8bf6c47510bc9b8}{historyputint6} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_a00d0d158bc622bfd1e9541addafcd7ab}{historyputint7} (varname, array, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_ae78ac805ce20a425e5c8cc552518eef1}{historyputchar0} (varname, value, history, range, time, quiet, difftime, timed, time\+\_\+average\+\_\+store, err)
\item 
subroutine \hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead} (varname, var, head, history, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyput_8f90_a998923e82c4b9cca1e106a062828047b}\label{historyput_8f90_a998923e82c4b9cca1e106a062828047b}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputaxismpidouble@{historyputaxismpidouble}}
\index{historyputaxismpidouble@{historyputaxismpidouble}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputaxismpidouble()}{historyputaxismpidouble()}}
{\footnotesize\ttfamily subroutine historyputaxismpidouble (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1948 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
1948     \textcolor{comment}{!}
1949     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
1950     \textcolor{comment}{! 集約して出力する場合には,}
1951     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください.}
1952     \textcolor{comment}{! また, HistoryCreate のオプショナル論理型引数 *flag\_mpi\_gather*}
1953     \textcolor{comment}{! に .true. を与えてください.}
1954     \textcolor{comment}{!}
1955     \textcolor{comment}{! HistoryPut よりも後に使用してください}
1956     \textcolor{comment}{! HistoryAddVariable, HistoryAddAttr よりも前に使用してください.}
1957     \textcolor{comment}{!}
1958     \textcolor{comment}{! When MPI is used, if data on each node is integrated and}
1959     \textcolor{comment}{! output to one file, give data of axes in whole area to}
1960     \textcolor{comment}{! this subroutine.}
1961     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather*}
1962     \textcolor{comment}{! in "HistoryCreate".}
1963     \textcolor{comment}{!}
1964     \textcolor{comment}{! Use this subroutine after "HistoryPut", and}
1965     \textcolor{comment}{! before "HistoryAddVariable", "HistoryAddAttr".}
1966     \textcolor{comment}{!}
1967     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
1968     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1create}{create}, \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}, \hyperlink{interfacegtdata__generic_1_1put}{put}
1969     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1970     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
1971       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
1972     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1973     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
1974     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
1975     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1lchar}{lchar}, \hyperlink{interfacedc__string_1_1strhead}{strhead}
1976     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1977     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
1978     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
1979     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1980     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1981     \textcolor{keywordtype}{implicit none}
1982     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1983                                                   \textcolor{comment}{! 座標変数の名称.}
1984                               \textcolor{comment}{!}
1985                               \textcolor{comment}{! ここで指定するものは, HistoryCreate の}
1986                               \textcolor{comment}{! 引数 *dims* で既に指定されてい}
1987                               \textcolor{comment}{! なければなりません.}
1988                               \textcolor{comment}{!}
1989                               \textcolor{comment}{! Name of dimensional variable.}
1990                               \textcolor{comment}{!}
1991                               \textcolor{comment}{! This name must be specified by}
1992                               \textcolor{comment}{! an argument *dims* in "HistoryCreate".}
1993                               \textcolor{comment}{!}
1994     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:)
1995                                                   \textcolor{comment}{! 座標データ.}
1996                               \textcolor{comment}{!}
1997                               \textcolor{comment}{! Data of axes.}
1998     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
1999                                                   \textcolor{comment}{! 出力ファイルの設定に関する情報を}
2000                               \textcolor{comment}{! 格納した GT\_HISTORY 型変数}
2001                               \textcolor{comment}{!}
2002                               \textcolor{comment}{! ここに指定するものは,}
2003                               \textcolor{comment}{! HistoryCreate によって初期設定}
2004                               \textcolor{comment}{! されていなければなりません.}
2005                               \textcolor{comment}{!}
2006                               \textcolor{comment}{! A "GT\_HISTORY" type variable that}
2007                               \textcolor{comment}{! stores information about configuration of}
2008                               \textcolor{comment}{! an output file}
2009                               \textcolor{comment}{!}
2010                               \textcolor{comment}{! This must be initialized by}
2011                               \textcolor{comment}{! "HistoryCreate".}
2012                               \textcolor{comment}{!}
2013     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2014                                                   \textcolor{comment}{! 例外処理用フラグ.}
2015                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
2016                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
2017                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
2018                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
2019                               \textcolor{comment}{! *err* に .true. が代入されます.}
2020                               \textcolor{comment}{!}
2021                               \textcolor{comment}{! Exception handling flag.}
2022                               \textcolor{comment}{! By default, when error occur in}
2023                               \textcolor{comment}{! this procedure, the program aborts.}
2024                               \textcolor{comment}{! If this *err* argument is given,}
2025                               \textcolor{comment}{! .true. is substituted to *err* and}
2026                               \textcolor{comment}{! the program does not abort.}
2027     \textcolor{keywordtype}{integer}:: stat
2028     \textcolor{keywordtype}{character(STRING)}:: cause\_c
2029     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutAxisMPIDouble"}
2030   \textcolor{keywordflow}{continue}
2031     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%c'}, c1 = trim(varname) )
2032     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2033     cause\_c = \textcolor{stringliteral}{""}
2034     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'This library is not built with MPI library'})
2035     \textcolor{keywordflow}{goto} 999
2036     \textcolor{comment}{! 終了処理, 例外処理}
2037     \textcolor{comment}{! Termination and Exception handling}
2038     \textcolor{comment}{!}
2039 999 \textcolor{keywordflow}{continue}
2040     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
2041     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a998923e82c4b9cca1e106a062828047b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a6046ffe097038d0ba0a09d91cd7e8fcb}\label{historyput_8f90_a6046ffe097038d0ba0a09d91cd7e8fcb}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputaxismpiint@{historyputaxismpiint}}
\index{historyputaxismpiint@{historyputaxismpiint}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputaxismpiint()}{historyputaxismpiint()}}
{\footnotesize\ttfamily subroutine historyputaxismpiint (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2045 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2045     \textcolor{comment}{!}
2046     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
2047     \textcolor{comment}{! 集約して出力する場合には,}
2048     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください.}
2049     \textcolor{comment}{! また, HistoryCreate のオプショナル論理型引数 *flag\_mpi\_gather*}
2050     \textcolor{comment}{! に .true. を与えてください.}
2051     \textcolor{comment}{!}
2052     \textcolor{comment}{! HistoryPut よりも後に使用してください}
2053     \textcolor{comment}{! HistoryAddVariable, HistoryAddAttr よりも前に使用してください.}
2054     \textcolor{comment}{!}
2055     \textcolor{comment}{! When MPI is used, if data on each node is integrated and}
2056     \textcolor{comment}{! output to one file, give data of axes in whole area to}
2057     \textcolor{comment}{! this subroutine.}
2058     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather*}
2059     \textcolor{comment}{! in "HistoryCreate".}
2060     \textcolor{comment}{!}
2061     \textcolor{comment}{! Use this subroutine after "HistoryPut", and}
2062     \textcolor{comment}{! before "HistoryAddVariable", "HistoryAddAttr".}
2063     \textcolor{comment}{!}
2064     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
2065     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1create}{create}, \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}, \hyperlink{interfacegtdata__generic_1_1put}{put}
2066     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
2067     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
2068       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
2069     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
2070     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
2071     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2072     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1lchar}{lchar}, \hyperlink{interfacedc__string_1_1strhead}{strhead}
2073     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
2074     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
2075     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
2076     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2077     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2078     \textcolor{keywordtype}{implicit none}
2079     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2080     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:)
2081     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2082     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2083     \textcolor{keywordtype}{integer}:: stat
2084     \textcolor{keywordtype}{character(STRING)}:: cause\_c
2085     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutAxisMPIInt"}
2086   \textcolor{keywordflow}{continue}
2087     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%c'}, c1 = trim(varname) )
2088     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2089     cause\_c = \textcolor{stringliteral}{""}
2090     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'This library is not built with MPI library'})
2091     \textcolor{keywordflow}{goto} 999
2092     \textcolor{comment}{! 終了処理, 例外処理}
2093     \textcolor{comment}{! Termination and Exception handling}
2094     \textcolor{comment}{!}
2095 999 \textcolor{keywordflow}{continue}
2096     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
2097     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a6046ffe097038d0ba0a09d91cd7e8fcb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a62d98469e8c18d2d6fa1058ac5e01a3f}\label{historyput_8f90_a62d98469e8c18d2d6fa1058ac5e01a3f}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputaxismpireal@{historyputaxismpireal}}
\index{historyputaxismpireal@{historyputaxismpireal}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputaxismpireal()}{historyputaxismpireal()}}
{\footnotesize\ttfamily subroutine historyputaxismpireal (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1892 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
1892     \textcolor{comment}{!}
1893     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
1894     \textcolor{comment}{! 集約して出力する場合には,}
1895     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください.}
1896     \textcolor{comment}{! また, HistoryCreate のオプショナル論理型引数 *flag\_mpi\_gather*}
1897     \textcolor{comment}{! に .true. を与えてください.}
1898     \textcolor{comment}{!}
1899     \textcolor{comment}{! HistoryPut よりも後に使用してください}
1900     \textcolor{comment}{! HistoryAddVariable, HistoryAddAttr よりも前に使用してください.}
1901     \textcolor{comment}{!}
1902     \textcolor{comment}{! When MPI is used, if data on each node is integrated and}
1903     \textcolor{comment}{! output to one file, give data of axes in whole area to}
1904     \textcolor{comment}{! this subroutine.}
1905     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather*}
1906     \textcolor{comment}{! in "HistoryCreate".}
1907     \textcolor{comment}{!}
1908     \textcolor{comment}{! Use this subroutine after "HistoryPut", and}
1909     \textcolor{comment}{! before "HistoryAddVariable", "HistoryAddAttr".}
1910     \textcolor{comment}{!}
1911     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
1912     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1create}{create}, \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}, \hyperlink{interfacegtdata__generic_1_1put}{put}
1913     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1914     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
1915       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
1916     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1917     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
1918     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
1919     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1lchar}{lchar}, \hyperlink{interfacedc__string_1_1strhead}{strhead}
1920     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1921     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
1922     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
1923     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1924     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1925     \textcolor{keywordtype}{implicit none}
1926     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1927     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:)
1928     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
1929     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1930     \textcolor{keywordtype}{integer}:: stat
1931     \textcolor{keywordtype}{character(STRING)}:: cause\_c
1932     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutAxisMPIReal"}
1933   \textcolor{keywordflow}{continue}
1934     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%c'}, c1 = trim(varname) )
1935     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1936     cause\_c = \textcolor{stringliteral}{""}
1937     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'This library is not built with MPI library'})
1938     \textcolor{keywordflow}{goto} 999
1939     \textcolor{comment}{! 終了処理, 例外処理}
1940     \textcolor{comment}{! Termination and Exception handling}
1941     \textcolor{comment}{!}
1942 999 \textcolor{keywordflow}{continue}
1943     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
1944     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a62d98469e8c18d2d6fa1058ac5e01a3f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_ae78ac805ce20a425e5c8cc552518eef1}\label{historyput_8f90_ae78ac805ce20a425e5c8cc552518eef1}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputchar0@{historyputchar0}}
\index{historyputchar0@{historyputchar0}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputchar0()}{historyputchar0()}}
{\footnotesize\ttfamily subroutine historyputchar0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3611 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputcharex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3611     \textcolor{comment}{!}
3612     \textcolor{comment}{!}
3613     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3614     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3615     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3616     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3617     \textcolor{keywordtype}{implicit none}
3618     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3619     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: value
3620     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3621     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3622     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3623     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3624     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3625     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3626     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3627     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3628     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}{historyputcharex}
3629 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}{historyputcharex}( &
3630         & varname, array, arraysize, history, range, &
3631         & time, quiet, difftime, timed, time\_average\_store, err )
3632         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3633         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3634         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3635         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3636         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3637         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3638         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3639         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3640         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3641         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3642         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3643         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3644         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3645         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3646 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}{historyputcharex}
3647 \textcolor{keyword}{    end interface}
3648     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutChar0"}
3649   \textcolor{keywordflow}{continue}
3650     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3651     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}{historyputcharex}( &
3652       & varname, &               \textcolor{comment}{! (in)}
3653       & (/\textcolor{keywordtype}{value}/), 1, &   \textcolor{comment}{! (in)}
3654       & history = history, &     \textcolor{comment}{! (inout) optional}
3655       & range = range, &         \textcolor{comment}{! (in) optional}
3656       & time = time, &           \textcolor{comment}{! (in) optional}
3657       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3658       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3659       & timed = timed, &         \textcolor{comment}{! (in) optional}
3660       & time\_average\_store = &
3661       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3662       & err = err )              \textcolor{comment}{! (out) optional}
3663     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_ae78ac805ce20a425e5c8cc552518eef1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}\label{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputcharex@{historyputcharex}}
\index{historyputcharex@{historyputcharex}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputcharex()}{historyputcharex()}}
{\footnotesize\ttfamily recursive subroutine historyputcharex (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), dimension(arraysize), intent(in)}]{array,  }\item[{integer, intent(in)}]{arraysize,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1615 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+earglack, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtvarsync(), dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+false(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, timegoahead(), and dc\+\_\+error\+::usr\+\_\+errno.



Referenced by historyputchar0().


\begin{DoxyCode}
1615     \textcolor{comment}{!}
1616     \textcolor{comment}{!== データ出力}
1617     \textcolor{comment}{!}
1618     \textcolor{comment}{! こちらは配列サイズを指定する必要があるため、}
1619     \textcolor{comment}{! HistoryPut を利用してください。}
1620     \textcolor{comment}{!}
1621     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
1622     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
1623     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}
1624     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put}{put}, \hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}, \hyperlink{interfacegtdata__generic_1_1slice}{slice}, 
      \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, &
1625       & \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}, \hyperlink{interfacegtdata__generic_1_1get}{get}, \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
1626     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1627     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1628     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
1629     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{interfacedc__present_1_1present__select}{present\_select}, &
1630       & \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1631     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}, &
1632       & \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}, \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1633     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1634     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1635     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
1636     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==), \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, &
1637       & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \textcolor{keyword}{operator}(-), \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__string_1_1tochar}{tochar}
1638     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1639     \textcolor{keywordtype}{implicit none}
1640     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1641     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
1642     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
1643     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
1644     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1645                               \textcolor{comment}{! gtool4 のコンマ記法による}
1646                               \textcolor{comment}{! データの出力範囲指定}
1647                               \textcolor{comment}{!}
1648                               \textcolor{comment}{! このオプションを用いる}
1649                               \textcolor{comment}{! 際には、必ず *HistorySetTime*}
1650                               \textcolor{comment}{! によって明示的に時刻の設定}
1651                               \textcolor{comment}{! を行ってください。}
1652                               \textcolor{comment}{! また、*HistoryGet* と異なり、}
1653                               \textcolor{comment}{! 時刻に関する範囲指定は}
1654                               \textcolor{comment}{! 行なえません。}
1655                               \textcolor{comment}{!}
1656                               \textcolor{comment}{! 書式に関する詳細は}
1657                               \textcolor{comment}{! \{gtool4 netCDF 規約\}[link:../xref.htm#label-6]}
1658                               \textcolor{comment}{! の「5.4 コンマ記法」を参照して}
1659                               \textcolor{comment}{! ください。}
1660     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
1661                               \textcolor{comment}{!}
1662                               \textcolor{comment}{! 時刻. (単精度実数型)}
1663                               \textcolor{comment}{!}
1664                               \textcolor{comment}{! この引数を与える場合,}
1665                               \textcolor{comment}{! 出力するかどうかをプログラムが}
1666                               \textcolor{comment}{! 自動的に判断します.}
1667                               \textcolor{comment}{! *time* に与えられた数値が}
1668                               \textcolor{comment}{! HistoryCreate に与えた *interval*}
1669                               \textcolor{comment}{! で割り切れる場合には出力が行われます.}
1670                               \textcolor{comment}{!}
1671                               \textcolor{comment}{! HistoryAddVariable で}
1672                               \textcolor{comment}{! *time\_average* (または *average*)}
1673                               \textcolor{comment}{! に .true. を与えた場合には,}
1674                               \textcolor{comment}{! *time*, *difftime*}
1675                               \textcolor{comment}{! のどちらの引数も与えない場合に,}
1676                               \textcolor{comment}{! プログラムはエラーを発生させます.}
1677                               \textcolor{comment}{!}
1678                               \textcolor{comment}{! また, この引数と *range* は併用できません.}
1679                               \textcolor{comment}{! 併用した場合には,}
1680                               \textcolor{comment}{! プログラムはエラーを発生させます.}
1681                               \textcolor{comment}{!}
1682     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
1683                               \textcolor{comment}{! .false. を与えた場合,}
1684                               \textcolor{comment}{! このサブルーチンが呼ばれる毎に}
1685                               \textcolor{comment}{! ファイル名と時刻が表示されます.}
1686                               \textcolor{comment}{! デフォルトは .true. です.}
1687                               \textcolor{comment}{!}
1688                               \textcolor{comment}{! If ".false." is given,}
1689                               \textcolor{comment}{! a filename and time is displayed}
1690                               \textcolor{comment}{! when this subroutine is called.}
1691                               \textcolor{comment}{! Default value is ".true.".}
1692                               \textcolor{comment}{!}
1693     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
1694                               \textcolor{comment}{!}
1695                               \textcolor{comment}{! 時刻 (dc\_date\_types#DC\_DIFFTIME 型)}
1696                               \textcolor{comment}{!}
1697                               \textcolor{comment}{! 効果は *time* と同様です.}
1698                               \textcolor{comment}{!}
1699     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
1700                               \textcolor{comment}{!}
1701                               \textcolor{comment}{! 時刻 (倍精度実数型)}
1702                               \textcolor{comment}{!}
1703                               \textcolor{comment}{! 効果は *time* と同様です.}
1704                               \textcolor{comment}{!}
1705     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
1706                               \textcolor{comment}{!}
1707                               \textcolor{comment}{! 平均値の出力フラグ.}
1708                               \textcolor{comment}{! この値に .true. を与えた場合には,}
1709                               \textcolor{comment}{! 出力せずに与えられた値を一旦蓄えます.}
1710                               \textcolor{comment}{! .false. を与えた場合には,}
1711                               \textcolor{comment}{! *time* もしくは *difftime* と}
1712                               \textcolor{comment}{! HistoryCreate に与えた *interval* に}
1713                               \textcolor{comment}{! 関わらず出力を行います.}
1714                               \textcolor{comment}{!}
1715                               \textcolor{comment}{! HistoryAddVariable で}
1716                               \textcolor{comment}{! *time\_average* (または *average*)}
1717                               \textcolor{comment}{! に .true. を与えない場合は無効です.}
1718                               \textcolor{comment}{!}
1719                               \textcolor{comment}{! *time* と *difftime*}
1720                               \textcolor{comment}{! のどちらかを同時に与える必要があります.}
1721                               \textcolor{comment}{!}
1722     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1723                               \textcolor{comment}{! 例外処理用フラグ.}
1724                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
1725                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
1726                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
1727                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
1728                               \textcolor{comment}{! *err* に .true. が代入されます.}
1729                               \textcolor{comment}{!}
1730                               \textcolor{comment}{! Exception handling flag.}
1731                               \textcolor{comment}{! By default, when error occur in}
1732                               \textcolor{comment}{! this procedure, the program aborts.}
1733                               \textcolor{comment}{! If this *err* argument is given,}
1734                               \textcolor{comment}{! .true. is substituted to *err* and}
1735                               \textcolor{comment}{! the program does not abort.}
1736     \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{target}:: array\_work(arraysize)
1737     \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: array\_work2(:) =>null()
1738     \textcolor{keywordtype}{integer}:: arraysize\_work2
1739     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var, timevar
1740     \textcolor{keywordtype}{character(STRING)}:: url, file, time\_str
1741     \textcolor{keywordtype}{real}:: time\_value(1:1)
1742     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
1743     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: start(:), count(:), stride(:)
1744     \textcolor{keywordtype}{integer} :: i, dims, v\_ord
1745     \textcolor{keywordtype}{character(STRING)}:: avr\_msg
1746     \textcolor{keywordtype}{logical} :: slice\_err
1747     \textcolor{keywordtype}{character(STRING)}:: time\_name
1748     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: bnds\_suffix = \textcolor{stringliteral}{'\_bnds'}
1749     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: bndsvar
1750     \textcolor{keywordtype}{integer}:: bnds\_ord, time\_count, bnds\_rank
1751     \textcolor{keywordtype}{integer}:: stat
1752     \textcolor{keywordtype}{logical}:: output\_step
1753     \textcolor{keywordtype}{real(DP)}:: timedw
1754 \textcolor{comment}{!    type(DC\_DIFFTIME):: difftimew}
1755     \textcolor{keywordtype}{real(DP)}:: avr\_coef
1756     \textcolor{keywordtype}{character(STRING)}:: cause\_c
1757     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
1758 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( varname, var, head, history, err )
1759         \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1760         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
1761         \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: varname
1762         \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(out)}:: var
1763         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: head
1764         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
1765         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1766 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
1767 \textcolor{keyword}{    end interface}
1768     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutCharEx"}
1769   \textcolor{keywordflow}{continue}
1770     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%a range=%a'}, &
1771       & ca=\hyperlink{interfacedc__string_1_1stoa}{stoa}(varname, \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, \textcolor{stringliteral}{'(no-range)'}, range)))
1772     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1773     cause\_c = \textcolor{stringliteral}{""}
1774     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
1775       hst => history
1776     \textcolor{keywordflow}{else}
1777       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
1778 \textcolor{keywordflow}{    endif}
1779     \textcolor{comment}{!-----------------------------------------------------------------}
1780     \textcolor{comment}{!  初期設定のチェック}
1781     \textcolor{comment}{!  Check initialization}
1782     \textcolor{comment}{!-----------------------------------------------------------------}
1783     \textcolor{keywordflow}{if} ( .not. hst % initialized ) \textcolor{keywordflow}{then}
1784       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
1785       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY'}
1786       \textcolor{keywordflow}{goto} 999
1787 \textcolor{keywordflow}{    end if}
1788     \textcolor{comment}{!-----------------------------------------------------------------}
1789     \textcolor{comment}{!  time と range の同時使用の禁止}
1790     \textcolor{comment}{!  Permit concurrent use of "time" and "range"}
1791     \textcolor{comment}{!-----------------------------------------------------------------}
1792     \textcolor{keywordflow}{if} ( ( \textcolor{keyword}{present}(time) .or. \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) ) &
1793       &  .and. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) ) \textcolor{keywordflow}{then}
1794       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1795         & \textcolor{stringliteral}{'(varname=%c) "range" and "time" or "timed" or "difftime" are not suppored at the same time'}, &
1796         & c1 = trim(varname) )
1797       stat = \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
1798       cause\_c = \textcolor{stringliteral}{'"range" and "time" or "timed" or "difftime" are not suppored at the same time'}
1799       \textcolor{keywordflow}{goto} 999
1800 \textcolor{keywordflow}{    end if}
1801     \textcolor{comment}{!-----------------------------------------------------------------}
1802     \textcolor{comment}{!  hst 内の varname 変数の変数番号を取得}
1803     \textcolor{comment}{!  Get variable number of "varname" in "hst"}
1804     \textcolor{comment}{!-----------------------------------------------------------------}
1805     v\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}(hst, varname)
1806     \textcolor{comment}{!-----------------------------------------------------------------}
1807     \textcolor{comment}{!  初期時刻の設定}
1808     \textcolor{comment}{!  Configure initial time}
1809     \textcolor{comment}{!-----------------------------------------------------------------}
1810     \textcolor{keywordflow}{if} ( .not. hst % origin\_setting ) \textcolor{keywordflow}{then}
1811       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1812         hst % origin         = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1813         hst % time\_bnds      = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1814         hst % origin\_setting = .true.
1815       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
1816         hst % origin         = timed
1817         hst % time\_bnds      = timed
1818         hst % origin\_setting = .true.
1819       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
1820         hst % origin         = time
1821         hst % time\_bnds      = time
1822         hst % origin\_setting = .true.
1823 \textcolor{keywordflow}{      end if}
1824 \textcolor{comment}{!!$      if ( present(difftime) ) then}
1825 \textcolor{comment}{!!$        hst % origin         = difftime}
1826 \textcolor{comment}{!!$        hst % time\_bnds      = EvalByUnit( difftime, '', hst % unlimited\_units\_symbol )}
1827 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1828 \textcolor{comment}{!!$      elseif ( present(timed) ) then}
1829 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &              ! (out)}
1830 \textcolor{comment}{!!$          & real(timed), '', hst % unlimited\_units\_symbol ) ! (in)}
1831 \textcolor{comment}{!!$        hst % time\_bnds      = timed}
1832 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1833 \textcolor{comment}{!!$      elseif ( present(time) ) then}
1834 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &       ! (out)}
1835 \textcolor{comment}{!!$          & time, '', hst % unlimited\_units\_symbol ) ! (in)}
1836 \textcolor{comment}{!!$        hst % time\_bnds      = time}
1837 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1838 \textcolor{comment}{!!$      end if}
1839 \textcolor{keywordflow}{    end if}
1840                         avr\_msg = \textcolor{stringliteral}{''}
1841     \textcolor{comment}{!-----------------------------------------------------------------}
1842     \textcolor{comment}{!  時刻を1つ進めて, データ出力}
1843     \textcolor{comment}{!  Progress one time, and output data}
1844     \textcolor{comment}{!-----------------------------------------------------------------}
1845     \textcolor{keyword}{call }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( &
1846       & varname = varname, &     \textcolor{comment}{! (in)}
1847                           & head = 0.0, &            \textcolor{comment}{! (in)}
1848       & var = var, &             \textcolor{comment}{! (out)}
1849       & history = history, &     \textcolor{comment}{! (inout)}
1850       & err = err )              \textcolor{comment}{! (out)}
1851                         \textcolor{keywordflow}{if} (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range)) \textcolor{keywordflow}{then}
1852       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varname=<%c> is string. so range is ignoread.'}, &
1853       & c1=trim(varname))
1854 \textcolor{keywordflow}{    end if}
1855     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array, arraysize)
1856     \textcolor{keyword}{call }\hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}(var)
1857     \textcolor{comment}{!-----------------------------------------------------------------}
1858     \textcolor{comment}{!  メッセージ出力}
1859     \textcolor{comment}{!  Output messages}
1860     \textcolor{comment}{!-----------------------------------------------------------------}
1861     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
1862       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( hst % dimvars(1), & \textcolor{comment}{! (in)}
1863         & url = url )                   \textcolor{comment}{! (out)}
1864       \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
1865         & file = file )                 \textcolor{comment}{! (out)}
1866       \textcolor{keywordflow}{if} ( hst % unlimited\_index < 1 ) \textcolor{keywordflow}{then}
1867         time\_str = \textcolor{stringliteral}{''}
1868       \textcolor{keywordflow}{else}
1869         timevar = hst % dimvars(hst % unlimited\_index)
1870         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}( timevar, &                     \textcolor{comment}{! (in)}
1871           & 1, start = hst % count(v\_ord), count = 1 ) \textcolor{comment}{! (in)}
1872         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( timevar, & \textcolor{comment}{! (inout)}
1873           & time\_value, &    \textcolor{comment}{! (out)}
1874           & 1, &             \textcolor{comment}{! (in)}
1875           & err )            \textcolor{comment}{! (out)}
1876         time\_str = \textcolor{stringliteral}{'(time='} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( time\_value(1) )) // \textcolor{stringliteral}{')'}
1877 \textcolor{keywordflow}{      end if}
1878       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, \textcolor{stringliteral}{'HistoryPut'}, &
1879         & \textcolor{stringliteral}{'"%a" => "%a" %a %a'}, &
1880         & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}( varname, file, time\_str, avr\_msg ) )
1881 \textcolor{keywordflow}{    end if}
1882     \textcolor{comment}{!-----------------------------------------------------------------}
1883     \textcolor{comment}{!  終了処理, 例外処理}
1884     \textcolor{comment}{!  Termination and Exception handling}
1885     \textcolor{comment}{!-----------------------------------------------------------------}
1886 999 \textcolor{keywordflow}{continue}
1887     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
1888     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=288pt]{historyput_8f90_a48a2510204ef2ee72860e4a4dace5439_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a3b36168ea9523b127675090aaccd7297}\label{historyput_8f90_a3b36168ea9523b127675090aaccd7297}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble0@{historyputdouble0}}
\index{historyputdouble0@{historyputdouble0}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble0()}{historyputdouble0()}}
{\footnotesize\ttfamily subroutine historyputdouble0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2102 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2102     \textcolor{comment}{!}
2103                                             \textcolor{comment}{!}
2104     \textcolor{comment}{!== データ出力}
2105     \textcolor{comment}{!}
2106     \textcolor{comment}{! gtool4 データ内の変数へデータの出力を行います。}
2107     \textcolor{comment}{! このサブルーチンを用いる前に、HistoryCreate}
2108     \textcolor{comment}{! による初期設定が必要です。}
2109     \textcolor{comment}{!}
2110     \textcolor{comment}{! *HistoryPut* は複数のサブルーチンの総称名です。*value* に}
2111     \textcolor{comment}{! 変数 (整数型、単精度実数型、倍精度実数型、文字型) もしくは}
2112     \textcolor{comment}{! 1 〜 7 次元の配列}
2113     \textcolor{comment}{! (整数型、単精度実数型、倍精度実数型) を与えることが可能です。}
2114     \textcolor{comment}{! 下記の同名のサブルーチンを参照ください。}
2115     \textcolor{comment}{! ただし、多次元配列を与える際の引数キーワードには}
2116     \textcolor{comment}{! *array* を用いてください。}
2117     \textcolor{comment}{!}
2118     \textcolor{comment}{! HistoryPut を最初に呼んだ時、時間次元の変数は HistoryCreate の}
2119     \textcolor{comment}{! origin の値に設定されます。}
2120     \textcolor{comment}{!}
2121     \textcolor{comment}{! ある変数 varname に対して HistoryPut を複数回呼ぶと、}
2122     \textcolor{comment}{! HistoryCreate の interval × HistoryPut を呼んだ回数、 の分だけ}
2123     \textcolor{comment}{! 時間次元の変数の値が増やされます。}
2124     \textcolor{comment}{! ただし、時間平均値を出力する場合は例外です。}
2125     \textcolor{comment}{! 以下の時間平均に関する項目を参照ください。}
2126     \textcolor{comment}{!}
2127     \textcolor{comment}{! これらの時間次元の変数の値を明示的に設定したい場合は}
2128     \textcolor{comment}{! HistorySetTime を用いるか、HistoryPut 自身で時間次元の変数へ値}
2129     \textcolor{comment}{! を出力してください。}
2130     \textcolor{comment}{!}
2131     \textcolor{comment}{! * 時間平均について}
2132     \textcolor{comment}{!}
2133     \textcolor{comment}{!   時間平均については HistoryAddVariable を参照ください。}
2134     \textcolor{comment}{!}
2135     \textcolor{comment}{!}
2136     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2137     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2138     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2139     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2140     \textcolor{keywordtype}{implicit none}
2141     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2142                                                                       \textcolor{comment}{! 変数の名前}
2143                               \textcolor{comment}{!}
2144                               \textcolor{comment}{! ただし、ここで指定するもの}
2145                               \textcolor{comment}{! は、 HistoryCreateの *dims*}
2146                               \textcolor{comment}{! または HistoryAddVariable や}
2147                               \textcolor{comment}{! HistoryCopyVariable の}
2148                               \textcolor{comment}{! *varname* で既に指定されてい}
2149                               \textcolor{comment}{! なければなりません。}
2150                               \textcolor{comment}{!}
2151     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: value
2152                                                                       \textcolor{comment}{! 変数が出力するデータ}
2153                               \textcolor{comment}{!}
2154                               \textcolor{comment}{! 型は単精度実数型でも}
2155                               \textcolor{comment}{! 倍精度実数型でもよいですが、}
2156                               \textcolor{comment}{! HistoryAddVariable の}
2157                               \textcolor{comment}{! *xtype* で指定した}
2158                               \textcolor{comment}{! データ型と異なる}
2159                               \textcolor{comment}{! 型を渡した場合、xtype で}
2160                               \textcolor{comment}{! 指定した型に変換されます。}
2161                               \textcolor{comment}{!}
2162     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2163                                                                       \textcolor{comment}{! 出力ファイルの設定に関する情報を}
2164                               \textcolor{comment}{! 格納した構造体}
2165                               \textcolor{comment}{!}
2166                               \textcolor{comment}{! ここに指定するものは、}
2167                               \textcolor{comment}{! HistoryCreate によって初期設定}
2168                               \textcolor{comment}{! されていなければなりません。}
2169                               \textcolor{comment}{!}
2170     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2171                                                                       \textcolor{comment}{! gtool4 のコンマ記法による}
2172                               \textcolor{comment}{! データの出力範囲指定}
2173                               \textcolor{comment}{!}
2174                               \textcolor{comment}{! このオプションを用いる}
2175                               \textcolor{comment}{! 際には、必ず *HistorySetTime*}
2176                               \textcolor{comment}{! によって明示的に時刻の設定}
2177                               \textcolor{comment}{! を行ってください。}
2178                               \textcolor{comment}{! また、*HistoryGet* と異なり、}
2179                               \textcolor{comment}{! 時刻に関する範囲指定は}
2180                               \textcolor{comment}{! 行なえません。}
2181                               \textcolor{comment}{!}
2182                               \textcolor{comment}{! 書式に関する詳細は}
2183                               \textcolor{comment}{! \{gtool4 netCDF 規約\}[link:../xref.htm#label-6]}
2184                               \textcolor{comment}{! の「5.4 コンマ記法」を参照して}
2185                               \textcolor{comment}{! ください。}
2186     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2187                                                                       \textcolor{comment}{!}
2188                               \textcolor{comment}{! 時刻. (単精度実数型)}
2189                               \textcolor{comment}{!}
2190                               \textcolor{comment}{! この引数を与える場合,}
2191                               \textcolor{comment}{! 出力するかどうかをプログラムが}
2192                               \textcolor{comment}{! 自動的に判断します.}
2193                               \textcolor{comment}{! *time* に与えられた数値が}
2194                               \textcolor{comment}{! HistoryCreate に与えた *interval*}
2195                               \textcolor{comment}{! で割り切れる場合には出力が行われます.}
2196                               \textcolor{comment}{!}
2197                               \textcolor{comment}{! HistoryAddVariable で}
2198                               \textcolor{comment}{! *time\_average* (または *average*)}
2199                               \textcolor{comment}{! に .true. を与えた場合には,}
2200                               \textcolor{comment}{! *time*, *difftime*}
2201                               \textcolor{comment}{! のどちらの引数も与えない場合に,}
2202                               \textcolor{comment}{! プログラムはエラーを発生させます.}
2203                               \textcolor{comment}{!}
2204                               \textcolor{comment}{! この引数と *difftime*, *time\_average\_store*}
2205                               \textcolor{comment}{! が同時に与えられた場合,}
2206                               \textcolor{comment}{! *time\_average\_store* が優先されます.}
2207                               \textcolor{comment}{!}
2208                               \textcolor{comment}{! また, この引数と *range* は併用できません.}
2209                               \textcolor{comment}{! 併用した場合には,}
2210                               \textcolor{comment}{! プログラムはエラーを発生させます.}
2211                               \textcolor{comment}{!}
2212     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2213                                                                       \textcolor{comment}{! .true. を与えた場合,}
2214                               \textcolor{comment}{! メッセージ出力が抑制されます.}
2215                               \textcolor{comment}{!}
2216                               \textcolor{comment}{! If ".true." is given,}
2217                               \textcolor{comment}{! messages are suppressed.}
2218                               \textcolor{comment}{!}
2219     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2220                                                                       \textcolor{comment}{!}
2221                               \textcolor{comment}{! 時刻 (dc\_date\_types#DC\_DIFFTIME 型)}
2222                               \textcolor{comment}{!}
2223                               \textcolor{comment}{! 効果は *time* と同様です.}
2224     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2225                                                                       \textcolor{comment}{!}
2226                               \textcolor{comment}{! 時刻 (倍精度実数型)}
2227                               \textcolor{comment}{!}
2228                               \textcolor{comment}{! 効果は *time* と同様です.}
2229     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2230                                                                       \textcolor{comment}{!}
2231                               \textcolor{comment}{! 平均値の出力フラグ.}
2232                               \textcolor{comment}{! この値に .true. を与えた場合には,}
2233                               \textcolor{comment}{! 出力せずに与えられた値を一旦蓄えます.}
2234                               \textcolor{comment}{! .false. を与えた場合には,}
2235                               \textcolor{comment}{! *time* もしくは *difftime* と}
2236                               \textcolor{comment}{! HistoryCreate に与えた *interval* に}
2237                               \textcolor{comment}{! 関わらず出力を行います.}
2238                               \textcolor{comment}{!}
2239                               \textcolor{comment}{! HistoryAddVariable で}
2240                               \textcolor{comment}{! *time\_average* (または *average*)}
2241                               \textcolor{comment}{! に .true. を与えない場合は無効です.}
2242                               \textcolor{comment}{!}
2243                               \textcolor{comment}{! *time* と *difftime*}
2244                               \textcolor{comment}{! のどちらかを同時に与える必要があります.}
2245                               \textcolor{comment}{!}
2246     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2247                                                                       \textcolor{comment}{! 例外処理用フラグ.}
2248                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
2249                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
2250                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
2251                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
2252                               \textcolor{comment}{! *err* に .true. が代入されます.}
2253                               \textcolor{comment}{!}
2254                               \textcolor{comment}{! Exception handling flag.}
2255                               \textcolor{comment}{! By default, when error occur in}
2256                               \textcolor{comment}{! this procedure, the program aborts.}
2257                               \textcolor{comment}{! If this *err* argument is given,}
2258                               \textcolor{comment}{! .true. is substituted to *err* and}
2259                               \textcolor{comment}{! the program does not abort.}
2260     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2261 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2262         & varname, array, arraysize, history, range, &
2263         & time, quiet, difftime, timed, time\_average\_store, err )
2264         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2265         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2266         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2267         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2268         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2269         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2270         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2271         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2272         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2273         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2274         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2275         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2276         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2277         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2278 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2279 \textcolor{keyword}{    end interface}
2280     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble0"}
2281   \textcolor{keywordflow}{continue}
2282     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2283     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2284       & varname, &               \textcolor{comment}{! (in)}
2285       & (/\textcolor{keywordtype}{value}/), 1, &   \textcolor{comment}{! (in)}
2286       & history = history, &     \textcolor{comment}{! (inout) optional}
2287       & range = range, &         \textcolor{comment}{! (in) optional}
2288       & time = time, &           \textcolor{comment}{! (in) optional}
2289       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2290       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2291       & timed = timed, &         \textcolor{comment}{! (in) optional}
2292       & time\_average\_store = &
2293       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2294       & err = err )              \textcolor{comment}{! (out) optional}
2295     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a3b36168ea9523b127675090aaccd7297_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a20deaf69634919470a0530cce9f9265f}\label{historyput_8f90_a20deaf69634919470a0530cce9f9265f}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble1@{historyputdouble1}}
\index{historyputdouble1@{historyputdouble1}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble1()}{historyputdouble1()}}
{\footnotesize\ttfamily subroutine historyputdouble1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2300 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2300     \textcolor{comment}{!}
2301     \textcolor{comment}{!}
2302     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2303     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2304     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2305     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2306     \textcolor{keywordtype}{implicit none}
2307     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2308     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:)
2309     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2310     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2311     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2312     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2313     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2314     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2315     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2316     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2317     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2318 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2319         & varname, array, arraysize, history, range, &
2320         & time, quiet, difftime, timed, time\_average\_store, err )
2321         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2322         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2323         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2324         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2325         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2326         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2327         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2328         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2329         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2330         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2331         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2332         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2333         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2334         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2335 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2336 \textcolor{keyword}{    end interface}
2337     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble1"}
2338   \textcolor{keywordflow}{continue}
2339     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2340     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2341       & varname, &               \textcolor{comment}{! (in)}
2342       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2343       & history = history, &     \textcolor{comment}{! (inout) optional}
2344       & range = range, &         \textcolor{comment}{! (in) optional}
2345       & time = time, &           \textcolor{comment}{! (in) optional}
2346       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2347       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2348       & timed = timed, &         \textcolor{comment}{! (in) optional}
2349       & time\_average\_store = &
2350       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2351       & err = err )              \textcolor{comment}{! (out) optional}
2352     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a20deaf69634919470a0530cce9f9265f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_ae0b99569792e398ab7903085a38666d0}\label{historyput_8f90_ae0b99569792e398ab7903085a38666d0}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble2@{historyputdouble2}}
\index{historyputdouble2@{historyputdouble2}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble2()}{historyputdouble2()}}
{\footnotesize\ttfamily subroutine historyputdouble2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2357 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2357     \textcolor{comment}{!}
2358     \textcolor{comment}{!}
2359     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2360     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2361     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2362     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2363     \textcolor{keywordtype}{implicit none}
2364     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2365     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
2366     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2367     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2368     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2369     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2370     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2371     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2372     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2373     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2374     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2375 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2376         & varname, array, arraysize, history, range, &
2377         & time, quiet, difftime, timed, time\_average\_store, err )
2378         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2379         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2380         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2381         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2382         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2383         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2384         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2385         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2386         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2387         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2388         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2389         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2390         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2391         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2392 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2393 \textcolor{keyword}{    end interface}
2394     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble2"}
2395   \textcolor{keywordflow}{continue}
2396     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2397     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2398       & varname, &               \textcolor{comment}{! (in)}
2399       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2400       & history = history, &     \textcolor{comment}{! (inout) optional}
2401       & range = range, &         \textcolor{comment}{! (in) optional}
2402       & time = time, &           \textcolor{comment}{! (in) optional}
2403       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2404       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2405       & timed = timed, &         \textcolor{comment}{! (in) optional}
2406       & time\_average\_store = &
2407       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2408       & err = err )              \textcolor{comment}{! (out) optional}
2409     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_ae0b99569792e398ab7903085a38666d0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_abdf881e96f5f7737ffe5827521c94509}\label{historyput_8f90_abdf881e96f5f7737ffe5827521c94509}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble3@{historyputdouble3}}
\index{historyputdouble3@{historyputdouble3}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble3()}{historyputdouble3()}}
{\footnotesize\ttfamily subroutine historyputdouble3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2414 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2414     \textcolor{comment}{!}
2415     \textcolor{comment}{!}
2416     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2417     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2418     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2419     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2420     \textcolor{keywordtype}{implicit none}
2421     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2422     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
2423     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2424     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2425     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2426     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2427     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2428     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2429     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2430     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2431     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2432 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2433         & varname, array, arraysize, history, range, &
2434         & time, quiet, difftime, timed, time\_average\_store, err )
2435         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2436         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2437         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2438         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2439         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2440         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2441         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2442         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2443         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2444         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2445         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2446         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2447         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2448         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2449 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2450 \textcolor{keyword}{    end interface}
2451     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble3"}
2452   \textcolor{keywordflow}{continue}
2453     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2454     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2455       & varname, &               \textcolor{comment}{! (in)}
2456       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2457       & history = history, &     \textcolor{comment}{! (inout) optional}
2458       & range = range, &         \textcolor{comment}{! (in) optional}
2459       & time = time, &           \textcolor{comment}{! (in) optional}
2460       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2461       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2462       & timed = timed, &         \textcolor{comment}{! (in) optional}
2463       & time\_average\_store = &
2464       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2465       & err = err )              \textcolor{comment}{! (out) optional}
2466     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_abdf881e96f5f7737ffe5827521c94509_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a773681ebe16381761a27cdbb28952857}\label{historyput_8f90_a773681ebe16381761a27cdbb28952857}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble4@{historyputdouble4}}
\index{historyputdouble4@{historyputdouble4}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble4()}{historyputdouble4()}}
{\footnotesize\ttfamily subroutine historyputdouble4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2471 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2471     \textcolor{comment}{!}
2472     \textcolor{comment}{!}
2473     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2474     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2475     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2476     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2477     \textcolor{keywordtype}{implicit none}
2478     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2479     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
2480     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2481     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2482     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2483     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2484     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2485     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2486     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2487     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2488     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2489 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2490         & varname, array, arraysize, history, range, &
2491         & time, quiet, difftime, timed, time\_average\_store, err )
2492         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2493         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2494         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2495         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2496         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2497         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2498         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2499         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2500         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2501         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2502         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2503         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2504         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2505         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2506 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2507 \textcolor{keyword}{    end interface}
2508     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble4"}
2509   \textcolor{keywordflow}{continue}
2510     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2511     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2512       & varname, &               \textcolor{comment}{! (in)}
2513       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2514       & history = history, &     \textcolor{comment}{! (inout) optional}
2515       & range = range, &         \textcolor{comment}{! (in) optional}
2516       & time = time, &           \textcolor{comment}{! (in) optional}
2517       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2518       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2519       & timed = timed, &         \textcolor{comment}{! (in) optional}
2520       & time\_average\_store = &
2521       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2522       & err = err )              \textcolor{comment}{! (out) optional}
2523     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a773681ebe16381761a27cdbb28952857_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a5944d369dbe2e9b6f0fdaf87bb57bd36}\label{historyput_8f90_a5944d369dbe2e9b6f0fdaf87bb57bd36}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble5@{historyputdouble5}}
\index{historyputdouble5@{historyputdouble5}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble5()}{historyputdouble5()}}
{\footnotesize\ttfamily subroutine historyputdouble5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2528 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2528     \textcolor{comment}{!}
2529     \textcolor{comment}{!}
2530     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2531     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2532     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2533     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2534     \textcolor{keywordtype}{implicit none}
2535     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2536     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
2537     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2538     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2539     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2540     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2541     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2542     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2543     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2544     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2545     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2546 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2547         & varname, array, arraysize, history, range, &
2548         & time, quiet, difftime, timed, time\_average\_store, err )
2549         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2550         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2551         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2552         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2553         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2554         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2555         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2556         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2557         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2558         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2559         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2560         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2561         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2562         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2563 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2564 \textcolor{keyword}{    end interface}
2565     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble5"}
2566   \textcolor{keywordflow}{continue}
2567     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2568     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2569       & varname, &               \textcolor{comment}{! (in)}
2570       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2571       & history = history, &     \textcolor{comment}{! (inout) optional}
2572       & range = range, &         \textcolor{comment}{! (in) optional}
2573       & time = time, &           \textcolor{comment}{! (in) optional}
2574       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2575       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2576       & timed = timed, &         \textcolor{comment}{! (in) optional}
2577       & time\_average\_store = &
2578       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2579       & err = err )              \textcolor{comment}{! (out) optional}
2580     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a5944d369dbe2e9b6f0fdaf87bb57bd36_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a5c16bd2dd8dcab02a98bfcbe440cab37}\label{historyput_8f90_a5c16bd2dd8dcab02a98bfcbe440cab37}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble6@{historyputdouble6}}
\index{historyputdouble6@{historyputdouble6}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble6()}{historyputdouble6()}}
{\footnotesize\ttfamily subroutine historyputdouble6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2585 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2585     \textcolor{comment}{!}
2586     \textcolor{comment}{!}
2587     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2588     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2589     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2590     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2591     \textcolor{keywordtype}{implicit none}
2592     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2593     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
2594     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2595     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2596     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2597     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2598     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2599     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2600     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2601     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2602     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2603 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2604         & varname, array, arraysize, history, range, &
2605         & time, quiet, difftime, timed, time\_average\_store, err )
2606         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2607         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2608         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2609         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2610         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2611         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2612         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2613         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2614         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2615         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2616         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2617         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2618         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2619         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2620 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2621 \textcolor{keyword}{    end interface}
2622     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble6"}
2623   \textcolor{keywordflow}{continue}
2624     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2625     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2626       & varname, &               \textcolor{comment}{! (in)}
2627       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2628       & history = history, &     \textcolor{comment}{! (inout) optional}
2629       & range = range, &         \textcolor{comment}{! (in) optional}
2630       & time = time, &           \textcolor{comment}{! (in) optional}
2631       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2632       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2633       & timed = timed, &         \textcolor{comment}{! (in) optional}
2634       & time\_average\_store = &
2635       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2636       & err = err )              \textcolor{comment}{! (out) optional}
2637     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a5c16bd2dd8dcab02a98bfcbe440cab37_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_abfbe7275ad82a1e76f26693c29b2cee6}\label{historyput_8f90_abfbe7275ad82a1e76f26693c29b2cee6}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdouble7@{historyputdouble7}}
\index{historyputdouble7@{historyputdouble7}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdouble7()}{historyputdouble7()}}
{\footnotesize\ttfamily subroutine historyputdouble7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2642 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputdoubleex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2642     \textcolor{comment}{!}
2643     \textcolor{comment}{!}
2644     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2645     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2646     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2647     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2648     \textcolor{keywordtype}{implicit none}
2649     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2650     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
2651     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2652     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2653     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2654     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2655     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2656     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2657     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2658     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2659     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2660 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2661         & varname, array, arraysize, history, range, &
2662         & time, quiet, difftime, timed, time\_average\_store, err )
2663         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2664         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2665         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2666         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2667         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2668         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2669         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2670         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2671         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2672         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2673         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2674         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2675         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2676         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2677 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}
2678 \textcolor{keyword}{    end interface}
2679     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDouble7"}
2680   \textcolor{keywordflow}{continue}
2681     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2682     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}{historyputdoubleex}( &
2683       & varname, &               \textcolor{comment}{! (in)}
2684       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2685       & history = history, &     \textcolor{comment}{! (inout) optional}
2686       & range = range, &         \textcolor{comment}{! (in) optional}
2687       & time = time, &           \textcolor{comment}{! (in) optional}
2688       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2689       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2690       & timed = timed, &         \textcolor{comment}{! (in) optional}
2691       & time\_average\_store = &
2692       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2693       & err = err )              \textcolor{comment}{! (out) optional}
2694     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_abfbe7275ad82a1e76f26693c29b2cee6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}\label{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputdoubleex@{historyputdoubleex}}
\index{historyputdoubleex@{historyputdoubleex}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputdoubleex()}{historyputdoubleex()}}
{\footnotesize\ttfamily recursive subroutine historyputdoubleex (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real(dp), dimension(arraysize), intent(in)}]{array,  }\item[{integer, intent(in)}]{arraysize,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 563 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+earglack, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtvarsync(), dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+false(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, timegoahead(), and dc\+\_\+error\+::usr\+\_\+errno.



Referenced by historyputdouble0(), historyputdouble1(), historyputdouble2(), historyputdouble3(), historyputdouble4(), historyputdouble5(), historyputdouble6(), and historyputdouble7().


\begin{DoxyCode}
563     \textcolor{comment}{!}
564     \textcolor{comment}{!== データ出力}
565     \textcolor{comment}{!}
566     \textcolor{comment}{! こちらは配列サイズを指定する必要があるため、}
567     \textcolor{comment}{! HistoryPut を利用してください。}
568     \textcolor{comment}{!}
569     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
570     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
571     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}
572     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put}{put}, \hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}, \hyperlink{interfacegtdata__generic_1_1slice}{slice}, 
      \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, &
573       & \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}, \hyperlink{interfacegtdata__generic_1_1get}{get}, \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
574     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
575     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
576     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
577     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{interfacedc__present_1_1present__select}{present\_select}, &
578       & \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
579     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}, &
580       & \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}, \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
581     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
582     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
583     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
584     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==), \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, &
585       & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \textcolor{keyword}{operator}(-), \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__string_1_1tochar}{tochar}
586     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
587     \textcolor{keywordtype}{implicit none}
588     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
589     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
590     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
591     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
592     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
593                               \textcolor{comment}{! gtool4 のコンマ記法による}
594                               \textcolor{comment}{! データの出力範囲指定}
595                               \textcolor{comment}{!}
596                               \textcolor{comment}{! このオプションを用いる}
597                               \textcolor{comment}{! 際には、必ず *HistorySetTime*}
598                               \textcolor{comment}{! によって明示的に時刻の設定}
599                               \textcolor{comment}{! を行ってください。}
600                               \textcolor{comment}{! また、*HistoryGet* と異なり、}
601                               \textcolor{comment}{! 時刻に関する範囲指定は}
602                               \textcolor{comment}{! 行なえません。}
603                               \textcolor{comment}{!}
604                               \textcolor{comment}{! 書式に関する詳細は}
605                               \textcolor{comment}{! \{gtool4 netCDF 規約\}[link:../xref.htm#label-6]}
606                               \textcolor{comment}{! の「5.4 コンマ記法」を参照して}
607                               \textcolor{comment}{! ください。}
608     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
609                               \textcolor{comment}{!}
610                               \textcolor{comment}{! 時刻. (単精度実数型)}
611                               \textcolor{comment}{!}
612                               \textcolor{comment}{! この引数を与える場合,}
613                               \textcolor{comment}{! 出力するかどうかをプログラムが}
614                               \textcolor{comment}{! 自動的に判断します.}
615                               \textcolor{comment}{! *time* に与えられた数値が}
616                               \textcolor{comment}{! HistoryCreate に与えた *interval*}
617                               \textcolor{comment}{! で割り切れる場合には出力が行われます.}
618                               \textcolor{comment}{!}
619                               \textcolor{comment}{! HistoryAddVariable で}
620                               \textcolor{comment}{! *time\_average* (または *average*)}
621                               \textcolor{comment}{! に .true. を与えた場合には,}
622                               \textcolor{comment}{! *time*, *difftime*}
623                               \textcolor{comment}{! のどちらの引数も与えない場合に,}
624                               \textcolor{comment}{! プログラムはエラーを発生させます.}
625                               \textcolor{comment}{!}
626                               \textcolor{comment}{! また, この引数と *range* は併用できません.}
627                               \textcolor{comment}{! 併用した場合には,}
628                               \textcolor{comment}{! プログラムはエラーを発生させます.}
629                               \textcolor{comment}{!}
630     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
631                               \textcolor{comment}{! .false. を与えた場合,}
632                               \textcolor{comment}{! このサブルーチンが呼ばれる毎に}
633                               \textcolor{comment}{! ファイル名と時刻が表示されます.}
634                               \textcolor{comment}{! デフォルトは .true. です.}
635                               \textcolor{comment}{!}
636                               \textcolor{comment}{! If ".false." is given,}
637                               \textcolor{comment}{! a filename and time is displayed}
638                               \textcolor{comment}{! when this subroutine is called.}
639                               \textcolor{comment}{! Default value is ".true.".}
640                               \textcolor{comment}{!}
641     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
642                               \textcolor{comment}{!}
643                               \textcolor{comment}{! 時刻 (dc\_date\_types#DC\_DIFFTIME 型)}
644                               \textcolor{comment}{!}
645                               \textcolor{comment}{! 効果は *time* と同様です.}
646                               \textcolor{comment}{!}
647     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
648                               \textcolor{comment}{!}
649                               \textcolor{comment}{! 時刻 (倍精度実数型)}
650                               \textcolor{comment}{!}
651                               \textcolor{comment}{! 効果は *time* と同様です.}
652                               \textcolor{comment}{!}
653     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
654                               \textcolor{comment}{!}
655                               \textcolor{comment}{! 平均値の出力フラグ.}
656                               \textcolor{comment}{! この値に .true. を与えた場合には,}
657                               \textcolor{comment}{! 出力せずに与えられた値を一旦蓄えます.}
658                               \textcolor{comment}{! .false. を与えた場合には,}
659                               \textcolor{comment}{! *time* もしくは *difftime* と}
660                               \textcolor{comment}{! HistoryCreate に与えた *interval* に}
661                               \textcolor{comment}{! 関わらず出力を行います.}
662                               \textcolor{comment}{!}
663                               \textcolor{comment}{! HistoryAddVariable で}
664                               \textcolor{comment}{! *time\_average* (または *average*)}
665                               \textcolor{comment}{! に .true. を与えない場合は無効です.}
666                               \textcolor{comment}{!}
667                               \textcolor{comment}{! *time* と *difftime*}
668                               \textcolor{comment}{! のどちらかを同時に与える必要があります.}
669                               \textcolor{comment}{!}
670     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
671                               \textcolor{comment}{! 例外処理用フラグ.}
672                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
673                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
674                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
675                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
676                               \textcolor{comment}{! *err* に .true. が代入されます.}
677                               \textcolor{comment}{!}
678                               \textcolor{comment}{! Exception handling flag.}
679                               \textcolor{comment}{! By default, when error occur in}
680                               \textcolor{comment}{! this procedure, the program aborts.}
681                               \textcolor{comment}{! If this *err* argument is given,}
682                               \textcolor{comment}{! .true. is substituted to *err* and}
683                               \textcolor{comment}{! the program does not abort.}
684     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{target}:: array\_work(arraysize)
685     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer}:: array\_work2(:) =>null()
686     \textcolor{keywordtype}{integer}:: arraysize\_work2
687     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var, timevar
688     \textcolor{keywordtype}{character(STRING)}:: url, file, time\_str
689     \textcolor{keywordtype}{real}:: time\_value(1:1)
690     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
691     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: start(:), count(:), stride(:)
692     \textcolor{keywordtype}{integer} :: i, dims, v\_ord
693     \textcolor{keywordtype}{character(STRING)}:: avr\_msg
694     \textcolor{keywordtype}{logical} :: slice\_err
695     \textcolor{keywordtype}{character(STRING)}:: time\_name
696     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: bnds\_suffix = \textcolor{stringliteral}{'\_bnds'}
697     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: bndsvar
698     \textcolor{keywordtype}{integer}:: bnds\_ord, time\_count, bnds\_rank
699     \textcolor{keywordtype}{integer}:: stat
700     \textcolor{keywordtype}{logical}:: output\_step
701     \textcolor{keywordtype}{real(DP)}:: timedw
702 \textcolor{comment}{!    type(DC\_DIFFTIME):: difftimew}
703     \textcolor{keywordtype}{real(DP)}:: avr\_coef
704     \textcolor{keywordtype}{character(STRING)}:: cause\_c
705     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
706 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( varname, var, head, history, err )
707         \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
708         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
709         \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: varname
710         \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(out)}:: var
711         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: head
712         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
713         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
714 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
715 \textcolor{keyword}{    end interface}
716     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutDoubleEx"}
717   \textcolor{keywordflow}{continue}
718     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%a range=%a'}, &
719       & ca=\hyperlink{interfacedc__string_1_1stoa}{stoa}(varname, \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, \textcolor{stringliteral}{'(no-range)'}, range)))
720     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
721     cause\_c = \textcolor{stringliteral}{""}
722     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
723       hst => history
724     \textcolor{keywordflow}{else}
725       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
726 \textcolor{keywordflow}{    endif}
727     \textcolor{comment}{!-----------------------------------------------------------------}
728     \textcolor{comment}{!  初期設定のチェック}
729     \textcolor{comment}{!  Check initialization}
730     \textcolor{comment}{!-----------------------------------------------------------------}
731     \textcolor{keywordflow}{if} ( .not. hst % initialized ) \textcolor{keywordflow}{then}
732       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
733       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY'}
734       \textcolor{keywordflow}{goto} 999
735 \textcolor{keywordflow}{    end if}
736     \textcolor{comment}{!-----------------------------------------------------------------}
737     \textcolor{comment}{!  time と range の同時使用の禁止}
738     \textcolor{comment}{!  Permit concurrent use of "time" and "range"}
739     \textcolor{comment}{!-----------------------------------------------------------------}
740     \textcolor{keywordflow}{if} ( ( \textcolor{keyword}{present}(time) .or. \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) ) &
741       &  .and. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) ) \textcolor{keywordflow}{then}
742       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
743         & \textcolor{stringliteral}{'(varname=%c) "range" and "time" or "timed" or "difftime" are not suppored at the same time'}, &
744         & c1 = trim(varname) )
745       stat = \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
746       cause\_c = \textcolor{stringliteral}{'"range" and "time" or "timed" or "difftime" are not suppored at the same time'}
747       \textcolor{keywordflow}{goto} 999
748 \textcolor{keywordflow}{    end if}
749     \textcolor{comment}{!-----------------------------------------------------------------}
750     \textcolor{comment}{!  hst 内の varname 変数の変数番号を取得}
751     \textcolor{comment}{!  Get variable number of "varname" in "hst"}
752     \textcolor{comment}{!-----------------------------------------------------------------}
753     v\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}(hst, varname)
754                         \textcolor{comment}{!-----------------------------------------------------------------}
755     \textcolor{comment}{!  時間平均値のためのデータ格納}
756     \textcolor{comment}{!  Store data for time average value}
757     \textcolor{comment}{!-----------------------------------------------------------------}
758     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
759       timedw = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
760     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
761       timedw = timed
762     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
763       timedw = time
764 \textcolor{keywordflow}{    end if}
765     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
766       \textcolor{comment}{!}
767       \textcolor{comment}{! var\_avr\_count == -1: 平均処理は行わない.}
768       \textcolor{comment}{! var\_avr\_count >=  0: 平均処理を行う.}
769       \textcolor{comment}{!}
770       \textcolor{comment}{! これらは HistoryAddVariable で指定される.}
771       \textcolor{comment}{!}
772       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
773         \textcolor{comment}{! 時刻が指定されない場合には平均処理が不可能なため}
774         \textcolor{comment}{! エラー発生. dc\_error のエラーメッセージだけでは多少}
775         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
776         \textcolor{comment}{!}
777         \textcolor{keywordflow}{if} (       .not. \textcolor{keyword}{present}(time) &
778           &  .and. .not. \textcolor{keyword}{present}(timed) &
779           &  .and. .not. \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
780           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
781             & \textcolor{stringliteral}{'(varname=%c) arguments "time" or "timed" or "difftime" are needed '} // &
782             & \textcolor{stringliteral}{'when "time\_average=.true." is specified to "HistoryAddVariable"'}, &
783             & c1 = trim(varname) )
784           stat = \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}
785           cause\_c = \textcolor{stringliteral}{'time'}
786           \textcolor{keywordflow}{goto} 999
787 \textcolor{keywordflow}{        end if}
788         \textcolor{comment}{! 与えられたデータのサイズと内部で積算しているデータのサイズが}
789         \textcolor{comment}{! 一致しない場合にもエラーを発生.}
790         \textcolor{comment}{! データサイズは HistoryPut -> HistoryPutEx の際に}
791         \textcolor{comment}{! 全て 1 次元化しているため, 単純に配列サイズでのみ判定.}
792         \textcolor{comment}{! dc\_error のエラーメッセージだけでは多少}
793         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
794         \textcolor{comment}{!}
795         \textcolor{keywordflow}{if} ( arraysize /= hst % var\_avr\_data( v\_ord ) % length ) \textcolor{keywordflow}{then}
796           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
797             & \textcolor{stringliteral}{'(varname=%c) size of array should be (%d). size of array is (%d)'}, &
798             & i = (/hst % var\_avr\_data( v\_ord ) % length, arraysize/), &
799             & c1 = trim(varname) )
800           stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
801           cause\_c = \textcolor{stringliteral}{'array'}
802           \textcolor{keywordflow}{goto} 999
803 \textcolor{keywordflow}{        end if}
804         \textcolor{comment}{! この if 〜 end if では以下の動作を行う.}
805         \textcolor{comment}{!}
806         \textcolor{comment}{! * 平均処理時の係数 (avr\_coef) の算出}
807         \textcolor{comment}{! * 係数を算出するための以下の値の設定}
808         \textcolor{comment}{!   * 基本時間間隔 (var\_avr\_baseint)}
809         \textcolor{comment}{!   * 前回出力の時刻 (var\_avr\_prevtime)}
810         \textcolor{comment}{! * 初回出力の判定を行うラベル (var\_avr\_firstput) の設定}
811         \textcolor{comment}{!}
812         \textcolor{comment}{! 1 度目に呼ばれた場合はとりあえず係数を 1.0 にするとともに,}
813         \textcolor{comment}{! prevtime に現在時刻を保管}
814         \textcolor{comment}{!}
815         \textcolor{keywordflow}{if} ( hst % var\_avr\_firstput( v\_ord ) ) \textcolor{keywordflow}{then}
816           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
817             avr\_coef = 1.0\_dp
818             hst % var\_avr\_prevtime( v\_ord ) = timedw
819           \textcolor{keywordflow}{else}
820             hst % var\_avr\_baseint( v\_ord ) = &
821               & timedw - hst % var\_avr\_prevtime( v\_ord )
822             avr\_coef = 1.0\_dp
823             hst % var\_avr\_prevtime( v\_ord ) = timedw
824             hst % var\_avr\_firstput( v\_ord ) = .false.
825 \textcolor{keywordflow}{          end if}
826         \textcolor{comment}{! 2 度目以降に呼ばれた場合}
827         \textcolor{comment}{!}
828         \textcolor{keywordflow}{else}
829           \textcolor{comment}{! 前回出力を行った (var\_avr\_count == 0 に初期化された)}
830           \textcolor{comment}{! 場合には baseint に前回時刻と今回時刻の差を設定.}
831           \textcolor{comment}{! avr\_coef には 1 を設定.}
832           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
833           \textcolor{comment}{!}
834           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
835             hst % var\_avr\_baseint( v\_ord ) = &
836               & timedw - hst % var\_avr\_prevtime( v\_ord )
837             avr\_coef = 1.0\_dp
838             hst % var\_avr\_prevtime( v\_ord ) = timedw
839           \textcolor{comment}{! var\_avr\_count > 0 (平均処理されるデータが蓄積されている)}
840           \textcolor{comment}{! 場合には avr\_coef には前回時刻と今回時刻の差の,}
841           \textcolor{comment}{! baseint からの比を設定する.}
842           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
843           \textcolor{comment}{!}
844           \textcolor{keywordflow}{else}
845             avr\_coef = ( timedw - hst % var\_avr\_prevtime( v\_ord ) ) &
846               &          / hst % var\_avr\_baseint( v\_ord )
847             hst % var\_avr\_prevtime( v\_ord ) = timedw
848 \textcolor{keywordflow}{          end if}
849 \textcolor{keywordflow}{        end if}
850         \textcolor{comment}{! 積算値 a\_DataAvr に, 今回のデータに係数を掛けたもの}
851         \textcolor{comment}{! を加算する.}
852         \textcolor{comment}{!}
853         hst % var\_avr\_data( v\_ord ) % a\_DataAvr = &
854           & hst % var\_avr\_data( v\_ord ) % a\_DataAvr + array * avr\_coef
855         \textcolor{comment}{! 積算カウント var\_avr\_count に +1 し,}
856         \textcolor{comment}{! 係数の積算値 var\_avr\_coefsum に今回設定された}
857         \textcolor{comment}{! 係数を加算する.}
858         \textcolor{comment}{!}
859         hst % var\_avr\_count( v\_ord ) = &
860           & hst % var\_avr\_count( v\_ord ) + 1
861         hst % var\_avr\_coefsum( v\_ord ) = &
862           & hst % var\_avr\_coefsum( v\_ord ) + avr\_coef
863         \textcolor{comment}{! time\_bnds(2) に今回の時刻を設定する.}
864         \textcolor{comment}{! (毎回上書きされる).}
865         \textcolor{comment}{!}
866         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
867           hst % time\_bnds(2:2) = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
868         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present} (timed) ) \textcolor{keywordflow}{then}
869           hst % time\_bnds(2:2) = timed
870         \textcolor{keywordflow}{else}
871           hst % time\_bnds(2:2) = time
872 \textcolor{keywordflow}{        end if}
873 \textcolor{keywordflow}{      end if}
874 \textcolor{keywordflow}{    end if}
875     \textcolor{comment}{!-----------------------------------------------------------------}
876     \textcolor{comment}{!  初期時刻の設定}
877     \textcolor{comment}{!  Configure initial time}
878     \textcolor{comment}{!-----------------------------------------------------------------}
879     \textcolor{keywordflow}{if} ( .not. hst % origin\_setting ) \textcolor{keywordflow}{then}
880       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
881         hst % origin         = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
882         hst % time\_bnds      = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
883         hst % origin\_setting = .true.
884       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
885         hst % origin         = timed
886         hst % time\_bnds      = timed
887         hst % origin\_setting = .true.
888       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
889         hst % origin         = time
890         hst % time\_bnds      = time
891         hst % origin\_setting = .true.
892 \textcolor{keywordflow}{      end if}
893 \textcolor{comment}{!!$      if ( present(difftime) ) then}
894 \textcolor{comment}{!!$        hst % origin         = difftime}
895 \textcolor{comment}{!!$        hst % time\_bnds      = EvalByUnit( difftime, '', hst % unlimited\_units\_symbol )}
896 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
897 \textcolor{comment}{!!$      elseif ( present(timed) ) then}
898 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &              ! (out)}
899 \textcolor{comment}{!!$          & real(timed), '', hst % unlimited\_units\_symbol ) ! (in)}
900 \textcolor{comment}{!!$        hst % time\_bnds      = timed}
901 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
902 \textcolor{comment}{!!$      elseif ( present(time) ) then}
903 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &       ! (out)}
904 \textcolor{comment}{!!$          & time, '', hst % unlimited\_units\_symbol ) ! (in)}
905 \textcolor{comment}{!!$        hst % time\_bnds      = time}
906 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
907 \textcolor{comment}{!!$      end if}
908 \textcolor{keywordflow}{    end if}
909                         \textcolor{comment}{!-----------------------------------------------------------------}
910     \textcolor{comment}{!  時刻の自動チェック}
911     \textcolor{comment}{!  Check time automatically}
912     \textcolor{comment}{!-----------------------------------------------------------------}
913     output\_step = .true.
914     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(time\_average\_store) ) \textcolor{keywordflow}{then}
915       output\_step = .true.
916     \textcolor{keywordflow}{elseif} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(time\_average\_store) ) \textcolor{keywordflow}{then}
917       output\_step = .false.
918     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) .or. \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
919       output\_step = .false.
920       \textcolor{keywordflow}{if} ( hst % interval == 0 ) \textcolor{keywordflow}{then}
921         output\_step = .true.
922       \textcolor{keywordflow}{else}
923         \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( timedw - hst % origin, hst % interval ) == 0 ) \textcolor{keywordflow}{then}
924           output\_step = .true.
925 \textcolor{keywordflow}{        end if}
926 \textcolor{keywordflow}{      end if}
927 \textcolor{keywordflow}{    end if}
928     \textcolor{comment}{!-------------------------}
929     \textcolor{comment}{!  時間平均値出力のための情報処理}
930     \textcolor{comment}{!  Information processing for output time-averaged value}
931     \textcolor{keywordflow}{if} ( .not. output\_step ) \textcolor{keywordflow}{then}
932       \textcolor{keywordflow}{goto} 999
933     \textcolor{keywordflow}{else}
934       array\_work = array
935       avr\_msg = \textcolor{stringliteral}{''}
936       \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
937         \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
938           \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
939             avr\_msg = \textcolor{stringliteral}{'(time average of '} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}(hst % var\_avr\_count( v\_ord )) ) // \textcolor{stringliteral}{' step
       data)'}
940 \textcolor{keywordflow}{          end if}
941           \textcolor{comment}{!-------------------}
942           \textcolor{comment}{!  蓄えた値の時間平均化}
943           \textcolor{comment}{!  Average stored value in time direction}
944           \textcolor{comment}{! a\_DataAvr に蓄えられた値を係数の積算値で割って,}
945           \textcolor{comment}{! これを出力値とする.}
946           \textcolor{comment}{!}
947           array\_work = &
948             & ( hst % var\_avr\_data( v\_ord ) % a\_DataAvr ) / ( hst % var\_avr\_coefsum( v\_ord ) )
949           \textcolor{comment}{! 積算値, 積算カウント, 係数の積算値をクリアする.}
950           \textcolor{comment}{!}
951           hst % var\_avr\_data( v\_ord ) % a\_DataAvr = 0.0
952           hst % var\_avr\_count( v\_ord ) = 0
953           hst % var\_avr\_coefsum( v\_ord ) = 0.0\_dp
954           hst % var\_avr\_firstput( v\_ord ) = .false.
955 \textcolor{keywordflow}{        end if}
956 \textcolor{keywordflow}{      end if}
957 \textcolor{keywordflow}{    end if}
958     array\_work2 => array\_work
959     arraysize\_work2 = arraysize
960     \textcolor{comment}{!-----------------------------------------------------------------}
961     \textcolor{comment}{!  時刻を1つ進めて, データ出力}
962     \textcolor{comment}{!  Progress one time, and output data}
963     \textcolor{comment}{!-----------------------------------------------------------------}
964     \textcolor{keyword}{call }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( &
965       & varname = varname, &     \textcolor{comment}{! (in)}
966                           & head = \textcolor{keywordtype}{real(array\_work2(1))}, & \textcolor{comment}{! (in)}
967       & var = var, &             \textcolor{comment}{! (out)}
968       & history = history, &     \textcolor{comment}{! (inout)}
969       & err = err )              \textcolor{comment}{! (out)}
970     call \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var, & \textcolor{comment}{! (in)}
971       & alldims=dims )   \textcolor{comment}{! (out)}
972     if (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims < 1)) then
973       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varname=<%c> has no dimension. so range is ignoread.'}, &
974       & c1=trim(varname))
975 \textcolor{keywordflow}{    end if}
976     \textcolor{keywordflow}{if} (.not. (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims > 0))) \textcolor{keywordflow}{then}
977       \textcolor{comment}{! range 無しの普通の出力の場合}
978       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
979     \textcolor{keywordflow}{else}
980       \textcolor{comment}{! range があり, 且つ varname がちゃんと次元を持っている場合}
981       \textcolor{comment}{!}
982       \textcolor{comment}{! 元々の start, count, stride を保持. データを与えた後に復元する.}
983       \textcolor{keyword}{allocate}(start(dims), count(dims), stride(dims))
984       \textcolor{keywordflow}{do} i = 1, dims
985         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}(var, i, start(i), count(i), stride(i))
986 \textcolor{keywordflow}{      end do}
987       slice\_err = .false. \textcolor{comment}{! 不要だが Slice の引用仕様として必要なため}
988       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, range, slice\_err)
989       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
990       \textcolor{comment}{! 復元}
991       \textcolor{keywordflow}{do} i = 1, dims
992         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, i, start(i), count(i), stride(i))
993 \textcolor{keywordflow}{      end do}
994       \textcolor{keyword}{deallocate}(start, count, stride)
995 \textcolor{keywordflow}{    end if}
996     \textcolor{keyword}{call }\hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}(var)
997     \textcolor{keywordflow}{if} ( hst % mpi\_gather .and. v\_ord > 0 ) \textcolor{keywordflow}{then}
998       \textcolor{keyword}{deallocate}( array\_work2 )
999 \textcolor{keywordflow}{    end if}
1000                         \textcolor{comment}{!-----------------------------------------------------------------}
1001     \textcolor{comment}{!  "time\_bnds" 変数への出力}
1002     \textcolor{comment}{!  Output to "time\_bnds" variable}
1003     \textcolor{comment}{!-----------------------------------------------------------------}
1004     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
1005       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
1006         \textcolor{comment}{!-------------------}
1007         \textcolor{comment}{!  時間次元の名前とファイル名を取得}
1008         \textcolor{comment}{!  Get name of time dimension, and filename}
1009         timevar = hst % dimvars( hst % unlimited\_index )
1010         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1011           & var = timevar, &   \textcolor{comment}{! (in)}
1012           & url = url, &       \textcolor{comment}{! (out)}
1013           & name = time\_name ) \textcolor{comment}{! (out)}
1014         \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
1015           & file = file )                 \textcolor{comment}{! (out)}
1016         \textcolor{comment}{!-------------------}
1017         \textcolor{comment}{!  "time\_bnds" 変数の取得}
1018         \textcolor{comment}{!  Get "time\_bnds" variable}
1019         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var = bndsvar, &
1020           & url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file=file, var=trim(time\_name) // bnds\_suffix) )
1021         bnds\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}( hst, trim(time\_name) // bnds\_suffix)
1022         \textcolor{comment}{!-------------------}
1023         \textcolor{comment}{!  "time\_bnds" 変数への出力}
1024         \textcolor{comment}{!  Output to "time\_bnds" variable}
1025         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1026           & var = bndsvar, &                        \textcolor{comment}{! (in)}
1027           & rank = bnds\_rank )                      \textcolor{comment}{! (out)}
1028         time\_count = 1
1029         \textcolor{keywordflow}{if} ( bnds\_rank > 1 ) \textcolor{keywordflow}{then}
1030           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1031             & var = bndsvar, &                             \textcolor{comment}{! (in)}
1032             & dimord = hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
1033             & allcount = time\_count )                      \textcolor{comment}{! (out)}
1034 \textcolor{keywordflow}{        end if}
1035         \textcolor{keywordflow}{if}  ( (hst % time\_bnds\_output\_count < 1) &
1036           &  .or. (hst % time\_bnds\_output\_count < time\_count) ) \textcolor{keywordflow}{then}
1037           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(bndsvar, hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
1038             & start=hst % time\_bnds\_output\_count+1, count=1)        \textcolor{comment}{! (in)}
1039           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(bndsvar, hst % time\_bnds, 2)
1040           hst % time\_bnds\_output\_count = hst % time\_bnds\_output\_count + 1
1041 \textcolor{keywordflow}{        end if}
1042         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var = bndsvar ) \textcolor{comment}{! (inout)}
1043         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1044           hst % time\_bnds(1:1) = &
1045             & \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1046         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
1047           hst % time\_bnds(1:1) = timed
1048         \textcolor{keywordflow}{else}
1049           hst % time\_bnds(1:1) = time
1050 \textcolor{keywordflow}{        end if}
1051 \textcolor{keywordflow}{      end if}
1052 \textcolor{keywordflow}{    end if}
1053     \textcolor{comment}{!-----------------------------------------------------------------}
1054     \textcolor{comment}{!  メッセージ出力}
1055     \textcolor{comment}{!  Output messages}
1056     \textcolor{comment}{!-----------------------------------------------------------------}
1057     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
1058       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( hst % dimvars(1), & \textcolor{comment}{! (in)}
1059         & url = url )                   \textcolor{comment}{! (out)}
1060       \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
1061         & file = file )                 \textcolor{comment}{! (out)}
1062       \textcolor{keywordflow}{if} ( hst % unlimited\_index < 1 ) \textcolor{keywordflow}{then}
1063         time\_str = \textcolor{stringliteral}{''}
1064       \textcolor{keywordflow}{else}
1065         timevar = hst % dimvars(hst % unlimited\_index)
1066         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}( timevar, &                     \textcolor{comment}{! (in)}
1067           & 1, start = hst % count(v\_ord), count = 1 ) \textcolor{comment}{! (in)}
1068         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( timevar, & \textcolor{comment}{! (inout)}
1069           & time\_value, &    \textcolor{comment}{! (out)}
1070           & 1, &             \textcolor{comment}{! (in)}
1071           & err )            \textcolor{comment}{! (out)}
1072         time\_str = \textcolor{stringliteral}{'(time='} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( time\_value(1) )) // \textcolor{stringliteral}{')'}
1073 \textcolor{keywordflow}{      end if}
1074       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, \textcolor{stringliteral}{'HistoryPut'}, &
1075         & \textcolor{stringliteral}{'"%a" => "%a" %a %a'}, &
1076         & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}( varname, file, time\_str, avr\_msg ) )
1077 \textcolor{keywordflow}{    end if}
1078     \textcolor{comment}{!-----------------------------------------------------------------}
1079     \textcolor{comment}{!  終了処理, 例外処理}
1080     \textcolor{comment}{!  Termination and Exception handling}
1081     \textcolor{comment}{!-----------------------------------------------------------------}
1082 999 \textcolor{keywordflow}{continue}
1083     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
1084     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=307pt]{historyput_8f90_a3e753d887ed61848f0ab07dfabc617f2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a7ac04d51b92163bc230ddb56b09e9229}\label{historyput_8f90_a7ac04d51b92163bc230ddb56b09e9229}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint0@{historyputint0}}
\index{historyputint0@{historyputint0}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint0()}{historyputint0()}}
{\footnotesize\ttfamily subroutine historyputint0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3155 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3155     \textcolor{comment}{!}
3156     \textcolor{comment}{!}
3157     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3158     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3159     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3160     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3161     \textcolor{keywordtype}{implicit none}
3162     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3163     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: value
3164     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3165     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3166     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3167     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3168     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3169     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3170     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3171     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3172     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3173 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3174         & varname, array, arraysize, history, range, &
3175         & time, quiet, difftime, timed, time\_average\_store, err )
3176         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3177         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3178         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3179         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3180         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3181         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3182         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3183         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3184         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3185         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3186         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3187         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3188         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3189         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3190 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3191 \textcolor{keyword}{    end interface}
3192     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt0"}
3193   \textcolor{keywordflow}{continue}
3194     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3195     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3196       & varname, &               \textcolor{comment}{! (in)}
3197       & (/\textcolor{keywordtype}{value}/), 1, &   \textcolor{comment}{! (in)}
3198       & history = history, &     \textcolor{comment}{! (inout) optional}
3199       & range = range, &         \textcolor{comment}{! (in) optional}
3200       & time = time, &           \textcolor{comment}{! (in) optional}
3201       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3202       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3203       & timed = timed, &         \textcolor{comment}{! (in) optional}
3204       & time\_average\_store = &
3205       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3206       & err = err )              \textcolor{comment}{! (out) optional}
3207     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a7ac04d51b92163bc230ddb56b09e9229_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a773909790393bbc45f947d48a53d27d9}\label{historyput_8f90_a773909790393bbc45f947d48a53d27d9}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint1@{historyputint1}}
\index{historyputint1@{historyputint1}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint1()}{historyputint1()}}
{\footnotesize\ttfamily subroutine historyputint1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3212 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3212     \textcolor{comment}{!}
3213     \textcolor{comment}{!}
3214     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3215     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3216     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3217     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3218     \textcolor{keywordtype}{implicit none}
3219     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3220     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:)
3221     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3222     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3223     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3224     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3225     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3226     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3227     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3228     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3229     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3230 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3231         & varname, array, arraysize, history, range, &
3232         & time, quiet, difftime, timed, time\_average\_store, err )
3233         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3234         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3235         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3236         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3237         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3238         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3239         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3240         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3241         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3242         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3243         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3244         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3245         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3246         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3247 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3248 \textcolor{keyword}{    end interface}
3249     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt1"}
3250   \textcolor{keywordflow}{continue}
3251     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3252     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3253       & varname, &               \textcolor{comment}{! (in)}
3254       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3255       & history = history, &     \textcolor{comment}{! (inout) optional}
3256       & range = range, &         \textcolor{comment}{! (in) optional}
3257       & time = time, &           \textcolor{comment}{! (in) optional}
3258       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3259       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3260       & timed = timed, &         \textcolor{comment}{! (in) optional}
3261       & time\_average\_store = &
3262       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3263       & err = err )              \textcolor{comment}{! (out) optional}
3264     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a773909790393bbc45f947d48a53d27d9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_ada2d2dff3432972bf002a8945e4c683e}\label{historyput_8f90_ada2d2dff3432972bf002a8945e4c683e}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint2@{historyputint2}}
\index{historyputint2@{historyputint2}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint2()}{historyputint2()}}
{\footnotesize\ttfamily subroutine historyputint2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3269 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3269     \textcolor{comment}{!}
3270     \textcolor{comment}{!}
3271     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3272     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3273     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3274     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3275     \textcolor{keywordtype}{implicit none}
3276     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3277     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
3278     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3279     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3280     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3281     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3282     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3283     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3284     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3285     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3286     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3287 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3288         & varname, array, arraysize, history, range, &
3289         & time, quiet, difftime, timed, time\_average\_store, err )
3290         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3291         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3292         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3293         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3294         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3295         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3296         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3297         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3298         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3299         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3300         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3301         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3302         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3303         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3304 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3305 \textcolor{keyword}{    end interface}
3306     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt2"}
3307   \textcolor{keywordflow}{continue}
3308     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3309     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3310       & varname, &               \textcolor{comment}{! (in)}
3311       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3312       & history = history, &     \textcolor{comment}{! (inout) optional}
3313       & range = range, &         \textcolor{comment}{! (in) optional}
3314       & time = time, &           \textcolor{comment}{! (in) optional}
3315       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3316       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3317       & timed = timed, &         \textcolor{comment}{! (in) optional}
3318       & time\_average\_store = &
3319       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3320       & err = err )              \textcolor{comment}{! (out) optional}
3321     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_ada2d2dff3432972bf002a8945e4c683e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_acbcf6699f2a0ec5a8dbb7acbdba42f1e}\label{historyput_8f90_acbcf6699f2a0ec5a8dbb7acbdba42f1e}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint3@{historyputint3}}
\index{historyputint3@{historyputint3}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint3()}{historyputint3()}}
{\footnotesize\ttfamily subroutine historyputint3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3326 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3326     \textcolor{comment}{!}
3327     \textcolor{comment}{!}
3328     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3329     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3330     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3331     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3332     \textcolor{keywordtype}{implicit none}
3333     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3334     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
3335     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3336     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3337     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3338     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3339     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3340     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3341     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3342     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3343     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3344 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3345         & varname, array, arraysize, history, range, &
3346         & time, quiet, difftime, timed, time\_average\_store, err )
3347         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3348         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3349         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3350         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3351         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3352         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3353         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3354         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3355         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3356         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3357         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3358         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3359         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3360         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3361 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3362 \textcolor{keyword}{    end interface}
3363     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt3"}
3364   \textcolor{keywordflow}{continue}
3365     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3366     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3367       & varname, &               \textcolor{comment}{! (in)}
3368       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3369       & history = history, &     \textcolor{comment}{! (inout) optional}
3370       & range = range, &         \textcolor{comment}{! (in) optional}
3371       & time = time, &           \textcolor{comment}{! (in) optional}
3372       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3373       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3374       & timed = timed, &         \textcolor{comment}{! (in) optional}
3375       & time\_average\_store = &
3376       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3377       & err = err )              \textcolor{comment}{! (out) optional}
3378     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_acbcf6699f2a0ec5a8dbb7acbdba42f1e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a85ed9bad172b248ea4ead339d0ad1008}\label{historyput_8f90_a85ed9bad172b248ea4ead339d0ad1008}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint4@{historyputint4}}
\index{historyputint4@{historyputint4}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint4()}{historyputint4()}}
{\footnotesize\ttfamily subroutine historyputint4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3383 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3383     \textcolor{comment}{!}
3384     \textcolor{comment}{!}
3385     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3386     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3387     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3388     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3389     \textcolor{keywordtype}{implicit none}
3390     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3391     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
3392     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3393     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3394     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3395     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3396     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3397     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3398     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3399     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3400     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3401 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3402         & varname, array, arraysize, history, range, &
3403         & time, quiet, difftime, timed, time\_average\_store, err )
3404         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3405         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3406         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3407         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3408         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3409         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3410         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3411         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3412         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3413         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3414         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3415         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3416         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3417         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3418 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3419 \textcolor{keyword}{    end interface}
3420     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt4"}
3421   \textcolor{keywordflow}{continue}
3422     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3423     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3424       & varname, &               \textcolor{comment}{! (in)}
3425       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3426       & history = history, &     \textcolor{comment}{! (inout) optional}
3427       & range = range, &         \textcolor{comment}{! (in) optional}
3428       & time = time, &           \textcolor{comment}{! (in) optional}
3429       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3430       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3431       & timed = timed, &         \textcolor{comment}{! (in) optional}
3432       & time\_average\_store = &
3433       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3434       & err = err )              \textcolor{comment}{! (out) optional}
3435     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a85ed9bad172b248ea4ead339d0ad1008_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_ae76db48d27faaf128fcdeb119bdb8984}\label{historyput_8f90_ae76db48d27faaf128fcdeb119bdb8984}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint5@{historyputint5}}
\index{historyputint5@{historyputint5}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint5()}{historyputint5()}}
{\footnotesize\ttfamily subroutine historyputint5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3440 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3440     \textcolor{comment}{!}
3441     \textcolor{comment}{!}
3442     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3443     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3444     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3445     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3446     \textcolor{keywordtype}{implicit none}
3447     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3448     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
3449     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3450     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3451     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3452     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3453     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3454     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3455     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3456     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3457     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3458 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3459         & varname, array, arraysize, history, range, &
3460         & time, quiet, difftime, timed, time\_average\_store, err )
3461         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3462         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3463         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3464         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3465         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3466         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3467         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3468         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3469         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3470         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3471         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3472         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3473         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3474         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3475 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3476 \textcolor{keyword}{    end interface}
3477     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt5"}
3478   \textcolor{keywordflow}{continue}
3479     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3480     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3481       & varname, &               \textcolor{comment}{! (in)}
3482       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3483       & history = history, &     \textcolor{comment}{! (inout) optional}
3484       & range = range, &         \textcolor{comment}{! (in) optional}
3485       & time = time, &           \textcolor{comment}{! (in) optional}
3486       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3487       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3488       & timed = timed, &         \textcolor{comment}{! (in) optional}
3489       & time\_average\_store = &
3490       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3491       & err = err )              \textcolor{comment}{! (out) optional}
3492     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_ae76db48d27faaf128fcdeb119bdb8984_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a1224802b7a1368cad8bf6c47510bc9b8}\label{historyput_8f90_a1224802b7a1368cad8bf6c47510bc9b8}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint6@{historyputint6}}
\index{historyputint6@{historyputint6}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint6()}{historyputint6()}}
{\footnotesize\ttfamily subroutine historyputint6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3497 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3497     \textcolor{comment}{!}
3498     \textcolor{comment}{!}
3499     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3500     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3501     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3502     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3503     \textcolor{keywordtype}{implicit none}
3504     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3505     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
3506     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3507     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3508     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3509     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3510     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3511     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3512     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3513     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3514     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3515 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3516         & varname, array, arraysize, history, range, &
3517         & time, quiet, difftime, timed, time\_average\_store, err )
3518         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3519         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3520         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3521         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3522         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3523         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3524         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3525         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3526         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3527         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3528         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3529         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3530         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3531         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3532 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3533 \textcolor{keyword}{    end interface}
3534     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt6"}
3535   \textcolor{keywordflow}{continue}
3536     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3537     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3538       & varname, &               \textcolor{comment}{! (in)}
3539       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3540       & history = history, &     \textcolor{comment}{! (inout) optional}
3541       & range = range, &         \textcolor{comment}{! (in) optional}
3542       & time = time, &           \textcolor{comment}{! (in) optional}
3543       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3544       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3545       & timed = timed, &         \textcolor{comment}{! (in) optional}
3546       & time\_average\_store = &
3547       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3548       & err = err )              \textcolor{comment}{! (out) optional}
3549     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a1224802b7a1368cad8bf6c47510bc9b8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a00d0d158bc622bfd1e9541addafcd7ab}\label{historyput_8f90_a00d0d158bc622bfd1e9541addafcd7ab}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputint7@{historyputint7}}
\index{historyputint7@{historyputint7}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputint7()}{historyputint7()}}
{\footnotesize\ttfamily subroutine historyputint7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3554 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputintex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3554     \textcolor{comment}{!}
3555     \textcolor{comment}{!}
3556     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3557     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3558     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3559     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3560     \textcolor{keywordtype}{implicit none}
3561     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3562     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
3563     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3564     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3565     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3566     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3567     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3568     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3569     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3570     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3571     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3572 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3573         & varname, array, arraysize, history, range, &
3574         & time, quiet, difftime, timed, time\_average\_store, err )
3575         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3576         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3577         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3578         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3579         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3580         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3581         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3582         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3583         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3584         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3585         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3586         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3587         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3588         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3589 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}
3590 \textcolor{keyword}{    end interface}
3591     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutInt7"}
3592   \textcolor{keywordflow}{continue}
3593     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3594     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}{historyputintex}( &
3595       & varname, &               \textcolor{comment}{! (in)}
3596       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3597       & history = history, &     \textcolor{comment}{! (inout) optional}
3598       & range = range, &         \textcolor{comment}{! (in) optional}
3599       & time = time, &           \textcolor{comment}{! (in) optional}
3600       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3601       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3602       & timed = timed, &         \textcolor{comment}{! (in) optional}
3603       & time\_average\_store = &
3604       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3605       & err = err )              \textcolor{comment}{! (out) optional}
3606     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a00d0d158bc622bfd1e9541addafcd7ab_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}\label{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputintex@{historyputintex}}
\index{historyputintex@{historyputintex}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputintex()}{historyputintex()}}
{\footnotesize\ttfamily recursive subroutine historyputintex (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{integer, dimension(arraysize), intent(in)}]{array,  }\item[{integer, intent(in)}]{arraysize,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1089 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+earglack, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtvarsync(), dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+false(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, timegoahead(), and dc\+\_\+error\+::usr\+\_\+errno.



Referenced by historyputint0(), historyputint1(), historyputint2(), historyputint3(), historyputint4(), historyputint5(), historyputint6(), and historyputint7().


\begin{DoxyCode}
1089     \textcolor{comment}{!}
1090     \textcolor{comment}{!== データ出力}
1091     \textcolor{comment}{!}
1092     \textcolor{comment}{! こちらは配列サイズを指定する必要があるため、}
1093     \textcolor{comment}{! HistoryPut を利用してください。}
1094     \textcolor{comment}{!}
1095     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
1096     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
1097     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}
1098     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put}{put}, \hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}, \hyperlink{interfacegtdata__generic_1_1slice}{slice}, 
      \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, &
1099       & \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}, \hyperlink{interfacegtdata__generic_1_1get}{get}, \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
1100     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1101     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
1102     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
1103     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{interfacedc__present_1_1present__select}{present\_select}, &
1104       & \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
1105     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}, &
1106       & \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}, \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1107     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1108     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
1109     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
1110     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==), \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, &
1111       & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \textcolor{keyword}{operator}(-), \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__string_1_1tochar}{tochar}
1112     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
1113     \textcolor{keywordtype}{implicit none}
1114     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
1115     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
1116     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
1117     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
1118     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
1119                               \textcolor{comment}{! gtool4 のコンマ記法による}
1120                               \textcolor{comment}{! データの出力範囲指定}
1121                               \textcolor{comment}{!}
1122                               \textcolor{comment}{! このオプションを用いる}
1123                               \textcolor{comment}{! 際には、必ず *HistorySetTime*}
1124                               \textcolor{comment}{! によって明示的に時刻の設定}
1125                               \textcolor{comment}{! を行ってください。}
1126                               \textcolor{comment}{! また、*HistoryGet* と異なり、}
1127                               \textcolor{comment}{! 時刻に関する範囲指定は}
1128                               \textcolor{comment}{! 行なえません。}
1129                               \textcolor{comment}{!}
1130                               \textcolor{comment}{! 書式に関する詳細は}
1131                               \textcolor{comment}{! \{gtool4 netCDF 規約\}[link:../xref.htm#label-6]}
1132                               \textcolor{comment}{! の「5.4 コンマ記法」を参照して}
1133                               \textcolor{comment}{! ください。}
1134     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
1135                               \textcolor{comment}{!}
1136                               \textcolor{comment}{! 時刻. (単精度実数型)}
1137                               \textcolor{comment}{!}
1138                               \textcolor{comment}{! この引数を与える場合,}
1139                               \textcolor{comment}{! 出力するかどうかをプログラムが}
1140                               \textcolor{comment}{! 自動的に判断します.}
1141                               \textcolor{comment}{! *time* に与えられた数値が}
1142                               \textcolor{comment}{! HistoryCreate に与えた *interval*}
1143                               \textcolor{comment}{! で割り切れる場合には出力が行われます.}
1144                               \textcolor{comment}{!}
1145                               \textcolor{comment}{! HistoryAddVariable で}
1146                               \textcolor{comment}{! *time\_average* (または *average*)}
1147                               \textcolor{comment}{! に .true. を与えた場合には,}
1148                               \textcolor{comment}{! *time*, *difftime*}
1149                               \textcolor{comment}{! のどちらの引数も与えない場合に,}
1150                               \textcolor{comment}{! プログラムはエラーを発生させます.}
1151                               \textcolor{comment}{!}
1152                               \textcolor{comment}{! また, この引数と *range* は併用できません.}
1153                               \textcolor{comment}{! 併用した場合には,}
1154                               \textcolor{comment}{! プログラムはエラーを発生させます.}
1155                               \textcolor{comment}{!}
1156     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
1157                               \textcolor{comment}{! .false. を与えた場合,}
1158                               \textcolor{comment}{! このサブルーチンが呼ばれる毎に}
1159                               \textcolor{comment}{! ファイル名と時刻が表示されます.}
1160                               \textcolor{comment}{! デフォルトは .true. です.}
1161                               \textcolor{comment}{!}
1162                               \textcolor{comment}{! If ".false." is given,}
1163                               \textcolor{comment}{! a filename and time is displayed}
1164                               \textcolor{comment}{! when this subroutine is called.}
1165                               \textcolor{comment}{! Default value is ".true.".}
1166                               \textcolor{comment}{!}
1167     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
1168                               \textcolor{comment}{!}
1169                               \textcolor{comment}{! 時刻 (dc\_date\_types#DC\_DIFFTIME 型)}
1170                               \textcolor{comment}{!}
1171                               \textcolor{comment}{! 効果は *time* と同様です.}
1172                               \textcolor{comment}{!}
1173     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
1174                               \textcolor{comment}{!}
1175                               \textcolor{comment}{! 時刻 (倍精度実数型)}
1176                               \textcolor{comment}{!}
1177                               \textcolor{comment}{! 効果は *time* と同様です.}
1178                               \textcolor{comment}{!}
1179     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
1180                               \textcolor{comment}{!}
1181                               \textcolor{comment}{! 平均値の出力フラグ.}
1182                               \textcolor{comment}{! この値に .true. を与えた場合には,}
1183                               \textcolor{comment}{! 出力せずに与えられた値を一旦蓄えます.}
1184                               \textcolor{comment}{! .false. を与えた場合には,}
1185                               \textcolor{comment}{! *time* もしくは *difftime* と}
1186                               \textcolor{comment}{! HistoryCreate に与えた *interval* に}
1187                               \textcolor{comment}{! 関わらず出力を行います.}
1188                               \textcolor{comment}{!}
1189                               \textcolor{comment}{! HistoryAddVariable で}
1190                               \textcolor{comment}{! *time\_average* (または *average*)}
1191                               \textcolor{comment}{! に .true. を与えない場合は無効です.}
1192                               \textcolor{comment}{!}
1193                               \textcolor{comment}{! *time* と *difftime*}
1194                               \textcolor{comment}{! のどちらかを同時に与える必要があります.}
1195                               \textcolor{comment}{!}
1196     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1197                               \textcolor{comment}{! 例外処理用フラグ.}
1198                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
1199                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
1200                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
1201                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
1202                               \textcolor{comment}{! *err* に .true. が代入されます.}
1203                               \textcolor{comment}{!}
1204                               \textcolor{comment}{! Exception handling flag.}
1205                               \textcolor{comment}{! By default, when error occur in}
1206                               \textcolor{comment}{! this procedure, the program aborts.}
1207                               \textcolor{comment}{! If this *err* argument is given,}
1208                               \textcolor{comment}{! .true. is substituted to *err* and}
1209                               \textcolor{comment}{! the program does not abort.}
1210     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{target}:: array\_work(arraysize)
1211     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: array\_work2(:) =>null()
1212     \textcolor{keywordtype}{integer}:: arraysize\_work2
1213     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var, timevar
1214     \textcolor{keywordtype}{character(STRING)}:: url, file, time\_str
1215     \textcolor{keywordtype}{real}:: time\_value(1:1)
1216     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
1217     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: start(:), count(:), stride(:)
1218     \textcolor{keywordtype}{integer} :: i, dims, v\_ord
1219     \textcolor{keywordtype}{character(STRING)}:: avr\_msg
1220     \textcolor{keywordtype}{logical} :: slice\_err
1221     \textcolor{keywordtype}{character(STRING)}:: time\_name
1222     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: bnds\_suffix = \textcolor{stringliteral}{'\_bnds'}
1223     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: bndsvar
1224     \textcolor{keywordtype}{integer}:: bnds\_ord, time\_count, bnds\_rank
1225     \textcolor{keywordtype}{integer}:: stat
1226     \textcolor{keywordtype}{logical}:: output\_step
1227     \textcolor{keywordtype}{real(DP)}:: timedw
1228 \textcolor{comment}{!    type(DC\_DIFFTIME):: difftimew}
1229     \textcolor{keywordtype}{real(DP)}:: avr\_coef
1230     \textcolor{keywordtype}{character(STRING)}:: cause\_c
1231     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
1232 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( varname, var, head, history, err )
1233         \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
1234         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
1235         \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: varname
1236         \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(out)}:: var
1237         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: head
1238         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
1239         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
1240 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
1241 \textcolor{keyword}{    end interface}
1242     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutIntEx"}
1243   \textcolor{keywordflow}{continue}
1244     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%a range=%a'}, &
1245       & ca=\hyperlink{interfacedc__string_1_1stoa}{stoa}(varname, \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, \textcolor{stringliteral}{'(no-range)'}, range)))
1246     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1247     cause\_c = \textcolor{stringliteral}{""}
1248     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
1249       hst => history
1250     \textcolor{keywordflow}{else}
1251       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
1252 \textcolor{keywordflow}{    endif}
1253     \textcolor{comment}{!-----------------------------------------------------------------}
1254     \textcolor{comment}{!  初期設定のチェック}
1255     \textcolor{comment}{!  Check initialization}
1256     \textcolor{comment}{!-----------------------------------------------------------------}
1257     \textcolor{keywordflow}{if} ( .not. hst % initialized ) \textcolor{keywordflow}{then}
1258       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
1259       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY'}
1260       \textcolor{keywordflow}{goto} 999
1261 \textcolor{keywordflow}{    end if}
1262     \textcolor{comment}{!-----------------------------------------------------------------}
1263     \textcolor{comment}{!  time と range の同時使用の禁止}
1264     \textcolor{comment}{!  Permit concurrent use of "time" and "range"}
1265     \textcolor{comment}{!-----------------------------------------------------------------}
1266     \textcolor{keywordflow}{if} ( ( \textcolor{keyword}{present}(time) .or. \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) ) &
1267       &  .and. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) ) \textcolor{keywordflow}{then}
1268       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1269         & \textcolor{stringliteral}{'(varname=%c) "range" and "time" or "timed" or "difftime" are not suppored at the same time'}, &
1270         & c1 = trim(varname) )
1271       stat = \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
1272       cause\_c = \textcolor{stringliteral}{'"range" and "time" or "timed" or "difftime" are not suppored at the same time'}
1273       \textcolor{keywordflow}{goto} 999
1274 \textcolor{keywordflow}{    end if}
1275     \textcolor{comment}{!-----------------------------------------------------------------}
1276     \textcolor{comment}{!  hst 内の varname 変数の変数番号を取得}
1277     \textcolor{comment}{!  Get variable number of "varname" in "hst"}
1278     \textcolor{comment}{!-----------------------------------------------------------------}
1279     v\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}(hst, varname)
1280                         \textcolor{comment}{!-----------------------------------------------------------------}
1281     \textcolor{comment}{!  時間平均値のためのデータ格納}
1282     \textcolor{comment}{!  Store data for time average value}
1283     \textcolor{comment}{!-----------------------------------------------------------------}
1284     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1285       timedw = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1286     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
1287       timedw = timed
1288     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
1289       timedw = time
1290 \textcolor{keywordflow}{    end if}
1291     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
1292       \textcolor{comment}{!}
1293       \textcolor{comment}{! var\_avr\_count == -1: 平均処理は行わない.}
1294       \textcolor{comment}{! var\_avr\_count >=  0: 平均処理を行う.}
1295       \textcolor{comment}{!}
1296       \textcolor{comment}{! これらは HistoryAddVariable で指定される.}
1297       \textcolor{comment}{!}
1298       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
1299         \textcolor{comment}{! 時刻が指定されない場合には平均処理が不可能なため}
1300         \textcolor{comment}{! エラー発生. dc\_error のエラーメッセージだけでは多少}
1301         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
1302         \textcolor{comment}{!}
1303         \textcolor{keywordflow}{if} (       .not. \textcolor{keyword}{present}(time) &
1304           &  .and. .not. \textcolor{keyword}{present}(timed) &
1305           &  .and. .not. \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1306           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1307             & \textcolor{stringliteral}{'(varname=%c) arguments "time" or "timed" or "difftime" are needed '} // &
1308             & \textcolor{stringliteral}{'when "time\_average=.true." is specified to "HistoryAddVariable"'}, &
1309             & c1 = trim(varname) )
1310           stat = \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}
1311           cause\_c = \textcolor{stringliteral}{'time'}
1312           \textcolor{keywordflow}{goto} 999
1313 \textcolor{keywordflow}{        end if}
1314         \textcolor{comment}{! 与えられたデータのサイズと内部で積算しているデータのサイズが}
1315         \textcolor{comment}{! 一致しない場合にもエラーを発生.}
1316         \textcolor{comment}{! データサイズは HistoryPut -> HistoryPutEx の際に}
1317         \textcolor{comment}{! 全て 1 次元化しているため, 単純に配列サイズでのみ判定.}
1318         \textcolor{comment}{! dc\_error のエラーメッセージだけでは多少}
1319         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
1320         \textcolor{comment}{!}
1321         \textcolor{keywordflow}{if} ( arraysize /= hst % var\_avr\_data( v\_ord ) % length ) \textcolor{keywordflow}{then}
1322           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
1323             & \textcolor{stringliteral}{'(varname=%c) size of array should be (%d). size of array is (%d)'}, &
1324             & i = (/hst % var\_avr\_data( v\_ord ) % length, arraysize/), &
1325             & c1 = trim(varname) )
1326           stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1327           cause\_c = \textcolor{stringliteral}{'array'}
1328           \textcolor{keywordflow}{goto} 999
1329 \textcolor{keywordflow}{        end if}
1330         \textcolor{comment}{! この if 〜 end if では以下の動作を行う.}
1331         \textcolor{comment}{!}
1332         \textcolor{comment}{! * 平均処理時の係数 (avr\_coef) の算出}
1333         \textcolor{comment}{! * 係数を算出するための以下の値の設定}
1334         \textcolor{comment}{!   * 基本時間間隔 (var\_avr\_baseint)}
1335         \textcolor{comment}{!   * 前回出力の時刻 (var\_avr\_prevtime)}
1336         \textcolor{comment}{! * 初回出力の判定を行うラベル (var\_avr\_firstput) の設定}
1337         \textcolor{comment}{!}
1338         \textcolor{comment}{! 1 度目に呼ばれた場合はとりあえず係数を 1.0 にするとともに,}
1339         \textcolor{comment}{! prevtime に現在時刻を保管}
1340         \textcolor{comment}{!}
1341         \textcolor{keywordflow}{if} ( hst % var\_avr\_firstput( v\_ord ) ) \textcolor{keywordflow}{then}
1342           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
1343             avr\_coef = 1.0\_dp
1344             hst % var\_avr\_prevtime( v\_ord ) = timedw
1345           \textcolor{keywordflow}{else}
1346             hst % var\_avr\_baseint( v\_ord ) = &
1347               & timedw - hst % var\_avr\_prevtime( v\_ord )
1348             avr\_coef = 1.0\_dp
1349             hst % var\_avr\_prevtime( v\_ord ) = timedw
1350             hst % var\_avr\_firstput( v\_ord ) = .false.
1351 \textcolor{keywordflow}{          end if}
1352         \textcolor{comment}{! 2 度目以降に呼ばれた場合}
1353         \textcolor{comment}{!}
1354         \textcolor{keywordflow}{else}
1355           \textcolor{comment}{! 前回出力を行った (var\_avr\_count == 0 に初期化された)}
1356           \textcolor{comment}{! 場合には baseint に前回時刻と今回時刻の差を設定.}
1357           \textcolor{comment}{! avr\_coef には 1 を設定.}
1358           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
1359           \textcolor{comment}{!}
1360           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
1361             hst % var\_avr\_baseint( v\_ord ) = &
1362               & timedw - hst % var\_avr\_prevtime( v\_ord )
1363             avr\_coef = 1.0\_dp
1364             hst % var\_avr\_prevtime( v\_ord ) = timedw
1365           \textcolor{comment}{! var\_avr\_count > 0 (平均処理されるデータが蓄積されている)}
1366           \textcolor{comment}{! 場合には avr\_coef には前回時刻と今回時刻の差の,}
1367           \textcolor{comment}{! baseint からの比を設定する.}
1368           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
1369           \textcolor{comment}{!}
1370           \textcolor{keywordflow}{else}
1371             avr\_coef = ( timedw - hst % var\_avr\_prevtime( v\_ord ) ) &
1372               &          / hst % var\_avr\_baseint( v\_ord )
1373             hst % var\_avr\_prevtime( v\_ord ) = timedw
1374 \textcolor{keywordflow}{          end if}
1375 \textcolor{keywordflow}{        end if}
1376         \textcolor{comment}{! 積算値 a\_DataAvr に, 今回のデータに係数を掛けたもの}
1377         \textcolor{comment}{! を加算する.}
1378         \textcolor{comment}{!}
1379         hst % var\_avr\_data( v\_ord ) % a\_DataAvr = &
1380           & hst % var\_avr\_data( v\_ord ) % a\_DataAvr + array * avr\_coef
1381         \textcolor{comment}{! 積算カウント var\_avr\_count に +1 し,}
1382         \textcolor{comment}{! 係数の積算値 var\_avr\_coefsum に今回設定された}
1383         \textcolor{comment}{! 係数を加算する.}
1384         \textcolor{comment}{!}
1385         hst % var\_avr\_count( v\_ord ) = &
1386           & hst % var\_avr\_count( v\_ord ) + 1
1387         hst % var\_avr\_coefsum( v\_ord ) = &
1388           & hst % var\_avr\_coefsum( v\_ord ) + avr\_coef
1389         \textcolor{comment}{! time\_bnds(2) に今回の時刻を設定する.}
1390         \textcolor{comment}{! (毎回上書きされる).}
1391         \textcolor{comment}{!}
1392         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1393           hst % time\_bnds(2:2) = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1394         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present} (timed) ) \textcolor{keywordflow}{then}
1395           hst % time\_bnds(2:2) = timed
1396         \textcolor{keywordflow}{else}
1397           hst % time\_bnds(2:2) = time
1398 \textcolor{keywordflow}{        end if}
1399 \textcolor{keywordflow}{      end if}
1400 \textcolor{keywordflow}{    end if}
1401     \textcolor{comment}{!-----------------------------------------------------------------}
1402     \textcolor{comment}{!  初期時刻の設定}
1403     \textcolor{comment}{!  Configure initial time}
1404     \textcolor{comment}{!-----------------------------------------------------------------}
1405     \textcolor{keywordflow}{if} ( .not. hst % origin\_setting ) \textcolor{keywordflow}{then}
1406       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1407         hst % origin         = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1408         hst % time\_bnds      = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1409         hst % origin\_setting = .true.
1410       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
1411         hst % origin         = timed
1412         hst % time\_bnds      = timed
1413         hst % origin\_setting = .true.
1414       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
1415         hst % origin         = time
1416         hst % time\_bnds      = time
1417         hst % origin\_setting = .true.
1418 \textcolor{keywordflow}{      end if}
1419 \textcolor{comment}{!!$      if ( present(difftime) ) then}
1420 \textcolor{comment}{!!$        hst % origin         = difftime}
1421 \textcolor{comment}{!!$        hst % time\_bnds      = EvalByUnit( difftime, '', hst % unlimited\_units\_symbol )}
1422 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1423 \textcolor{comment}{!!$      elseif ( present(timed) ) then}
1424 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &              ! (out)}
1425 \textcolor{comment}{!!$          & real(timed), '', hst % unlimited\_units\_symbol ) ! (in)}
1426 \textcolor{comment}{!!$        hst % time\_bnds      = timed}
1427 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1428 \textcolor{comment}{!!$      elseif ( present(time) ) then}
1429 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &       ! (out)}
1430 \textcolor{comment}{!!$          & time, '', hst % unlimited\_units\_symbol ) ! (in)}
1431 \textcolor{comment}{!!$        hst % time\_bnds      = time}
1432 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
1433 \textcolor{comment}{!!$      end if}
1434 \textcolor{keywordflow}{    end if}
1435                         \textcolor{comment}{!-----------------------------------------------------------------}
1436     \textcolor{comment}{!  時刻の自動チェック}
1437     \textcolor{comment}{!  Check time automatically}
1438     \textcolor{comment}{!-----------------------------------------------------------------}
1439     output\_step = .true.
1440     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(time\_average\_store) ) \textcolor{keywordflow}{then}
1441       output\_step = .true.
1442     \textcolor{keywordflow}{elseif} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(time\_average\_store) ) \textcolor{keywordflow}{then}
1443       output\_step = .false.
1444     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) .or. \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
1445       output\_step = .false.
1446       \textcolor{keywordflow}{if} ( hst % interval == 0 ) \textcolor{keywordflow}{then}
1447         output\_step = .true.
1448       \textcolor{keywordflow}{else}
1449         \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( timedw - hst % origin, hst % interval ) == 0 ) \textcolor{keywordflow}{then}
1450           output\_step = .true.
1451 \textcolor{keywordflow}{        end if}
1452 \textcolor{keywordflow}{      end if}
1453 \textcolor{keywordflow}{    end if}
1454     \textcolor{comment}{!-------------------------}
1455     \textcolor{comment}{!  時間平均値出力のための情報処理}
1456     \textcolor{comment}{!  Information processing for output time-averaged value}
1457     \textcolor{keywordflow}{if} ( .not. output\_step ) \textcolor{keywordflow}{then}
1458       \textcolor{keywordflow}{goto} 999
1459     \textcolor{keywordflow}{else}
1460       array\_work = array
1461       avr\_msg = \textcolor{stringliteral}{''}
1462       \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
1463         \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
1464           \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
1465             avr\_msg = \textcolor{stringliteral}{'(time average of '} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}(hst % var\_avr\_count( v\_ord )) ) // \textcolor{stringliteral}{' step
       data)'}
1466 \textcolor{keywordflow}{          end if}
1467           \textcolor{comment}{!-------------------}
1468           \textcolor{comment}{!  蓄えた値の時間平均化}
1469           \textcolor{comment}{!  Average stored value in time direction}
1470           \textcolor{comment}{! a\_DataAvr に蓄えられた値を係数の積算値で割って,}
1471           \textcolor{comment}{! これを出力値とする.}
1472           \textcolor{comment}{!}
1473           array\_work = &
1474             & ( hst % var\_avr\_data( v\_ord ) % a\_DataAvr ) / ( hst % var\_avr\_coefsum( v\_ord ) )
1475           \textcolor{comment}{! 積算値, 積算カウント, 係数の積算値をクリアする.}
1476           \textcolor{comment}{!}
1477           hst % var\_avr\_data( v\_ord ) % a\_DataAvr = 0.0
1478           hst % var\_avr\_count( v\_ord ) = 0
1479           hst % var\_avr\_coefsum( v\_ord ) = 0.0\_dp
1480           hst % var\_avr\_firstput( v\_ord ) = .false.
1481 \textcolor{keywordflow}{        end if}
1482 \textcolor{keywordflow}{      end if}
1483 \textcolor{keywordflow}{    end if}
1484     array\_work2 => array\_work
1485     arraysize\_work2 = arraysize
1486     \textcolor{comment}{!-----------------------------------------------------------------}
1487     \textcolor{comment}{!  時刻を1つ進めて, データ出力}
1488     \textcolor{comment}{!  Progress one time, and output data}
1489     \textcolor{comment}{!-----------------------------------------------------------------}
1490     \textcolor{keyword}{call }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( &
1491       & varname = varname, &     \textcolor{comment}{! (in)}
1492                           & head = \textcolor{keywordtype}{real(array\_work2(1))}, & \textcolor{comment}{! (in)}
1493       & var = var, &             \textcolor{comment}{! (out)}
1494       & history = history, &     \textcolor{comment}{! (inout)}
1495       & err = err )              \textcolor{comment}{! (out)}
1496     call \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var, & \textcolor{comment}{! (in)}
1497       & alldims=dims )   \textcolor{comment}{! (out)}
1498     if (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims < 1)) then
1499       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varname=<%c> has no dimension. so range is ignoread.'}, &
1500       & c1=trim(varname))
1501 \textcolor{keywordflow}{    end if}
1502     \textcolor{keywordflow}{if} (.not. (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims > 0))) \textcolor{keywordflow}{then}
1503       \textcolor{comment}{! range 無しの普通の出力の場合}
1504       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
1505     \textcolor{keywordflow}{else}
1506       \textcolor{comment}{! range があり, 且つ varname がちゃんと次元を持っている場合}
1507       \textcolor{comment}{!}
1508       \textcolor{comment}{! 元々の start, count, stride を保持. データを与えた後に復元する.}
1509       \textcolor{keyword}{allocate}(start(dims), count(dims), stride(dims))
1510       \textcolor{keywordflow}{do} i = 1, dims
1511         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}(var, i, start(i), count(i), stride(i))
1512 \textcolor{keywordflow}{      end do}
1513       slice\_err = .false. \textcolor{comment}{! 不要だが Slice の引用仕様として必要なため}
1514       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, range, slice\_err)
1515       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
1516       \textcolor{comment}{! 復元}
1517       \textcolor{keywordflow}{do} i = 1, dims
1518         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, i, start(i), count(i), stride(i))
1519 \textcolor{keywordflow}{      end do}
1520       \textcolor{keyword}{deallocate}(start, count, stride)
1521 \textcolor{keywordflow}{    end if}
1522     \textcolor{keyword}{call }\hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}(var)
1523     \textcolor{keywordflow}{if} ( hst % mpi\_gather .and. v\_ord > 0 ) \textcolor{keywordflow}{then}
1524       \textcolor{keyword}{deallocate}( array\_work2 )
1525 \textcolor{keywordflow}{    end if}
1526                         \textcolor{comment}{!-----------------------------------------------------------------}
1527     \textcolor{comment}{!  "time\_bnds" 変数への出力}
1528     \textcolor{comment}{!  Output to "time\_bnds" variable}
1529     \textcolor{comment}{!-----------------------------------------------------------------}
1530     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
1531       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
1532         \textcolor{comment}{!-------------------}
1533         \textcolor{comment}{!  時間次元の名前とファイル名を取得}
1534         \textcolor{comment}{!  Get name of time dimension, and filename}
1535         timevar = hst % dimvars( hst % unlimited\_index )
1536         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1537           & var = timevar, &   \textcolor{comment}{! (in)}
1538           & url = url, &       \textcolor{comment}{! (out)}
1539           & name = time\_name ) \textcolor{comment}{! (out)}
1540         \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
1541           & file = file )                 \textcolor{comment}{! (out)}
1542         \textcolor{comment}{!-------------------}
1543         \textcolor{comment}{!  "time\_bnds" 変数の取得}
1544         \textcolor{comment}{!  Get "time\_bnds" variable}
1545         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var = bndsvar, &
1546           & url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file=file, var=trim(time\_name) // bnds\_suffix) )
1547         bnds\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}( hst, trim(time\_name) // bnds\_suffix)
1548         \textcolor{comment}{!-------------------}
1549         \textcolor{comment}{!  "time\_bnds" 変数への出力}
1550         \textcolor{comment}{!  Output to "time\_bnds" variable}
1551         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1552           & var = bndsvar, &                        \textcolor{comment}{! (in)}
1553           & rank = bnds\_rank )                      \textcolor{comment}{! (out)}
1554         time\_count = 1
1555         \textcolor{keywordflow}{if} ( bnds\_rank > 1 ) \textcolor{keywordflow}{then}
1556           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
1557             & var = bndsvar, &                             \textcolor{comment}{! (in)}
1558             & dimord = hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
1559             & allcount = time\_count )                      \textcolor{comment}{! (out)}
1560 \textcolor{keywordflow}{        end if}
1561         \textcolor{keywordflow}{if}  ( (hst % time\_bnds\_output\_count < 1) &
1562           &  .or. (hst % time\_bnds\_output\_count < time\_count) ) \textcolor{keywordflow}{then}
1563           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(bndsvar, hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
1564             & start=hst % time\_bnds\_output\_count+1, count=1)        \textcolor{comment}{! (in)}
1565           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(bndsvar, hst % time\_bnds, 2)
1566           hst % time\_bnds\_output\_count = hst % time\_bnds\_output\_count + 1
1567 \textcolor{keywordflow}{        end if}
1568         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var = bndsvar ) \textcolor{comment}{! (inout)}
1569         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
1570           hst % time\_bnds(1:1) = &
1571             & \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
1572         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
1573           hst % time\_bnds(1:1) = timed
1574         \textcolor{keywordflow}{else}
1575           hst % time\_bnds(1:1) = time
1576 \textcolor{keywordflow}{        end if}
1577 \textcolor{keywordflow}{      end if}
1578 \textcolor{keywordflow}{    end if}
1579     \textcolor{comment}{!-----------------------------------------------------------------}
1580     \textcolor{comment}{!  メッセージ出力}
1581     \textcolor{comment}{!  Output messages}
1582     \textcolor{comment}{!-----------------------------------------------------------------}
1583     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
1584       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( hst % dimvars(1), & \textcolor{comment}{! (in)}
1585         & url = url )                   \textcolor{comment}{! (out)}
1586       \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
1587         & file = file )                 \textcolor{comment}{! (out)}
1588       \textcolor{keywordflow}{if} ( hst % unlimited\_index < 1 ) \textcolor{keywordflow}{then}
1589         time\_str = \textcolor{stringliteral}{''}
1590       \textcolor{keywordflow}{else}
1591         timevar = hst % dimvars(hst % unlimited\_index)
1592         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}( timevar, &                     \textcolor{comment}{! (in)}
1593           & 1, start = hst % count(v\_ord), count = 1 ) \textcolor{comment}{! (in)}
1594         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( timevar, & \textcolor{comment}{! (inout)}
1595           & time\_value, &    \textcolor{comment}{! (out)}
1596           & 1, &             \textcolor{comment}{! (in)}
1597           & err )            \textcolor{comment}{! (out)}
1598         time\_str = \textcolor{stringliteral}{'(time='} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( time\_value(1) )) // \textcolor{stringliteral}{')'}
1599 \textcolor{keywordflow}{      end if}
1600       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, \textcolor{stringliteral}{'HistoryPut'}, &
1601         & \textcolor{stringliteral}{'"%a" => "%a" %a %a'}, &
1602         & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}( varname, file, time\_str, avr\_msg ) )
1603 \textcolor{keywordflow}{    end if}
1604     \textcolor{comment}{!-----------------------------------------------------------------}
1605     \textcolor{comment}{!  終了処理, 例外処理}
1606     \textcolor{comment}{!  Termination and Exception handling}
1607     \textcolor{comment}{!-----------------------------------------------------------------}
1608 999 \textcolor{keywordflow}{continue}
1609     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
1610     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=271pt]{historyput_8f90_a77a8769c5e3a347a9a03925e6702725c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_adb0f1631b17c33004bd45247b4a8b72f}\label{historyput_8f90_adb0f1631b17c33004bd45247b4a8b72f}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal0@{historyputreal0}}
\index{historyputreal0@{historyputreal0}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal0()}{historyputreal0()}}
{\footnotesize\ttfamily subroutine historyputreal0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2699 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2699     \textcolor{comment}{!}
2700     \textcolor{comment}{!}
2701     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2702     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2703     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2704     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2705     \textcolor{keywordtype}{implicit none}
2706     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2707     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: value
2708     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2709     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2710     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2711     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2712     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2713     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2714     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2715     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2716     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2717 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2718         & varname, array, arraysize, history, range, &
2719         & time, quiet, difftime, timed, time\_average\_store, err )
2720         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2721         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2722         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2723         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2724         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2725         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2726         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2727         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2728         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2729         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2730         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2731         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2732         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2733         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2734 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2735 \textcolor{keyword}{    end interface}
2736     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal0"}
2737   \textcolor{keywordflow}{continue}
2738     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2739     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2740       & varname, &               \textcolor{comment}{! (in)}
2741       & (/\textcolor{keywordtype}{value}/), 1, &   \textcolor{comment}{! (in)}
2742       & history = history, &     \textcolor{comment}{! (inout) optional}
2743       & range = range, &         \textcolor{comment}{! (in) optional}
2744       & time = time, &           \textcolor{comment}{! (in) optional}
2745       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2746       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2747       & timed = timed, &         \textcolor{comment}{! (in) optional}
2748       & time\_average\_store = &
2749       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2750       & err = err )              \textcolor{comment}{! (out) optional}
2751     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_adb0f1631b17c33004bd45247b4a8b72f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a929ea6d3a67979e3d944b1f5242e5bb5}\label{historyput_8f90_a929ea6d3a67979e3d944b1f5242e5bb5}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal1@{historyputreal1}}
\index{historyputreal1@{historyputreal1}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal1()}{historyputreal1()}}
{\footnotesize\ttfamily subroutine historyputreal1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2756 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2756     \textcolor{comment}{!}
2757     \textcolor{comment}{!}
2758     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2759     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2760     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2761     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2762     \textcolor{keywordtype}{implicit none}
2763     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2764     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:)
2765     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2766     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2767     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2768     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2769     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2770     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2771     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2772     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2773     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2774 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2775         & varname, array, arraysize, history, range, &
2776         & time, quiet, difftime, timed, time\_average\_store, err )
2777         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2778         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2779         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2780         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2781         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2782         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2783         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2784         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2785         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2786         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2787         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2788         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2789         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2790         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2791 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2792 \textcolor{keyword}{    end interface}
2793     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal1"}
2794   \textcolor{keywordflow}{continue}
2795     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2796     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2797       & varname, &               \textcolor{comment}{! (in)}
2798       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2799       & history = history, &     \textcolor{comment}{! (inout) optional}
2800       & range = range, &         \textcolor{comment}{! (in) optional}
2801       & time = time, &           \textcolor{comment}{! (in) optional}
2802       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2803       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2804       & timed = timed, &         \textcolor{comment}{! (in) optional}
2805       & time\_average\_store = &
2806       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2807       & err = err )              \textcolor{comment}{! (out) optional}
2808     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a929ea6d3a67979e3d944b1f5242e5bb5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_abdb23dd0b05e98370cf550de357bb891}\label{historyput_8f90_abdb23dd0b05e98370cf550de357bb891}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal2@{historyputreal2}}
\index{historyputreal2@{historyputreal2}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal2()}{historyputreal2()}}
{\footnotesize\ttfamily subroutine historyputreal2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2813 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2813     \textcolor{comment}{!}
2814     \textcolor{comment}{!}
2815     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2816     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2817     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2818     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2819     \textcolor{keywordtype}{implicit none}
2820     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2821     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:)
2822     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2823     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2824     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2825     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2826     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2827     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2828     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2829     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2830     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2831 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2832         & varname, array, arraysize, history, range, &
2833         & time, quiet, difftime, timed, time\_average\_store, err )
2834         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2835         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2836         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2837         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2838         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2839         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2840         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2841         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2842         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2843         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2844         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2845         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2846         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2847         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2848 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2849 \textcolor{keyword}{    end interface}
2850     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal2"}
2851   \textcolor{keywordflow}{continue}
2852     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2853     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2854       & varname, &               \textcolor{comment}{! (in)}
2855       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2856       & history = history, &     \textcolor{comment}{! (inout) optional}
2857       & range = range, &         \textcolor{comment}{! (in) optional}
2858       & time = time, &           \textcolor{comment}{! (in) optional}
2859       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2860       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2861       & timed = timed, &         \textcolor{comment}{! (in) optional}
2862       & time\_average\_store = &
2863       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2864       & err = err )              \textcolor{comment}{! (out) optional}
2865     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_abdb23dd0b05e98370cf550de357bb891_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a142846f1c0ac2c5ecc193b8a56c511bf}\label{historyput_8f90_a142846f1c0ac2c5ecc193b8a56c511bf}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal3@{historyputreal3}}
\index{historyputreal3@{historyputreal3}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal3()}{historyputreal3()}}
{\footnotesize\ttfamily subroutine historyputreal3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2870 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2870     \textcolor{comment}{!}
2871     \textcolor{comment}{!}
2872     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2873     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2874     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2875     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2876     \textcolor{keywordtype}{implicit none}
2877     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2878     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:)
2879     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2880     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2881     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2882     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2883     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2884     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2885     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2886     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2887     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2888 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2889         & varname, array, arraysize, history, range, &
2890         & time, quiet, difftime, timed, time\_average\_store, err )
2891         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2892         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2893         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2894         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2895         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2896         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2897         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2898         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2899         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2900         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2901         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2902         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2903         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2904         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2905 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2906 \textcolor{keyword}{    end interface}
2907     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal3"}
2908   \textcolor{keywordflow}{continue}
2909     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2910     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2911       & varname, &               \textcolor{comment}{! (in)}
2912       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2913       & history = history, &     \textcolor{comment}{! (inout) optional}
2914       & range = range, &         \textcolor{comment}{! (in) optional}
2915       & time = time, &           \textcolor{comment}{! (in) optional}
2916       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2917       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2918       & timed = timed, &         \textcolor{comment}{! (in) optional}
2919       & time\_average\_store = &
2920       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2921       & err = err )              \textcolor{comment}{! (out) optional}
2922     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a142846f1c0ac2c5ecc193b8a56c511bf_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a61b5f3c6602e29ce74ee81dca143e307}\label{historyput_8f90_a61b5f3c6602e29ce74ee81dca143e307}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal4@{historyputreal4}}
\index{historyputreal4@{historyputreal4}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal4()}{historyputreal4()}}
{\footnotesize\ttfamily subroutine historyputreal4 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2927 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2927     \textcolor{comment}{!}
2928     \textcolor{comment}{!}
2929     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2930     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2931     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2932     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2933     \textcolor{keywordtype}{implicit none}
2934     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2935     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:)
2936     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2937     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2938     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2939     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2940     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2941     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2942     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2943     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2944     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2945 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2946         & varname, array, arraysize, history, range, &
2947         & time, quiet, difftime, timed, time\_average\_store, err )
2948         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2949         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2950         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2951         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2952         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
2953         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
2954         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
2955         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2956         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2957         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2958         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2959         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2960         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
2961         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
2962 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
2963 \textcolor{keyword}{    end interface}
2964     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal4"}
2965   \textcolor{keywordflow}{continue}
2966     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
2967     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
2968       & varname, &               \textcolor{comment}{! (in)}
2969       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
2970       & history = history, &     \textcolor{comment}{! (inout) optional}
2971       & range = range, &         \textcolor{comment}{! (in) optional}
2972       & time = time, &           \textcolor{comment}{! (in) optional}
2973       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
2974       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
2975       & timed = timed, &         \textcolor{comment}{! (in) optional}
2976       & time\_average\_store = &
2977       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
2978       & err = err )              \textcolor{comment}{! (out) optional}
2979     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a61b5f3c6602e29ce74ee81dca143e307_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a72a939c33c763d3f2da686927f675fd6}\label{historyput_8f90_a72a939c33c763d3f2da686927f675fd6}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal5@{historyputreal5}}
\index{historyputreal5@{historyputreal5}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal5()}{historyputreal5()}}
{\footnotesize\ttfamily subroutine historyputreal5 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 2984 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
2984     \textcolor{comment}{!}
2985     \textcolor{comment}{!}
2986     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
2987     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
2988     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
2989     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
2990     \textcolor{keywordtype}{implicit none}
2991     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
2992     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:)
2993     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
2994     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
2995     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
2996     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
2997     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
2998     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
2999     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3000     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3001     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3002 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3003         & varname, array, arraysize, history, range, &
3004         & time, quiet, difftime, timed, time\_average\_store, err )
3005         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3006         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3007         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3008         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3009         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3010         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3011         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3012         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3013         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3014         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3015         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3016         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3017         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3018         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3019 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3020 \textcolor{keyword}{    end interface}
3021     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal5"}
3022   \textcolor{keywordflow}{continue}
3023     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3024     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3025       & varname, &               \textcolor{comment}{! (in)}
3026       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3027       & history = history, &     \textcolor{comment}{! (inout) optional}
3028       & range = range, &         \textcolor{comment}{! (in) optional}
3029       & time = time, &           \textcolor{comment}{! (in) optional}
3030       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3031       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3032       & timed = timed, &         \textcolor{comment}{! (in) optional}
3033       & time\_average\_store = &
3034       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3035       & err = err )              \textcolor{comment}{! (out) optional}
3036     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a72a939c33c763d3f2da686927f675fd6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a746556f6a11350f0c7f04b9e3d5dcb2c}\label{historyput_8f90_a746556f6a11350f0c7f04b9e3d5dcb2c}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal6@{historyputreal6}}
\index{historyputreal6@{historyputreal6}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal6()}{historyputreal6()}}
{\footnotesize\ttfamily subroutine historyputreal6 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3041 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3041     \textcolor{comment}{!}
3042     \textcolor{comment}{!}
3043     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3044     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3045     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3046     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3047     \textcolor{keywordtype}{implicit none}
3048     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3049     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:)
3050     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3051     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3052     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3053     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3054     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3055     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3056     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3057     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3058     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3059 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3060         & varname, array, arraysize, history, range, &
3061         & time, quiet, difftime, timed, time\_average\_store, err )
3062         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3063         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3064         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3065         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3066         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3067         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3068         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3069         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3070         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3071         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3072         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3073         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3074         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3075         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3076 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3077 \textcolor{keyword}{    end interface}
3078     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal6"}
3079   \textcolor{keywordflow}{continue}
3080     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3081     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3082       & varname, &               \textcolor{comment}{! (in)}
3083       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3084       & history = history, &     \textcolor{comment}{! (inout) optional}
3085       & range = range, &         \textcolor{comment}{! (in) optional}
3086       & time = time, &           \textcolor{comment}{! (in) optional}
3087       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3088       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3089       & timed = timed, &         \textcolor{comment}{! (in) optional}
3090       & time\_average\_store = &
3091       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3092       & err = err )              \textcolor{comment}{! (out) optional}
3093     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a746556f6a11350f0c7f04b9e3d5dcb2c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a05242fb4107ddd2cf0087c87deeeeaf3}\label{historyput_8f90_a05242fb4107ddd2cf0087c87deeeeaf3}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputreal7@{historyputreal7}}
\index{historyputreal7@{historyputreal7}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputreal7()}{historyputreal7()}}
{\footnotesize\ttfamily subroutine historyputreal7 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), intent(in)}]{array,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3098 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), historyputrealex(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
3098     \textcolor{comment}{!}
3099     \textcolor{comment}{!}
3100     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3101     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3102     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3103     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3104     \textcolor{keywordtype}{implicit none}
3105     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3106     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:,:,:,:,:,:,:)
3107     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3108     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3109     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3110     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3111     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3112     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3113     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3114     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3115     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3116 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3117         & varname, array, arraysize, history, range, &
3118         & time, quiet, difftime, timed, time\_average\_store, err )
3119         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3120         \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3121         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3122         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
3123         \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
3124         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
3125         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
3126         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
3127         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
3128         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
3129         \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
3130         \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
3131         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
3132         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
3133 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}
3134 \textcolor{keyword}{    end interface}
3135     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutReal7"}
3136   \textcolor{keywordflow}{continue}
3137     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
3138     \textcolor{keyword}{call }\hyperlink{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}{historyputrealex}( &
3139       & varname, &               \textcolor{comment}{! (in)}
3140       & pack(array, .true.), \textcolor{keyword}{size}(array), &   \textcolor{comment}{! (in)}
3141       & history = history, &     \textcolor{comment}{! (inout) optional}
3142       & range = range, &         \textcolor{comment}{! (in) optional}
3143       & time = time, &           \textcolor{comment}{! (in) optional}
3144       & quiet = quiet, &         \textcolor{comment}{! (in) optional}
3145       & difftime = difftime, &   \textcolor{comment}{! (in) optional}
3146       & timed = timed, &         \textcolor{comment}{! (in) optional}
3147       & time\_average\_store = &
3148       &    time\_average\_store, & \textcolor{comment}{! (in) optional}
3149       & err = err )              \textcolor{comment}{! (out) optional}
3150     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a05242fb4107ddd2cf0087c87deeeeaf3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}\label{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa}} 
\index{historyput.\+f90@{historyput.\+f90}!historyputrealex@{historyputrealex}}
\index{historyputrealex@{historyputrealex}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{historyputrealex()}{historyputrealex()}}
{\footnotesize\ttfamily recursive subroutine historyputrealex (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{real, dimension(arraysize), intent(in)}]{array,  }\item[{integer, intent(in)}]{arraysize,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{character($\ast$), intent(in), optional}]{range,  }\item[{real, intent(in), optional}]{time,  }\item[{logical, intent(in), optional}]{quiet,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{difftime,  }\item[{real(dp), intent(in), optional}]{timed,  }\item[{logical, intent(in), optional}]{time\+\_\+average\+\_\+store,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 37 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+earglack, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtvarsync(), dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+false(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, timegoahead(), and dc\+\_\+error\+::usr\+\_\+errno.



Referenced by historyputreal0(), historyputreal1(), historyputreal2(), historyputreal3(), historyputreal4(), historyputreal5(), historyputreal6(), and historyputreal7().


\begin{DoxyCode}
37     \textcolor{comment}{!}
38     \textcolor{comment}{!== データ出力}
39     \textcolor{comment}{!}
40     \textcolor{comment}{! こちらは配列サイズを指定する必要があるため、}
41     \textcolor{comment}{! HistoryPut を利用してください。}
42     \textcolor{comment}{!}
43     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
44     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
45     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}
46     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put}{put}, \hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}, \hyperlink{interfacegtdata__generic_1_1slice}{slice}, 
      \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, &
47       & \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}, \hyperlink{interfacegtdata__generic_1_1get}{get}, \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
48     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
49     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
50     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
51     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{interfacedc__present_1_1present__select}{present\_select}, &
52       & \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}, \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
53     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}, &
54       & \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}, \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
55     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
56     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}
57     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
58     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==), \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, &
59       & \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \textcolor{keyword}{operator}(-), \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__string_1_1tochar}{tochar}
60     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
61     \textcolor{keywordtype}{implicit none}
62     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
63     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: arraysize
64     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(arraysize)
65     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
66     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: range
67                               \textcolor{comment}{! gtool4 のコンマ記法による}
68                               \textcolor{comment}{! データの出力範囲指定}
69                               \textcolor{comment}{!}
70                               \textcolor{comment}{! このオプションを用いる}
71                               \textcolor{comment}{! 際には、必ず *HistorySetTime*}
72                               \textcolor{comment}{! によって明示的に時刻の設定}
73                               \textcolor{comment}{! を行ってください。}
74                               \textcolor{comment}{! また、*HistoryGet* と異なり、}
75                               \textcolor{comment}{! 時刻に関する範囲指定は}
76                               \textcolor{comment}{! 行なえません。}
77                               \textcolor{comment}{!}
78                               \textcolor{comment}{! 書式に関する詳細は}
79                               \textcolor{comment}{! \{gtool4 netCDF 規約\}[link:../xref.htm#label-6]}
80                               \textcolor{comment}{! の「5.4 コンマ記法」を参照して}
81                               \textcolor{comment}{! ください。}
82     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time
83                               \textcolor{comment}{!}
84                               \textcolor{comment}{! 時刻. (単精度実数型)}
85                               \textcolor{comment}{!}
86                               \textcolor{comment}{! この引数を与える場合,}
87                               \textcolor{comment}{! 出力するかどうかをプログラムが}
88                               \textcolor{comment}{! 自動的に判断します.}
89                               \textcolor{comment}{! *time* に与えられた数値が}
90                               \textcolor{comment}{! HistoryCreate に与えた *interval*}
91                               \textcolor{comment}{! で割り切れる場合には出力が行われます.}
92                               \textcolor{comment}{!}
93                               \textcolor{comment}{! HistoryAddVariable で}
94                               \textcolor{comment}{! *time\_average* (または *average*)}
95                               \textcolor{comment}{! に .true. を与えた場合には,}
96                               \textcolor{comment}{! *time*, *difftime*}
97                               \textcolor{comment}{! のどちらの引数も与えない場合に,}
98                               \textcolor{comment}{! プログラムはエラーを発生させます.}
99                               \textcolor{comment}{!}
100                               \textcolor{comment}{! また, この引数と *range* は併用できません.}
101                               \textcolor{comment}{! 併用した場合には,}
102                               \textcolor{comment}{! プログラムはエラーを発生させます.}
103                               \textcolor{comment}{!}
104     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: quiet
105                               \textcolor{comment}{! .false. を与えた場合,}
106                               \textcolor{comment}{! このサブルーチンが呼ばれる毎に}
107                               \textcolor{comment}{! ファイル名と時刻が表示されます.}
108                               \textcolor{comment}{! デフォルトは .true. です.}
109                               \textcolor{comment}{!}
110                               \textcolor{comment}{! If ".false." is given,}
111                               \textcolor{comment}{! a filename and time is displayed}
112                               \textcolor{comment}{! when this subroutine is called.}
113                               \textcolor{comment}{! Default value is ".true.".}
114                               \textcolor{comment}{!}
115     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: difftime
116                               \textcolor{comment}{!}
117                               \textcolor{comment}{! 時刻 (dc\_date\_types#DC\_DIFFTIME 型)}
118                               \textcolor{comment}{!}
119                               \textcolor{comment}{! 効果は *time* と同様です.}
120                               \textcolor{comment}{!}
121     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: timed
122                               \textcolor{comment}{!}
123                               \textcolor{comment}{! 時刻 (倍精度実数型)}
124                               \textcolor{comment}{!}
125                               \textcolor{comment}{! 効果は *time* と同様です.}
126                               \textcolor{comment}{!}
127     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average\_store
128                               \textcolor{comment}{!}
129                               \textcolor{comment}{! 平均値の出力フラグ.}
130                               \textcolor{comment}{! この値に .true. を与えた場合には,}
131                               \textcolor{comment}{! 出力せずに与えられた値を一旦蓄えます.}
132                               \textcolor{comment}{! .false. を与えた場合には,}
133                               \textcolor{comment}{! *time* もしくは *difftime* と}
134                               \textcolor{comment}{! HistoryCreate に与えた *interval* に}
135                               \textcolor{comment}{! 関わらず出力を行います.}
136                               \textcolor{comment}{!}
137                               \textcolor{comment}{! HistoryAddVariable で}
138                               \textcolor{comment}{! *time\_average* (または *average*)}
139                               \textcolor{comment}{! に .true. を与えない場合は無効です.}
140                               \textcolor{comment}{!}
141                               \textcolor{comment}{! *time* と *difftime*}
142                               \textcolor{comment}{! のどちらかを同時に与える必要があります.}
143                               \textcolor{comment}{!}
144     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
145                               \textcolor{comment}{! 例外処理用フラグ.}
146                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
147                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
148                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
149                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
150                               \textcolor{comment}{! *err* に .true. が代入されます.}
151                               \textcolor{comment}{!}
152                               \textcolor{comment}{! Exception handling flag.}
153                               \textcolor{comment}{! By default, when error occur in}
154                               \textcolor{comment}{! this procedure, the program aborts.}
155                               \textcolor{comment}{! If this *err* argument is given,}
156                               \textcolor{comment}{! .true. is substituted to *err* and}
157                               \textcolor{comment}{! the program does not abort.}
158     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{target}:: array\_work(arraysize)
159     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{pointer}:: array\_work2(:) =>null()
160     \textcolor{keywordtype}{integer}:: arraysize\_work2
161     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var, timevar
162     \textcolor{keywordtype}{character(STRING)}:: url, file, time\_str
163     \textcolor{keywordtype}{real}:: time\_value(1:1)
164     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
165     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: start(:), count(:), stride(:)
166     \textcolor{keywordtype}{integer} :: i, dims, v\_ord
167     \textcolor{keywordtype}{character(STRING)}:: avr\_msg
168     \textcolor{keywordtype}{logical} :: slice\_err
169     \textcolor{keywordtype}{character(STRING)}:: time\_name
170     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: bnds\_suffix = \textcolor{stringliteral}{'\_bnds'}
171     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: bndsvar
172     \textcolor{keywordtype}{integer}:: bnds\_ord, time\_count, bnds\_rank
173     \textcolor{keywordtype}{integer}:: stat
174     \textcolor{keywordtype}{logical}:: output\_step
175     \textcolor{keywordtype}{real(DP)}:: timedw
176 \textcolor{comment}{!    type(DC\_DIFFTIME):: difftimew}
177     \textcolor{keywordtype}{real(DP)}:: avr\_coef
178     \textcolor{keywordtype}{character(STRING)}:: cause\_c
179     \textcolor{keyword}{interface} \hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
180 \textcolor{keyword}{      subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( varname, var, head, history, err )
181         \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
182         \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
183         \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: varname
184         \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(out)}:: var
185         \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: head
186         \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
187         \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
188 \textcolor{keyword}{      end subroutine }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}
189 \textcolor{keyword}{    end interface}
190     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryPutRealEx"}
191   \textcolor{keywordflow}{continue}
192     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%a range=%a'}, &
193       & ca=\hyperlink{interfacedc__string_1_1stoa}{stoa}(varname, \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, \textcolor{stringliteral}{'(no-range)'}, range)))
194     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
195     cause\_c = \textcolor{stringliteral}{""}
196     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
197       hst => history
198     \textcolor{keywordflow}{else}
199       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
200 \textcolor{keywordflow}{    endif}
201     \textcolor{comment}{!-----------------------------------------------------------------}
202     \textcolor{comment}{!  初期設定のチェック}
203     \textcolor{comment}{!  Check initialization}
204     \textcolor{comment}{!-----------------------------------------------------------------}
205     \textcolor{keywordflow}{if} ( .not. hst % initialized ) \textcolor{keywordflow}{then}
206       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
207       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY'}
208       \textcolor{keywordflow}{goto} 999
209 \textcolor{keywordflow}{    end if}
210     \textcolor{comment}{!-----------------------------------------------------------------}
211     \textcolor{comment}{!  time と range の同時使用の禁止}
212     \textcolor{comment}{!  Permit concurrent use of "time" and "range"}
213     \textcolor{comment}{!-----------------------------------------------------------------}
214     \textcolor{keywordflow}{if} ( ( \textcolor{keyword}{present}(time) .or. \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) ) &
215       &  .and. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) ) \textcolor{keywordflow}{then}
216       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
217         & \textcolor{stringliteral}{'(varname=%c) "range" and "time" or "timed" or "difftime" are not suppored at the same time'}, &
218         & c1 = trim(varname) )
219       stat = \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
220       cause\_c = \textcolor{stringliteral}{'"range" and "time" or "timed" or "difftime" are not suppored at the same time'}
221       \textcolor{keywordflow}{goto} 999
222 \textcolor{keywordflow}{    end if}
223     \textcolor{comment}{!-----------------------------------------------------------------}
224     \textcolor{comment}{!  hst 内の varname 変数の変数番号を取得}
225     \textcolor{comment}{!  Get variable number of "varname" in "hst"}
226     \textcolor{comment}{!-----------------------------------------------------------------}
227     v\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}(hst, varname)
228                         \textcolor{comment}{!-----------------------------------------------------------------}
229     \textcolor{comment}{!  時間平均値のためのデータ格納}
230     \textcolor{comment}{!  Store data for time average value}
231     \textcolor{comment}{!-----------------------------------------------------------------}
232     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
233       timedw = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
234     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
235       timedw = timed
236     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
237       timedw = time
238 \textcolor{keywordflow}{    end if}
239     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
240       \textcolor{comment}{!}
241       \textcolor{comment}{! var\_avr\_count == -1: 平均処理は行わない.}
242       \textcolor{comment}{! var\_avr\_count >=  0: 平均処理を行う.}
243       \textcolor{comment}{!}
244       \textcolor{comment}{! これらは HistoryAddVariable で指定される.}
245       \textcolor{comment}{!}
246       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
247         \textcolor{comment}{! 時刻が指定されない場合には平均処理が不可能なため}
248         \textcolor{comment}{! エラー発生. dc\_error のエラーメッセージだけでは多少}
249         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
250         \textcolor{comment}{!}
251         \textcolor{keywordflow}{if} (       .not. \textcolor{keyword}{present}(time) &
252           &  .and. .not. \textcolor{keyword}{present}(timed) &
253           &  .and. .not. \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
254           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
255             & \textcolor{stringliteral}{'(varname=%c) arguments "time" or "timed" or "difftime" are needed '} // &
256             & \textcolor{stringliteral}{'when "time\_average=.true." is specified to "HistoryAddVariable"'}, &
257             & c1 = trim(varname) )
258           stat = \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}
259           cause\_c = \textcolor{stringliteral}{'time'}
260           \textcolor{keywordflow}{goto} 999
261 \textcolor{keywordflow}{        end if}
262         \textcolor{comment}{! 与えられたデータのサイズと内部で積算しているデータのサイズが}
263         \textcolor{comment}{! 一致しない場合にもエラーを発生.}
264         \textcolor{comment}{! データサイズは HistoryPut -> HistoryPutEx の際に}
265         \textcolor{comment}{! 全て 1 次元化しているため, 単純に配列サイズでのみ判定.}
266         \textcolor{comment}{! dc\_error のエラーメッセージだけでは多少}
267         \textcolor{comment}{! 不親切なので, エラー直前に下記の警告メッセージ表示.}
268         \textcolor{comment}{!}
269         \textcolor{keywordflow}{if} ( arraysize /= hst % var\_avr\_data( v\_ord ) % length ) \textcolor{keywordflow}{then}
270           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, &
271             & \textcolor{stringliteral}{'(varname=%c) size of array should be (%d). size of array is (%d)'}, &
272             & i = (/hst % var\_avr\_data( v\_ord ) % length, arraysize/), &
273             & c1 = trim(varname) )
274           stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
275           cause\_c = \textcolor{stringliteral}{'array'}
276           \textcolor{keywordflow}{goto} 999
277 \textcolor{keywordflow}{        end if}
278         \textcolor{comment}{! この if 〜 end if では以下の動作を行う.}
279         \textcolor{comment}{!}
280         \textcolor{comment}{! * 平均処理時の係数 (avr\_coef) の算出}
281         \textcolor{comment}{! * 係数を算出するための以下の値の設定}
282         \textcolor{comment}{!   * 基本時間間隔 (var\_avr\_baseint)}
283         \textcolor{comment}{!   * 前回出力の時刻 (var\_avr\_prevtime)}
284         \textcolor{comment}{! * 初回出力の判定を行うラベル (var\_avr\_firstput) の設定}
285         \textcolor{comment}{!}
286         \textcolor{comment}{! 1 度目に呼ばれた場合はとりあえず係数を 1.0 にするとともに,}
287         \textcolor{comment}{! prevtime に現在時刻を保管}
288         \textcolor{comment}{!}
289         \textcolor{keywordflow}{if} ( hst % var\_avr\_firstput( v\_ord ) ) \textcolor{keywordflow}{then}
290           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
291             avr\_coef = 1.0\_dp
292             hst % var\_avr\_prevtime( v\_ord ) = timedw
293           \textcolor{keywordflow}{else}
294             hst % var\_avr\_baseint( v\_ord ) = &
295               & timedw - hst % var\_avr\_prevtime( v\_ord )
296             avr\_coef = 1.0\_dp
297             hst % var\_avr\_prevtime( v\_ord ) = timedw
298             hst % var\_avr\_firstput( v\_ord ) = .false.
299 \textcolor{keywordflow}{          end if}
300         \textcolor{comment}{! 2 度目以降に呼ばれた場合}
301         \textcolor{comment}{!}
302         \textcolor{keywordflow}{else}
303           \textcolor{comment}{! 前回出力を行った (var\_avr\_count == 0 に初期化された)}
304           \textcolor{comment}{! 場合には baseint に前回時刻と今回時刻の差を設定.}
305           \textcolor{comment}{! avr\_coef には 1 を設定.}
306           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
307           \textcolor{comment}{!}
308           \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) == 0 ) \textcolor{keywordflow}{then}
309             hst % var\_avr\_baseint( v\_ord ) = &
310               & timedw - hst % var\_avr\_prevtime( v\_ord )
311             avr\_coef = 1.0\_dp
312             hst % var\_avr\_prevtime( v\_ord ) = timedw
313           \textcolor{comment}{! var\_avr\_count > 0 (平均処理されるデータが蓄積されている)}
314           \textcolor{comment}{! 場合には avr\_coef には前回時刻と今回時刻の差の,}
315           \textcolor{comment}{! baseint からの比を設定する.}
316           \textcolor{comment}{! 最後に prevtime に今回の時刻を保管.}
317           \textcolor{comment}{!}
318           \textcolor{keywordflow}{else}
319             avr\_coef = ( timedw - hst % var\_avr\_prevtime( v\_ord ) ) &
320               &          / hst % var\_avr\_baseint( v\_ord )
321             hst % var\_avr\_prevtime( v\_ord ) = timedw
322 \textcolor{keywordflow}{          end if}
323 \textcolor{keywordflow}{        end if}
324         \textcolor{comment}{! 積算値 a\_DataAvr に, 今回のデータに係数を掛けたもの}
325         \textcolor{comment}{! を加算する.}
326         \textcolor{comment}{!}
327         hst % var\_avr\_data( v\_ord ) % a\_DataAvr = &
328           & hst % var\_avr\_data( v\_ord ) % a\_DataAvr + array * avr\_coef
329         \textcolor{comment}{! 積算カウント var\_avr\_count に +1 し,}
330         \textcolor{comment}{! 係数の積算値 var\_avr\_coefsum に今回設定された}
331         \textcolor{comment}{! 係数を加算する.}
332         \textcolor{comment}{!}
333         hst % var\_avr\_count( v\_ord ) = &
334           & hst % var\_avr\_count( v\_ord ) + 1
335         hst % var\_avr\_coefsum( v\_ord ) = &
336           & hst % var\_avr\_coefsum( v\_ord ) + avr\_coef
337         \textcolor{comment}{! time\_bnds(2) に今回の時刻を設定する.}
338         \textcolor{comment}{! (毎回上書きされる).}
339         \textcolor{comment}{!}
340         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
341           hst % time\_bnds(2:2) = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
342         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present} (timed) ) \textcolor{keywordflow}{then}
343           hst % time\_bnds(2:2) = timed
344         \textcolor{keywordflow}{else}
345           hst % time\_bnds(2:2) = time
346 \textcolor{keywordflow}{        end if}
347 \textcolor{keywordflow}{      end if}
348 \textcolor{keywordflow}{    end if}
349     \textcolor{comment}{!-----------------------------------------------------------------}
350     \textcolor{comment}{!  初期時刻の設定}
351     \textcolor{comment}{!  Configure initial time}
352     \textcolor{comment}{!-----------------------------------------------------------------}
353     \textcolor{keywordflow}{if} ( .not. hst % origin\_setting ) \textcolor{keywordflow}{then}
354       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
355         hst % origin         = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
356         hst % time\_bnds      = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
357         hst % origin\_setting = .true.
358       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
359         hst % origin         = timed
360         hst % time\_bnds      = timed
361         hst % origin\_setting = .true.
362       \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
363         hst % origin         = time
364         hst % time\_bnds      = time
365         hst % origin\_setting = .true.
366 \textcolor{keywordflow}{      end if}
367 \textcolor{comment}{!!$      if ( present(difftime) ) then}
368 \textcolor{comment}{!!$        hst % origin         = difftime}
369 \textcolor{comment}{!!$        hst % time\_bnds      = EvalByUnit( difftime, '', hst % unlimited\_units\_symbol )}
370 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
371 \textcolor{comment}{!!$      elseif ( present(timed) ) then}
372 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &              ! (out)}
373 \textcolor{comment}{!!$          & real(timed), '', hst % unlimited\_units\_symbol ) ! (in)}
374 \textcolor{comment}{!!$        hst % time\_bnds      = timed}
375 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
376 \textcolor{comment}{!!$      elseif ( present(time) ) then}
377 \textcolor{comment}{!!$        call DCDiffTimeCreate( hst % origin, &       ! (out)}
378 \textcolor{comment}{!!$          & time, '', hst % unlimited\_units\_symbol ) ! (in)}
379 \textcolor{comment}{!!$        hst % time\_bnds      = time}
380 \textcolor{comment}{!!$        hst % origin\_setting = .true.}
381 \textcolor{comment}{!!$      end if}
382 \textcolor{keywordflow}{    end if}
383                         \textcolor{comment}{!-----------------------------------------------------------------}
384     \textcolor{comment}{!  時刻の自動チェック}
385     \textcolor{comment}{!  Check time automatically}
386     \textcolor{comment}{!-----------------------------------------------------------------}
387     output\_step = .true.
388     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(time\_average\_store) ) \textcolor{keywordflow}{then}
389       output\_step = .true.
390     \textcolor{keywordflow}{elseif} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(time\_average\_store) ) \textcolor{keywordflow}{then}
391       output\_step = .false.
392     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(difftime) .or. \textcolor{keyword}{present}(timed) .or. \textcolor{keyword}{present}(time) ) \textcolor{keywordflow}{then}
393       output\_step = .false.
394       \textcolor{keywordflow}{if} ( hst % interval == 0 ) \textcolor{keywordflow}{then}
395         output\_step = .true.
396       \textcolor{keywordflow}{else}
397         \textcolor{keywordflow}{if} ( \hyperlink{interfacedc__scaledsec_1_1mod}{mod}( timedw - hst % origin, hst % interval ) == 0 ) \textcolor{keywordflow}{then}
398           output\_step = .true.
399 \textcolor{keywordflow}{        end if}
400 \textcolor{keywordflow}{      end if}
401 \textcolor{keywordflow}{    end if}
402     \textcolor{comment}{!-------------------------}
403     \textcolor{comment}{!  時間平均値出力のための情報処理}
404     \textcolor{comment}{!  Information processing for output time-averaged value}
405     \textcolor{keywordflow}{if} ( .not. output\_step ) \textcolor{keywordflow}{then}
406       \textcolor{keywordflow}{goto} 999
407     \textcolor{keywordflow}{else}
408       array\_work = array
409       avr\_msg = \textcolor{stringliteral}{''}
410       \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
411         \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
412           \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
413             avr\_msg = \textcolor{stringliteral}{'(time average of '} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}(hst % var\_avr\_count( v\_ord )) ) // \textcolor{stringliteral}{' step
       data)'}
414 \textcolor{keywordflow}{          end if}
415           \textcolor{comment}{!-------------------}
416           \textcolor{comment}{!  蓄えた値の時間平均化}
417           \textcolor{comment}{!  Average stored value in time direction}
418           \textcolor{comment}{! a\_DataAvr に蓄えられた値を係数の積算値で割って,}
419           \textcolor{comment}{! これを出力値とする.}
420           \textcolor{comment}{!}
421           array\_work = &
422             & ( hst % var\_avr\_data( v\_ord ) % a\_DataAvr ) / ( hst % var\_avr\_coefsum( v\_ord ) )
423           \textcolor{comment}{! 積算値, 積算カウント, 係数の積算値をクリアする.}
424           \textcolor{comment}{!}
425           hst % var\_avr\_data( v\_ord ) % a\_DataAvr = 0.0
426           hst % var\_avr\_count( v\_ord ) = 0
427           hst % var\_avr\_coefsum( v\_ord ) = 0.0\_dp
428           hst % var\_avr\_firstput( v\_ord ) = .false.
429 \textcolor{keywordflow}{        end if}
430 \textcolor{keywordflow}{      end if}
431 \textcolor{keywordflow}{    end if}
432     array\_work2 => array\_work
433     arraysize\_work2 = arraysize
434     \textcolor{comment}{!-----------------------------------------------------------------}
435     \textcolor{comment}{!  時刻を1つ進めて, データ出力}
436     \textcolor{comment}{!  Progress one time, and output data}
437     \textcolor{comment}{!-----------------------------------------------------------------}
438     \textcolor{keyword}{call }\hyperlink{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}{timegoahead}( &
439       & varname = varname, &     \textcolor{comment}{! (in)}
440                           & head = \textcolor{keywordtype}{real(array\_work2(1))}, & \textcolor{comment}{! (in)}
441       & var = var, &             \textcolor{comment}{! (out)}
442       & history = history, &     \textcolor{comment}{! (inout)}
443       & err = err )              \textcolor{comment}{! (out)}
444     call \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( var, & \textcolor{comment}{! (in)}
445       & alldims=dims )   \textcolor{comment}{! (out)}
446     if (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims < 1)) then
447       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varname=<%c> has no dimension. so range is ignoread.'}, &
448       & c1=trim(varname))
449 \textcolor{keywordflow}{    end if}
450     \textcolor{keywordflow}{if} (.not. (\hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(range) .and. (dims > 0))) \textcolor{keywordflow}{then}
451       \textcolor{comment}{! range 無しの普通の出力の場合}
452       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
453     \textcolor{keywordflow}{else}
454       \textcolor{comment}{! range があり, 且つ varname がちゃんと次元を持っている場合}
455       \textcolor{comment}{!}
456       \textcolor{comment}{! 元々の start, count, stride を保持. データを与えた後に復元する.}
457       \textcolor{keyword}{allocate}(start(dims), count(dims), stride(dims))
458       \textcolor{keywordflow}{do} i = 1, dims
459         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}(var, i, start(i), count(i), stride(i))
460 \textcolor{keywordflow}{      end do}
461       slice\_err = .false. \textcolor{comment}{! 不要だが Slice の引用仕様として必要なため}
462       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, range, slice\_err)
463       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(var, array\_work2, arraysize\_work2)
464       \textcolor{comment}{! 復元}
465       \textcolor{keywordflow}{do} i = 1, dims
466         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, i, start(i), count(i), stride(i))
467 \textcolor{keywordflow}{      end do}
468       \textcolor{keyword}{deallocate}(start, count, stride)
469 \textcolor{keywordflow}{    end if}
470     \textcolor{keyword}{call }\hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}(var)
471     \textcolor{keywordflow}{if} ( hst % mpi\_gather .and. v\_ord > 0 ) \textcolor{keywordflow}{then}
472       \textcolor{keyword}{deallocate}( array\_work2 )
473 \textcolor{keywordflow}{    end if}
474                         \textcolor{comment}{!-----------------------------------------------------------------}
475     \textcolor{comment}{!  "time\_bnds" 変数への出力}
476     \textcolor{comment}{!  Output to "time\_bnds" variable}
477     \textcolor{comment}{!-----------------------------------------------------------------}
478     \textcolor{keywordflow}{if} ( v\_ord > 0 ) \textcolor{keywordflow}{then}
479       \textcolor{keywordflow}{if} ( hst % var\_avr\_count( v\_ord ) > -1 ) \textcolor{keywordflow}{then}
480         \textcolor{comment}{!-------------------}
481         \textcolor{comment}{!  時間次元の名前とファイル名を取得}
482         \textcolor{comment}{!  Get name of time dimension, and filename}
483         timevar = hst % dimvars( hst % unlimited\_index )
484         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
485           & var = timevar, &   \textcolor{comment}{! (in)}
486           & url = url, &       \textcolor{comment}{! (out)}
487           & name = time\_name ) \textcolor{comment}{! (out)}
488         \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
489           & file = file )                 \textcolor{comment}{! (out)}
490         \textcolor{comment}{!-------------------}
491         \textcolor{comment}{!  "time\_bnds" 変数の取得}
492         \textcolor{comment}{!  Get "time\_bnds" variable}
493         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var = bndsvar, &
494           & url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}(file=file, var=trim(time\_name) // bnds\_suffix) )
495         bnds\_ord = \hyperlink{interfacegtool__history__internal_1_1lookup__variable__ord}{lookup\_variable\_ord}( hst, trim(time\_name) // bnds\_suffix)
496         \textcolor{comment}{!-------------------}
497         \textcolor{comment}{!  "time\_bnds" 変数への出力}
498         \textcolor{comment}{!  Output to "time\_bnds" variable}
499         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
500           & var = bndsvar, &                        \textcolor{comment}{! (in)}
501           & rank = bnds\_rank )                      \textcolor{comment}{! (out)}
502         time\_count = 1
503         \textcolor{keywordflow}{if} ( bnds\_rank > 1 ) \textcolor{keywordflow}{then}
504           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( &
505             & var = bndsvar, &                             \textcolor{comment}{! (in)}
506             & dimord = hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
507             & allcount = time\_count )                      \textcolor{comment}{! (out)}
508 \textcolor{keywordflow}{        end if}
509         \textcolor{keywordflow}{if}  ( (hst % time\_bnds\_output\_count < 1) &
510           &  .or. (hst % time\_bnds\_output\_count < time\_count) ) \textcolor{keywordflow}{then}
511           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(bndsvar, hst % growable\_indices(bnds\_ord), & \textcolor{comment}{! (in)}
512             & start=hst % time\_bnds\_output\_count+1, count=1)        \textcolor{comment}{! (in)}
513           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(bndsvar, hst % time\_bnds, 2)
514           hst % time\_bnds\_output\_count = hst % time\_bnds\_output\_count + 1
515 \textcolor{keywordflow}{        end if}
516         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var = bndsvar ) \textcolor{comment}{! (inout)}
517         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(difftime) ) \textcolor{keywordflow}{then}
518           hst % time\_bnds(1:1) = &
519             & \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( difftime, \textcolor{stringliteral}{''}, hst % unlimited\_units\_symbol )
520         \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(timed) ) \textcolor{keywordflow}{then}
521           hst % time\_bnds(1:1) = timed
522         \textcolor{keywordflow}{else}
523           hst % time\_bnds(1:1) = time
524 \textcolor{keywordflow}{        end if}
525 \textcolor{keywordflow}{      end if}
526 \textcolor{keywordflow}{    end if}
527     \textcolor{comment}{!-----------------------------------------------------------------}
528     \textcolor{comment}{!  メッセージ出力}
529     \textcolor{comment}{!  Output messages}
530     \textcolor{comment}{!-----------------------------------------------------------------}
531     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(quiet) ) \textcolor{keywordflow}{then}
532       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}( hst % dimvars(1), & \textcolor{comment}{! (in)}
533         & url = url )                   \textcolor{comment}{! (out)}
534       \textcolor{keyword}{call }\hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}( fullname = url, &  \textcolor{comment}{! (in)}
535         & file = file )                 \textcolor{comment}{! (out)}
536       \textcolor{keywordflow}{if} ( hst % unlimited\_index < 1 ) \textcolor{keywordflow}{then}
537         time\_str = \textcolor{stringliteral}{''}
538       \textcolor{keywordflow}{else}
539         timevar = hst % dimvars(hst % unlimited\_index)
540         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}( timevar, &                     \textcolor{comment}{! (in)}
541           & 1, start = hst % count(v\_ord), count = 1 ) \textcolor{comment}{! (in)}
542         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}( timevar, & \textcolor{comment}{! (inout)}
543           & time\_value, &    \textcolor{comment}{! (out)}
544           & 1, &             \textcolor{comment}{! (in)}
545           & err )            \textcolor{comment}{! (out)}
546         time\_str = \textcolor{stringliteral}{'(time='} // trim( \hyperlink{interfacedc__string_1_1tochar}{tochar}( time\_value(1) )) // \textcolor{stringliteral}{')'}
547 \textcolor{keywordflow}{      end if}
548       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'M'}, \textcolor{stringliteral}{'HistoryPut'}, &
549         & \textcolor{stringliteral}{'"%a" => "%a" %a %a'}, &
550         & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}( varname, file, time\_str, avr\_msg ) )
551 \textcolor{keywordflow}{    end if}
552     \textcolor{comment}{!-----------------------------------------------------------------}
553     \textcolor{comment}{!  終了処理, 例外処理}
554     \textcolor{comment}{!  Termination and Exception handling}
555     \textcolor{comment}{!-----------------------------------------------------------------}
556 999 \textcolor{keywordflow}{continue}
557     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
558     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=282pt]{historyput_8f90_a48cf7dd3db3266cbd401253ab4e955aa_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}\label{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9}} 
\index{historyput.\+f90@{historyput.\+f90}!timegoahead@{timegoahead}}
\index{timegoahead@{timegoahead}!historyput.\+f90@{historyput.\+f90}}
\subsubsection{\texorpdfstring{timegoahead()}{timegoahead()}}
{\footnotesize\ttfamily subroutine timegoahead (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(in)}]{varname,  }\item[{type(gt\+\_\+variable), intent(out)}]{var,  }\item[{real, intent(in)}]{head,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 3666 of file historyput.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.



Referenced by historyputcharex(), historyputdoubleex(), historyputintex(), and historyputrealex().


\begin{DoxyCode}
3666     \textcolor{comment}{!}
3667     \textcolor{comment}{! *history* 内の (省略された場合は gtool\_history 内に内包}
3668     \textcolor{comment}{! される GT\_HISTORY 変数) の変数名 *varname* の時間を1つ分}
3669     \textcolor{comment}{! 進め、その最新の時間断面で切り取った変数 ID を *var* に返します。}
3670     \textcolor{comment}{!}
3671     \textcolor{comment}{!--}
3672     \textcolor{comment}{! そのデフォルトでは変数ごとにカウンタを設置し、呼んだ数だけ}
3673     \textcolor{comment}{! 「時刻」方向を進め、時刻データを入力する。}
3674     \textcolor{comment}{! これに対し、HistorySetTime で時刻の変数に一度でもスカラ値を投入}
3675     \textcolor{comment}{! すると、明示的にそれを設定したときにだけ時刻が進むようになる。}
3676     \textcolor{comment}{! このルーチンでは後退はできない。}
3677     \textcolor{comment}{!}
3678     \textcolor{comment}{! [詳細]}
3679     \textcolor{comment}{! 変数名 varname に対応する変数 ID var を探査し、その変数が}
3680     \textcolor{comment}{! 時間次元に依存する場合には hst % count の値を1つ増やす (時間を進める)。}
3681     \textcolor{comment}{! そして、hst % origin と hst % interval から時間次元データに値を与える。}
3682     \textcolor{comment}{!}
3683     \textcolor{comment}{! なお、HistorySetTime で既に値が設定され、hst % count の値が}
3684     \textcolor{comment}{! 増やされる場合には、こちらでは hst % count の値を変更しない。}
3685     \textcolor{comment}{! データも入力しない。}
3686     \textcolor{comment}{!++}
3687     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
3688     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__variable}{lookup\_variable}, \hyperlink{interfacegtool__history__internal_1_1lookup__dimension}{lookup\_dimension}
3689     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1slice}{slice}, \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}, \hyperlink{interfacegtdata__generic_1_1put}{put}, 
      \hyperlink{interfacegtdata__generic_1_1get}{get}, \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}
3690     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3691     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
3692     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, nf90\_enotvar, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3693     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), &
3694       & \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, \hyperlink{interfacedc__date__generic_1_1min}{min}, \hyperlink{interfacedc__date__generic_1_1max}{max}, \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}, 
      \hyperlink{interfacedc__date__generic_1_1dcdifftimeputline}{dcdifftimeputline}
3695     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
3696     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
3697     \textcolor{keywordtype}{implicit none}
3698     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}            :: varname
3699     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}),  \textcolor{keywordtype}{intent(out)}           :: var
3700     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: head
3701     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{target}:: history
3702     \textcolor{keywordtype}{logical},            \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
3703     \textcolor{comment}{!}
3704     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
3705     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable})        :: timevar
3706     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{pointer}:: time(:) =>null()
3707     \textcolor{keywordtype}{integer}:: v\_ord \textcolor{comment}{! varname の history における次元添字番号}
3708     \textcolor{keywordtype}{integer}:: d\_ord
3709     \textcolor{keywordtype}{integer}:: timestart, rest
3710     \textcolor{keywordtype}{integer}:: stat
3711     \textcolor{keywordtype}{logical}:: get\_err
3712     \textcolor{keywordtype}{real(DP)}:: curtime
3713 \textcolor{comment}{!    type(DC\_DIFFTIME):: headdiff}
3714     \textcolor{keywordtype}{character(STRING)}:: cause\_c, subname\_r
3715     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"TimeGoAhead"}
3716   \textcolor{keywordflow}{continue}
3717     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'varname=%c head=%r'}, &
3718       & c1=trim(varname), r=(/head/))
3719     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
3720     cause\_c = \textcolor{stringliteral}{''}
3721     subname\_r = subname
3722     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
3723       hst => history
3724     \textcolor{keywordflow}{else}
3725       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
3726 \textcolor{keywordflow}{    endif}
3727     \textcolor{comment}{! hst 内での変数 varname の変数 ID を var に、}
3728     \textcolor{comment}{! hst における変数添字を v\_ord に取得}
3729     var = \hyperlink{interfacegtool__history__internal_1_1lookup__variable}{lookup\_variable}( hst, varname, & \textcolor{comment}{! (in)}
3730       &                    ord = v\_ord )   \textcolor{comment}{! (out)}
3731     \textcolor{keywordflow}{if} (v\_ord == 0) \textcolor{keywordflow}{goto} 1000
3732     \textcolor{comment}{! 変数 v\_ord に時間次元が無い場合は終了}
3733     \textcolor{keywordflow}{if} (hst % growable\_indices(v\_ord) == 0) \textcolor{keywordflow}{then}
3734       \textcolor{keywordflow}{goto} 999
3735 \textcolor{keywordflow}{    endif}
3736     \textcolor{keywordflow}{if} (hst % dim\_value\_written(hst % unlimited\_index)) \textcolor{keywordflow}{then}
3737       \textcolor{comment}{!-----------------------}
3738       \textcolor{comment}{! HistorySetTime を利用する場合}
3739       \textcolor{comment}{!}
3740       \textcolor{comment}{! 時間次元に既に値が書き込まれている場合は count を増やさない}
3741       \textcolor{comment}{!}
3742       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, hst % growable\_indices(v\_ord), & \textcolor{comment}{! (in)}
3743         & start=hst % count(1), count=1)               \textcolor{comment}{! (in)}
3744     \textcolor{keywordflow}{else}
3745       \textcolor{comment}{!-----------------------}
3746       \textcolor{comment}{! HistorySetTime を利用しない場合}
3747       \textcolor{comment}{!}
3748       \textcolor{comment}{! 時間次元に値が書き込まれていない場合, count を増やす}
3749       \textcolor{comment}{! (history % interval を利用する)}
3750       \textcolor{comment}{!}
3751       hst % count(v\_ord) = hst % count(v\_ord) + 1
3752       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, hst % growable\_indices(v\_ord), & \textcolor{comment}{! (in)}
3753         & start=hst % count(v\_ord), count=1)           \textcolor{comment}{! (in)}
3754       \textcolor{comment}{!-----------------------}
3755       \textcolor{comment}{! 時間次元変数へのデータ出力}
3756       \textcolor{comment}{!}
3757       \textcolor{comment}{! 変数の count と時間次元変数の count を比較し,}
3758       \textcolor{comment}{! 変数の count が大きい場合, 時間次元変数の count も}
3759       \textcolor{comment}{! 同値になるようデータを出力する.}
3760       \textcolor{comment}{!}
3761       timevar = hst % dimvars(hst % unlimited\_index)
3762       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}(timevar, 1, start=timestart)
3763       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'map(timevar)start is <%d>. map(%c)start is <%d>'}, &
3764         &       i=(/timestart, hst % count(v\_ord)/), &
3765         &       c1=trim(varname) )
3766       \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get}{get}(timevar, time, get\_err)
3767       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'time(%d)=<%*r>, err=<%b>'},      &
3768         &       i=(/\textcolor{keyword}{size}(time)/), r=(/time(:)/), &
3769         &       l=(/get\_err/), n=(/\textcolor{keyword}{size}(time)/)         )
3770       \textcolor{keywordflow}{if} (get\_err .or. hst % count(v\_ord) == 1 .and. timestart == 1) \textcolor{keywordflow}{then}
3771         \textcolor{comment}{!---------------------}
3772         \textcolor{comment}{! 時間次元のデータの初期値作成}
3773         \textcolor{comment}{!}
3774         \textcolor{comment}{! 時間次元のデータがまだ作成されていない場合、}
3775         \textcolor{comment}{! 初期値となるデータを作成}
3776         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(timevar, 1, start=1, count=1)
3777         curtime = hst % origin
3778 \textcolor{comment}{!        curtime = EvalByUnit( hst % origin, '', hst % unlimited\_units\_symbol )}
3779         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(timevar, (/curtime/), 1) \textcolor{comment}{! (in)}
3780       \textcolor{keywordflow}{elseif} (hst % count(v\_ord) > timestart) \textcolor{keywordflow}{then}
3781         \textcolor{comment}{!---------------------}
3782         \textcolor{comment}{! 時間次元のデータの初期値以外を作成}
3783         \textcolor{comment}{!}
3784         \textcolor{comment}{! 変数の count が時間次元の start より大きい場合、}
3785         \textcolor{comment}{! hst % interval でその間を埋める。}
3786         rest = timestart + 1
3787         \textcolor{keywordflow}{do}
3788           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(timevar, 1, start=rest, count=1)
3789           curtime = hst % origin + hst % interval * (rest - 1)
3790 \textcolor{comment}{!!$          curtime = EvalByUnit( &}
3791 \textcolor{comment}{!!$            & hst % origin + hst % interval * (rest - 1), &}
3792 \textcolor{comment}{!!$            & '', hst % unlimited\_units\_symbol )}
3793           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put}{put}(timevar, (/curtime/), 1 ) \textcolor{comment}{! (in)}
3794           rest = rest + 1
3795           \textcolor{keywordflow}{if} ( rest > hst % count(v\_ord) ) \textcolor{keywordflow}{exit}
3796 \textcolor{keywordflow}{        enddo}
3797 \textcolor{keywordflow}{      endif}
3798       \textcolor{keyword}{deallocate}(time)
3799 \textcolor{keywordflow}{    endif}
3800     \textcolor{keywordflow}{goto} 999
3801 1000 \textcolor{keywordflow}{continue}
3802     \textcolor{comment}{!-----------------------------------------------------------------}
3803     \textcolor{comment}{!  hst 内に次元以外の変数 ID が見つからない場合}
3804     \textcolor{comment}{!-----------------------------------------------------------------}
3805     \textcolor{comment}{!}
3806     \textcolor{comment}{! 次元 ID を探査}
3807     var = \hyperlink{interfacegtool__history__internal_1_1lookup__dimension}{lookup\_dimension}(hst, varname, ord=d\_ord)
3808     \textcolor{comment}{!-------------------------}
3809     \textcolor{comment}{!  次元も含めた変数の中に varname が無い場合は stat に}
3810     \textcolor{comment}{!  NF90\_ENOTVAR (Variable not Found) を返す.}
3811     \textcolor{comment}{!  (上のサブルーチンが停止させることを想定)}
3812     \textcolor{keywordflow}{if} (d\_ord == 0) \textcolor{keywordflow}{then}
3813       subname\_r = \textcolor{stringliteral}{'HistoryPut'}
3814       stat = nf90\_enotvar
3815       cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
3816       \textcolor{keywordflow}{goto} 999
3817 \textcolor{keywordflow}{    endif}
3818     hst % dim\_value\_written(d\_ord) = .true.
3819     \textcolor{keywordflow}{if} (d\_ord /= hst % unlimited\_index) \textcolor{keywordflow}{then}
3820       \textcolor{keywordflow}{goto} 999
3821 \textcolor{keywordflow}{    endif}
3822     \textcolor{comment}{!-------------------------}
3823     \textcolor{comment}{! ややトリッキーだが、count の2番目以降の要素にも時刻を入れて}
3824     \textcolor{comment}{! おくことで、HistorySetTime による巻き戻し後にも値を保持する。}
3825     hst % count(:) = maxval(hst % count(:)) + 1
3826 \textcolor{comment}{!!$    call DCDiffTimeCreate( headdiff, &           ! (out)}
3827 \textcolor{comment}{!!$      & head, '', hst % unlimited\_units\_symbol ) ! (in)}
3828     hst % newest = \hyperlink{interfacedc__date__generic_1_1max}{max}(hst % newest, head)
3829     hst % oldest = \hyperlink{interfacedc__date__generic_1_1min}{min}(hst % oldest, head)
3830     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1slice}{slice}(var, 1, start=hst % count(1), count=1)
3831 999 \textcolor{keywordflow}{continue}
3832     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, trim(subname\_r), err, cause\_c)
3833     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[height=550pt]{historyput_8f90_ae342d04e2ba9f5a8ff9f20638f40b8f9_icgraph}
\end{center}
\end{figure}
