\hypertarget{gtvarequivalent_8f90}{}\section{gtdata/gtvarequivalent.f90 File Reference}
\label{gtvarequivalent_8f90}\index{gtdata/gtvarequivalent.\+f90@{gtdata/gtvarequivalent.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{gtvarequivalent_8f90_ac855db7568b15939ee0804afe1f0ff47}{gtvarequivalent} (var1, var2)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarequivalent_8f90_ac855db7568b15939ee0804afe1f0ff47}\label{gtvarequivalent_8f90_ac855db7568b15939ee0804afe1f0ff47}} 
\index{gtvarequivalent.\+f90@{gtvarequivalent.\+f90}!gtvarequivalent@{gtvarequivalent}}
\index{gtvarequivalent@{gtvarequivalent}!gtvarequivalent.\+f90@{gtvarequivalent.\+f90}}
\subsubsection{\texorpdfstring{gtvarequivalent()}{gtvarequivalent()}}
{\footnotesize\ttfamily logical function gtvarequivalent (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var1,  }\item[{type(gt\+\_\+variable), intent(in)}]{var2 }\end{DoxyParamCaption})}



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



References gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== GT\_VARIABLE 型変数の同値判定}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 変数 <b>var1</b>, <b>var2</b> を比較し、同値である場合は .true. を、}
18   \textcolor{comment}{! そうで無い場合は .false. を返します。}
19   \textcolor{comment}{!}
20   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
21   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}
22   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(in)}:: var1, var2
23   \textcolor{keywordtype}{integer}:: class1, class2, cid1, cid2
24 \textcolor{keywordflow}{continue}
25   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var1, class1, cid1)
26   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var2, class2, cid2)
27   result = (class1 == class2) .and. (cid1 == cid2)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarequivalent_8f90_ac855db7568b15939ee0804afe1f0ff47_cgraph}
\end{center}
\end{figure}
