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


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


\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
integer function \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a516593750cfe14deee8b62b2b20565d8}{l\+\_\+nm\+\_\+array00}} (n\+\_\+in, m\+\_\+in)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_aa2feecfdd7ca312592dd5827494d1ecc}{l\+\_\+nm\+\_\+darray00}} (n\+\_\+in, m\+\_\+in)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a8c7150a26c8bcc7431edc9023f707515}{l\+\_\+nm\+\_\+array01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a0b9c45b430a49320ac53ca37ab20b5fc}{l\+\_\+nm\+\_\+darray01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a09c83af4552d3ecbe42797a3b8bf8f58}{l\+\_\+nm\+\_\+array10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a6444ac7b1167f5132fe93e53289df106}{l\+\_\+nm\+\_\+darray10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_acc76508d8401e380b74ca3295431fcaa}{l\+\_\+nm\+\_\+array11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm_a06398ef53c1617cbf1bd6d27dbef5889}{l\+\_\+nm\+\_\+darray11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\end{DoxyCompactItemize}


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

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



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a516593750cfe14deee8b62b2b20565d8}\label{interfacew__mpi__module__base_1_1l__nm_a516593750cfe14deee8b62b2b20565d8}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_array00@{l\_nm\_array00}}
\index{l\_nm\_array00@{l\_nm\_array00}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array00()}{l\_nm\_array00()}}
{\footnotesize\ttfamily integer function w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+array00 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n\+\_\+in,  }\item[{integer, intent(in)}]{m\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

引数 n,m がともに整数値の場合, 整数値を返す. プロセスに n,m が存在しない場合 0 を返す 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m\+\_\+in} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{732 }
\DoxyCodeLine{733     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: n\_in}
\DoxyCodeLine{735     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: m\_in}
\DoxyCodeLine{737     \textcolor{keywordtype}{integer}               :: l\_nm\_array00}
\DoxyCodeLine{738 }
\DoxyCodeLine{739     \textcolor{keywordtype}{integer(8)} :: ip\_w}
\DoxyCodeLine{740     \textcolor{keywordtype}{integer(8)} :: l, n, m}
\DoxyCodeLine{741 }
\DoxyCodeLine{742     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{743       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array00'},\&}
\DoxyCodeLine{744         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use synm2l routine in ISPACK3 directly.'})}
\DoxyCodeLine{745 \textcolor{keywordflow}{    end if}}
\DoxyCodeLine{746     n = n\_in}
\DoxyCodeLine{747     m = m\_in}
\DoxyCodeLine{748     \textcolor{keyword}{call }synm2l(nn,n,m,ip\_w,l,icom)}
\DoxyCodeLine{749     \textcolor{keywordflow}{if} ( ip\_w /= ip ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{750       l\_nm\_array00 = 0}
\DoxyCodeLine{751     \textcolor{keywordflow}{else}}
\DoxyCodeLine{752       l\_nm\_array00 = int(l)}
\DoxyCodeLine{753 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a8c7150a26c8bcc7431edc9023f707515}\label{interfacew__mpi__module__base_1_1l__nm_a8c7150a26c8bcc7431edc9023f707515}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_array01@{l\_nm\_array01}}
\index{l\_nm\_array01@{l\_nm\_array01}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array01()}{l\_nm\_array01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+array01 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{794 }
\DoxyCodeLine{795     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{797     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{799     \textcolor{keywordtype}{integer}              :: l\_nm\_array01(size(marray))}
\DoxyCodeLine{800 }
\DoxyCodeLine{801     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{802 }
\DoxyCodeLine{803     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{804       l\_nm\_array01(i) = l\_nm\_array00(n,marray(i))}
\DoxyCodeLine{805 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a09c83af4552d3ecbe42797a3b8bf8f58}\label{interfacew__mpi__module__base_1_1l__nm_a09c83af4552d3ecbe42797a3b8bf8f58}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_array10@{l\_nm\_array10}}
\index{l\_nm\_array10@{l\_nm\_array10}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array10()}{l\_nm\_array10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+array10 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{836 }
\DoxyCodeLine{837     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{839     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{841     \textcolor{keywordtype}{integer}              :: l\_nm\_array10(size(narray))}
\DoxyCodeLine{842 }
\DoxyCodeLine{843     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{844 }
\DoxyCodeLine{845     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{846       l\_nm\_array10(i) = l\_nm\_array00(narray(i),m)}
\DoxyCodeLine{847 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_acc76508d8401e380b74ca3295431fcaa}\label{interfacew__mpi__module__base_1_1l__nm_acc76508d8401e380b74ca3295431fcaa}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_array11@{l\_nm\_array11}}
\index{l\_nm\_array11@{l\_nm\_array11}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array11()}{l\_nm\_array11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+array11 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{879 }
\DoxyCodeLine{880     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{882     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{884     \textcolor{keywordtype}{integer}              :: l\_nm\_array11(size(narray))}
\DoxyCodeLine{885 }
\DoxyCodeLine{886     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{887 }
\DoxyCodeLine{888     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{889       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{890         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{891 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{892 }
\DoxyCodeLine{893     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{894       l\_nm\_array11(i) = l\_nm\_array00(narray(i),marray(i))}
\DoxyCodeLine{895 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_aa2feecfdd7ca312592dd5827494d1ecc}\label{interfacew__mpi__module__base_1_1l__nm_aa2feecfdd7ca312592dd5827494d1ecc}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_darray00@{l\_nm\_darray00}}
\index{l\_nm\_darray00@{l\_nm\_darray00}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray00()}{l\_nm\_darray00()}}
{\footnotesize\ttfamily integer function w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+darray00 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n\+\_\+in,  }\item[{integer(8), intent(in)}]{m\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

引数 n,m がともに整数値の場合, 整数値を返す. プロセスに n,m が存在しない場合 0 を返す 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m\+\_\+in} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{763 }
\DoxyCodeLine{764     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: n\_in}
\DoxyCodeLine{766     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: m\_in}
\DoxyCodeLine{768     \textcolor{keywordtype}{integer}               :: l\_nm\_darray00}
\DoxyCodeLine{769 }
\DoxyCodeLine{770     \textcolor{keywordtype}{integer(8)} :: ip\_w}
\DoxyCodeLine{771     \textcolor{keywordtype}{integer(8)} :: l, n, m}
\DoxyCodeLine{772 }
\DoxyCodeLine{773     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{774       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array00'},\&}
\DoxyCodeLine{775         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use synm2l routine in ISPACK3 directly.'})}
\DoxyCodeLine{776 \textcolor{keywordflow}{    end if}}
\DoxyCodeLine{777     n = n\_in}
\DoxyCodeLine{778     m = m\_in}
\DoxyCodeLine{779     \textcolor{keyword}{call }synm2l(nn,n,m,ip\_w,l,icom)}
\DoxyCodeLine{780     \textcolor{keywordflow}{if} ( ip\_w /= ip ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{781       l\_nm\_darray00 = 0}
\DoxyCodeLine{782     \textcolor{keywordflow}{else}}
\DoxyCodeLine{783       l\_nm\_darray00 = int(l)}
\DoxyCodeLine{784 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a0b9c45b430a49320ac53ca37ab20b5fc}\label{interfacew__mpi__module__base_1_1l__nm_a0b9c45b430a49320ac53ca37ab20b5fc}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_darray01@{l\_nm\_darray01}}
\index{l\_nm\_darray01@{l\_nm\_darray01}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray01()}{l\_nm\_darray01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+darray01 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{815 }
\DoxyCodeLine{816     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{818     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{820     \textcolor{keywordtype}{integer}                 :: l\_nm\_darray01(size(marray))}
\DoxyCodeLine{821 }
\DoxyCodeLine{822     \textcolor{keywordtype}{integer}                 :: i}
\DoxyCodeLine{823 }
\DoxyCodeLine{824     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{825       l\_nm\_darray01(i) = l\_nm\_darray00(n,marray(i))}
\DoxyCodeLine{826 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a6444ac7b1167f5132fe93e53289df106}\label{interfacew__mpi__module__base_1_1l__nm_a6444ac7b1167f5132fe93e53289df106}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_darray10@{l\_nm\_darray10}}
\index{l\_nm\_darray10@{l\_nm\_darray10}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray10()}{l\_nm\_darray10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+darray10 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{857 }
\DoxyCodeLine{858     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{860     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{862     \textcolor{keywordtype}{integer}                 :: l\_nm\_darray10(size(narray))}
\DoxyCodeLine{863 }
\DoxyCodeLine{864     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{865 }
\DoxyCodeLine{866     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{867       l\_nm\_darray10(i) = l\_nm\_darray00(narray(i),m)}
\DoxyCodeLine{868 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__mpi__module__base_1_1l__nm_a06398ef53c1617cbf1bd6d27dbef5889}\label{interfacew__mpi__module__base_1_1l__nm_a06398ef53c1617cbf1bd6d27dbef5889}} 
\index{w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}!l\_nm\_darray11@{l\_nm\_darray11}}
\index{l\_nm\_darray11@{l\_nm\_darray11}!w\_mpi\_module\_base::l\_nm@{w\_mpi\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray11()}{l\_nm\_darray11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+::l\+\_\+nm\+\_\+darray11 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{906 }
\DoxyCodeLine{907     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{909     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{911     \textcolor{keywordtype}{integer}              :: l\_nm\_darray11(size(narray))}
\DoxyCodeLine{912 }
\DoxyCodeLine{913     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{914 }
\DoxyCodeLine{915     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{916       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{917         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{918 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{919 }
\DoxyCodeLine{920     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{921       l\_nm\_darray11(i) = l\_nm\_darray00(narray(i),marray(i))}
\DoxyCodeLine{922 \textcolor{keywordflow}{    enddo}}

\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}
