\hypertarget{historyaxiscopy_8f90}{}\section{gtool/gtool\+\_\+history/historyaxiscopy.f90 File Reference}
\label{historyaxiscopy_8f90}\index{gtool/gtool\+\_\+history/historyaxiscopy.\+f90@{gtool/gtool\+\_\+history/historyaxiscopy.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyaxiscopy_8f90_a772bba0a89641e89133301ca774157b5}{historyaxiscopy1} (axis\+\_\+dest, axis\+\_\+src, err, name, length, longname, units, xtype)
\item 
subroutine \hyperlink{historyaxiscopy_8f90_a73d1243c8d3271d8bc364a9c94530aec}{historyaxiscopy2} (axis\+\_\+dest, axis\+\_\+src, err, name, length, longname, units, xtype)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyaxiscopy_8f90_a772bba0a89641e89133301ca774157b5}\label{historyaxiscopy_8f90_a772bba0a89641e89133301ca774157b5}} 
\index{historyaxiscopy.\+f90@{historyaxiscopy.\+f90}!historyaxiscopy1@{historyaxiscopy1}}
\index{historyaxiscopy1@{historyaxiscopy1}!historyaxiscopy.\+f90@{historyaxiscopy.\+f90}}
\subsubsection{\texorpdfstring{historyaxiscopy1()}{historyaxiscopy1()}}
{\footnotesize\ttfamily subroutine historyaxiscopy1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+axis), intent(out)}]{axis\+\_\+dest,  }\item[{type(gt\+\_\+history\+\_\+axis), intent(in)}]{axis\+\_\+src,  }\item[{logical, intent(out), optional}]{err,  }\item[{character($\ast$), intent(in), optional}]{name,  }\item[{integer, intent(in), optional}]{length,  }\item[{character($\ast$), intent(in), optional}]{longname,  }\item[{character($\ast$), intent(in), optional}]{units,  }\item[{character($\ast$), intent(in), optional}]{xtype }\end{DoxyParamCaption})}



Definition at line 12 of file historyaxiscopy.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), gtool\+\_\+history\+\_\+internal\+::default, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
12     \textcolor{comment}{!}
13     \textcolor{comment}{!== GT\_HISTORY\_AXIS 型変数コピー}
14     \textcolor{comment}{!}
15     \textcolor{comment}{! GT\_HISTORY\_AXIS 型の変数 *axis\_src* を}
16     \textcolor{comment}{! *axis\_dest* にコピーします。}
17     \textcolor{comment}{! *axis\_src* は HistoryAxisCreate によって初期設定されている必要が}
18     \textcolor{comment}{! あります。}
19     \textcolor{comment}{! さらに属性を付加する場合には HistoryAxisAddAttr}
20     \textcolor{comment}{! を用いてください。}
21     \textcolor{comment}{!}
22     \textcolor{comment}{! *err* を与えておくと、コピーの際何らかの不具合が生じても}
23     \textcolor{comment}{! 終了せずに err が真になって返ります。}
24     \textcolor{comment}{! }
25     \textcolor{comment}{! *err* 以降の引数は、コピーの際に上書きする値です。}
26     \textcolor{comment}{!}
27     \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}
28     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
29     \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}
30     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}: \hyperlink{interfacedc__present_1_1present__select}{present\_select}
31     \textcolor{keywordtype}{implicit none}
32     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(out)} :: axis\_dest \textcolor{comment}{! コピー先 GT\_HISTORY\_AXIS}
33     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(in)}  :: axis\_src  \textcolor{comment}{! コピー元 GT\_HISTORY\_AXIS}
34     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
35     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 次元変数名}
36     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: length         \textcolor{comment}{! 次元長 (配列サイズ)}
37     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 次元変数の記述的名称}
38     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 次元変数の単位}
39     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 次元変数の型}
40     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAxisCopy1"}
41   \textcolor{keywordflow}{continue}
42     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
43     axis\_dest % name     = \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, axis\_src % name, name)
44     axis\_dest % length   = \hyperlink{interfacedc__present_1_1present__select}{present\_select}(.false., axis\_src % length, length)
45     axis\_dest % longname = \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, axis\_src % longname, longname)
46     axis\_dest % units    = \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, axis\_src % units, 
      \hyperlink{structdc__units_1_1units}{units})
