\hypertarget{gtvardimname2ord_8f90}{}\section{gtdata/gtvardimname2ord.f90 File Reference}
\label{gtvardimname2ord_8f90}\index{gtdata/gtvardimname2ord.\+f90@{gtdata/gtvardimname2ord.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
integer function \hyperlink{gtvardimname2ord_8f90_a60baab570ec2b0d8d4eab397b9ddd36a}{gtvardimname2ord} (var, name)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvardimname2ord_8f90_a60baab570ec2b0d8d4eab397b9ddd36a}\label{gtvardimname2ord_8f90_a60baab570ec2b0d8d4eab397b9ddd36a}} 
\index{gtvardimname2ord.\+f90@{gtvardimname2ord.\+f90}!gtvardimname2ord@{gtvardimname2ord}}
\index{gtvardimname2ord@{gtvardimname2ord}!gtvardimname2ord.\+f90@{gtvardimname2ord.\+f90}}
\subsubsection{\texorpdfstring{gtvardimname2ord()}{gtvardimname2ord()}}
{\footnotesize\ttfamily integer function gtvardimname2ord (\begin{DoxyParamCaption}\item[{type(\hyperlink{structgtdata__types_1_1gt__variable}{gt\+\_\+variable}), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name }\end{DoxyParamCaption})}



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



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


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== 次元相対名から次元順序番号の問い合わせ}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 変数には複数の次元が所属します。次元は順序番号で識別されますが、}
18   \textcolor{comment}{! 変数における次元の順序は入れ替えることもできるため、}
19   \textcolor{comment}{! 変数に相対的短い名前で識別することが便利な場合もあります。}
20   \textcolor{comment}{! たとえば変数 <tt>filename?var</tt> に対して}
21   \textcolor{comment}{! <tt>filename?var,dim=1</tt> のような}
22   \textcolor{comment}{! コンマ記法 (\{gtool4 netCDF 規約\}[link:../xref.htm#label-6] の}
23   \textcolor{comment}{! 「5.4 コンマ記法」参照)}
24   \textcolor{comment}{! で用いられるものです。(NetCDF 変数 <tt>filename?varname</tt>}
25   \textcolor{comment}{! に対する次元名 <tt>dim</tt> は <tt>filename?dim</tt>}
26   \textcolor{comment}{! を指示するでしょうが、必ずしもそのような関係が成り立つとは限りません)}
27   \textcolor{comment}{!}
28   \textcolor{comment}{! Dimname\_to\_Dimord 手続はこのような相対次元名から次元順序番号を与えます。}
29   \textcolor{comment}{! 正当な番号は1以上であり、0以下の番号はエラーを示します。}
30   \textcolor{comment}{! }
31   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
32   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1stoi}{stoi}
33   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1search__dim}{search\_dim}
34   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
35   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
36   \textcolor{keywordtype}{implicit none}
37   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(in)}:: var
38   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
39   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
40   result = -1
41   \textcolor{keywordflow}{if} (name == \textcolor{stringliteral}{' '}) \textcolor{keywordflow}{return}
42   result = \hyperlink{interfacedc__string_1_1stoi}{stoi}(name)
43   \textcolor{keywordflow}{if} (result /= 0) \textcolor{keywordflow}{return}
44   \textcolor{comment}{! 個別層に問い合わせて次元番号を得ようと試みる。}
45   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
46   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
47     result = \hyperlink{interfacegtdata__netcdf__generic_1_1search__dim}{search\_dim}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name)
48 \textcolor{keywordflow}{  endif}
49   \textcolor{comment}{! map 表から次元名を使って次元番号を得ようと試みる。}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvardimname2ord_8f90_a60baab570ec2b0d8d4eab397b9ddd36a_cgraph}
\end{center}
\end{figure}
