\hypertarget{interfacew__mpi__module__base_1_1nm__l}{}\doxysection{w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l Interface Reference}
\label{interfacew__mpi__module__base_1_1nm__l}\index{w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}}


スペクトルデータの位置(l) より，対応する波数 (n,m) を返す  


\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
integer function, dimension(2) \mbox{\hyperlink{interfacew__mpi__module__base_1_1nm__l_aafdf1d83d74f14e0655f85af22cc7fb0}{nm\+\_\+l\+\_\+int}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(2) \mbox{\hyperlink{interfacew__mpi__module__base_1_1nm__l_a71750a39bd8cd6c0cdd28ec8ef712edb}{nm\+\_\+l\+\_\+dint}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{interfacew__mpi__module__base_1_1nm__l_adceb6c09b0b4119131bfd4fac3b307b0}{nm\+\_\+l\+\_\+array}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{interfacew__mpi__module__base_1_1nm__l_a20d64f20592de2563ca53bfc0cc2612f}{nm\+\_\+l\+\_\+darray}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
スペクトルデータの位置(l) より，対応する波数 (n,m) を返す 

Definition at line 169 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1nm__l_adceb6c09b0b4119131bfd4fac3b307b0}\label{interfacew__mpi__module__base_1_1nm__l_adceb6c09b0b4119131bfd4fac3b307b0}} 
\index{w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}!nm\_l\_array@{nm\_l\_array}}
\index{nm\_l\_array@{nm\_l\_array}!w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}}
\doxysubsubsection{\texorpdfstring{nm\_l\_array()}{nm\_l\_array()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+::nm\+\_\+l\+\_\+array (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 981 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{981 }
\DoxyCodeLine{982     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{984     \textcolor{keywordtype}{integer}              :: nm\_l\_array(size(larray),2)}
\DoxyCodeLine{985 }
\DoxyCodeLine{986     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{987 }
\DoxyCodeLine{988     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{989       nm\_l\_array(i,:) = nm\_l\_int(larray(i))}
\DoxyCodeLine{990 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1nm__l_a20d64f20592de2563ca53bfc0cc2612f}\label{interfacew__mpi__module__base_1_1nm__l_a20d64f20592de2563ca53bfc0cc2612f}} 
\index{w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}!nm\_l\_darray@{nm\_l\_darray}}
\index{nm\_l\_darray@{nm\_l\_darray}!w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}}
\doxysubsubsection{\texorpdfstring{nm\_l\_darray()}{nm\_l\_darray()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+::nm\+\_\+l\+\_\+darray (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 1001 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1001 }
\DoxyCodeLine{1002     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{1004     \textcolor{keywordtype}{integer}              :: nm\_l\_darray(size(larray),2)}
\DoxyCodeLine{1005 }
\DoxyCodeLine{1006     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{1007 }
\DoxyCodeLine{1008     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{1009       nm\_l\_darray(i,:) = nm\_l\_dint(larray(i))}
\DoxyCodeLine{1010 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1nm__l_a71750a39bd8cd6c0cdd28ec8ef712edb}\label{interfacew__mpi__module__base_1_1nm__l_a71750a39bd8cd6c0cdd28ec8ef712edb}} 
\index{w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}!nm\_l\_dint@{nm\_l\_dint}}
\index{nm\_l\_dint@{nm\_l\_dint}!w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}}
\doxysubsubsection{\texorpdfstring{nm\_l\_dint()}{nm\_l\_dint()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+::nm\+\_\+l\+\_\+dint (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}


Definition at line 957 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{957 }
\DoxyCodeLine{958     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: l}
\DoxyCodeLine{960     \textcolor{keywordtype}{integer}               :: nm\_l\_dint(2)}
\DoxyCodeLine{961 }
\DoxyCodeLine{962     \textcolor{keywordtype}{integer(8)}            :: n,m          \textcolor{comment}{! 全波数, 帯状波数}}
\DoxyCodeLine{963 }
\DoxyCodeLine{964     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{965       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'nm\_l\_int'}, \&}
\DoxyCodeLine{966         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use syl2nm routine in ISPACK3 directly.'})}
\DoxyCodeLine{967 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{968     \textcolor{keyword}{call }syl2nm(mm,nn,l,n,m,icom)}
\DoxyCodeLine{969     nm\_l\_dint = (/int(n),int(m)/)}
\DoxyCodeLine{970 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1nm__l_aafdf1d83d74f14e0655f85af22cc7fb0}\label{interfacew__mpi__module__base_1_1nm__l_aafdf1d83d74f14e0655f85af22cc7fb0}} 
\index{w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}!nm\_l\_int@{nm\_l\_int}}
\index{nm\_l\_int@{nm\_l\_int}!w\_mpi\_module\_base::nm\_l@{w\_mpi\_module\_base::nm\_l}}
\doxysubsubsection{\texorpdfstring{nm\_l\_int()}{nm\_l\_int()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+::nm\+\_\+l\+\_\+int (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}


Definition at line 933 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{933 }
\DoxyCodeLine{934     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: l}
\DoxyCodeLine{936     \textcolor{keywordtype}{integer}               :: nm\_l\_int(2)}
\DoxyCodeLine{937 }
\DoxyCodeLine{938     \textcolor{keywordtype}{integer(8)}            :: n,m          \textcolor{comment}{! 全波数, 帯状波数}}
\DoxyCodeLine{939 }
\DoxyCodeLine{940     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{941       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'nm\_l\_int'}, \&}
\DoxyCodeLine{942         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use syl2nm routine in ISPACK3 directly.'})}
\DoxyCodeLine{943 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{944     \textcolor{keyword}{call }syl2nm(mm,nn,int(l,kind=8),n,m,icom)}
\DoxyCodeLine{945     nm\_l\_int = (/int(n),int(m)/)}
\DoxyCodeLine{946 }

\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
w\+\_\+mpi\+\_\+module/\mbox{\hyperlink{w__mpi__module__base_8f90}{w\+\_\+mpi\+\_\+module\+\_\+base.\+f90}}\end{DoxyCompactItemize}