47     axis\_dest % xtype    = \hyperlink{interfacedc__present_1_1present__select}{present\_select}(\textcolor{stringliteral}{''}, axis\_src % xtype, xtype)
48 
49     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}( axis\_src % attrs ) ) \textcolor{keywordflow}{then}
50       \textcolor{keyword}{allocate}(  axis\_dest % attrs( \textcolor{keyword}{size}( axis\_src % attrs) )  )
51       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = axis\_src % attrs, &
52         &              to = axis\_dest % attrs, err = err)
53 \textcolor{keywordflow}{    end if}
54     \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]{historyaxiscopy_8f90_a772bba0a89641e89133301ca774157b5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaxiscopy_8f90_a73d1243c8d3271d8bc364a9c94530aec}\label{historyaxiscopy_8f90_a73d1243c8d3271d8bc364a9c94530aec}} 
\index{historyaxiscopy.\+f90@{historyaxiscopy.\+f90}!historyaxiscopy2@{historyaxiscopy2}}
\index{historyaxiscopy2@{historyaxiscopy2}!historyaxiscopy.\+f90@{historyaxiscopy.\+f90}}
\subsubsection{\texorpdfstring{historyaxiscopy2()}{historyaxiscopy2()}}
{\footnotesize\ttfamily subroutine historyaxiscopy2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+axis), intent(out)}]{axis\+\_\+dest,  }\item[{type(gt\+\_\+history\+\_\+axis), intent(in)}]{axis\+\_\+src,  }\item[{logical, intent(out), optional}]{err,  }\item[{character($\ast$), intent(in), optional}]{name,  }\item[{integer, intent(in), optional}]{length,  }\item[{character($\ast$), intent(in), optional}]{longname,  }\item[{character($\ast$), intent(in), optional}]{units,  }\item[{character($\ast$), intent(in), optional}]{xtype }\end{DoxyParamCaption})}



Definition at line 61 of file historyaxiscopy.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
61     \textcolor{comment}{!}
62     \textcolor{comment}{! 使用方法は HistoryAxisCopy と同様です. }
63     \textcolor{comment}{!}
64     \textcolor{comment}{! Usage is same as "HistoryAxisCopy".}
65     \textcolor{comment}{!}
66     \textcolor{comment}{!--}
67     \textcolor{comment}{! 総称名 Copy として提供するための関数です. }
68     \textcolor{comment}{! 機能は HistoryAxisCopy1 と同じです. }
69     \textcolor{comment}{!++}
70     \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}
71     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxiscopy}{historyaxiscopy}
72     \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}
73     \textcolor{keywordtype}{implicit none}
74     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(out)} :: axis\_dest \textcolor{comment}{! コピー先 GT\_HISTORY\_AXIS}
75     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(in)}  :: axis\_src  \textcolor{comment}{! コピー元 GT\_HISTORY\_AXIS}
76     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
77     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 次元変数名}
78     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: length         \textcolor{comment}{! 次元長 (配列サイズ)}
79     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 次元変数の記述的名称}
80     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 次元変数の単位}
81     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 次元変数の型}
82     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAxisCopy2"}
83   \textcolor{keywordflow}{continue}
84     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
85     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscopy}{historyaxiscopy}(axis\_dest, axis\_src, err, &
86       & name, length, longname, \hyperlink{structdc__units_1_1units}{units}, xtype)
87     \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]{historyaxiscopy_8f90_a73d1243c8d3271d8bc364a9c94530aec_cgraph}
\end{center}
\end{figure}
