\hypertarget{gtvarcopyattrall_8f90}{}\section{gtdata/gtvarcopyattrall.f90 File Reference}
\label{gtvarcopyattrall_8f90}\index{gtdata/gtvarcopyattrall.\+f90@{gtdata/gtvarcopyattrall.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvarcopyattrall_8f90_ab9a802e1417b52ab22fe9bd863be2ed1}{gtvarcopyattrall} (to, from, err, global)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarcopyattrall_8f90_ab9a802e1417b52ab22fe9bd863be2ed1}\label{gtvarcopyattrall_8f90_ab9a802e1417b52ab22fe9bd863be2ed1}} 
\index{gtvarcopyattrall.\+f90@{gtvarcopyattrall.\+f90}!gtvarcopyattrall@{gtvarcopyattrall}}
\index{gtvarcopyattrall@{gtvarcopyattrall}!gtvarcopyattrall.\+f90@{gtvarcopyattrall.\+f90}}
\subsubsection{\texorpdfstring{gtvarcopyattrall()}{gtvarcopyattrall()}}
{\footnotesize\ttfamily subroutine gtvarcopyattrall (\begin{DoxyParamCaption}\item[{type(\hyperlink{structgtdata__types_1_1gt__variable}{gt\+\_\+variable}), intent(inout)}]{to,  }\item[{type(\hyperlink{structgtdata__types_1_1gt__variable}{gt\+\_\+variable}), intent(inout)}]{from,  }\item[{logical, intent(out), optional}]{err,  }\item[{logical, intent(in), optional}]{global }\end{DoxyParamCaption})}



Definition at line 14 of file gtvarcopyattrall.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dumperror(), dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, gtvarcopyattr(), dc\+\_\+present\+::present\+\_\+and\+\_\+false(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== 属性のコピー}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 変数 *from* の全ての属性を変数 *to* へコピーします。}
18   \textcolor{comment}{!}
19   \textcolor{comment}{! デフォルトでは大域属性もコピーしますが、}
20   \textcolor{comment}{! *global* に .false. を与える場合、大域属性をコピーしません。}
21   \textcolor{comment}{!}
22   \textcolor{comment}{! *Copy\_Attr* は 2 つのサブルーチンの総称名であり、}
23   \textcolor{comment}{! 他にも属性を指定してコピーする方法もあります。}
24   \textcolor{comment}{! 上記のサブルーチンを参照ください。}
25   \textcolor{comment}{!}
26   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
27   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1attr__rewind}{attr\_rewind}, \hyperlink{interfacegtdata__generic_1_1attr__next}{attr\_next}, 
      \hyperlink{gtvarcopyattr_8f90_a97952364067d4f0af511a36197c517b4}{gtvarcopyattr}
28   \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{,only}:\hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}, 
      \hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}
29   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
30   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{dc__error_8f90_a805edc2691c008aded6c82bc8d28d99e}{dumperror}
31   \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}
32   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
33   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(inout)}:: to
34   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(inout)}:: from
35   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
36   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: global
37   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subnam = \textcolor{stringliteral}{"GTVarCopyAttrAll"}
38   \textcolor{keywordtype}{character(len = STRING)}:: aname
39   \textcolor{keywordtype}{logical}:: end
40 \textcolor{keywordflow}{continue}
41   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .false.
42   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subnam)
43   \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1attr__rewind}{attr\_rewind}(from)
44   \textcolor{keywordflow}{do}
45     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1attr__next}{attr\_next}(from, aname, end)
46     \textcolor{keywordflow}{if} (end) \textcolor{keywordflow}{exit}
47     \textcolor{keywordflow}{if} ( (\hyperlink{namespacedc__present_a0eac5ec50371728c0edced0be3115187}{present\_and\_false}(global)) .and. (aname(1:1) == 
      \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) ) \textcolor{keywordflow}{then}
48       \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"Ignored attr=%c"}, c1=aname)
49       cycle
50 \textcolor{keywordflow}{    end if}
51     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"Copied attr=%c"}, c1=aname)
52     \textcolor{keyword}{call }\hyperlink{gtvarcopyattr_8f90_a97952364067d4f0af511a36197c517b4}{gtvarcopyattr}(to=to, attrname=aname, from=from, err=err)
53     \textcolor{keywordflow}{if} (\hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err)) err = .false.
54 \textcolor{keywordflow}{  enddo}
55   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subnam)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarcopyattrall_8f90_ab9a802e1417b52ab22fe9bd863be2ed1_cgraph}
\end{center}
\end{figure}
