\hypertarget{interfacew__module__base_1_1l__nm}{}\doxysection{w\+\_\+module\+\_\+base\+::l\+\_\+nm Interface Reference}
\label{interfacew__module__base_1_1l__nm}\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
integer function \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a8c0c3315838ae4e65abc6711f30d6715}{l\+\_\+nm\+\_\+array00}} (n, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a360363f036a87d1adbcdf5d7c154dde9}{l\+\_\+nm\+\_\+darray00}} (n, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_abc1eb5c04672da482224f10ade37905d}{l\+\_\+nm\+\_\+array01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a208d15bc1537a89da25804d163992df9}{l\+\_\+nm\+\_\+darray01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a19fb0fc5afc7d6c9e01bba5f14f341ad}{l\+\_\+nm\+\_\+array10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a2a150e4213e5298fed31fd12c2391516}{l\+\_\+nm\+\_\+darray10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a5984f8e4ef54f61e323e30bd22e82bd0}{l\+\_\+nm\+\_\+array11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{interfacew__module__base_1_1l__nm_a1cce1c7fa049e2544c603a205ec7fc66}{l\+\_\+nm\+\_\+darray11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}


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



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



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

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


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


\begin{DoxyCode}{0}
\DoxyCodeLine{558 }
\DoxyCodeLine{559     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: n}
\DoxyCodeLine{561     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: m}
\DoxyCodeLine{563     \textcolor{keywordtype}{integer}               :: l\_nm\_array00}
\DoxyCodeLine{564 }
\DoxyCodeLine{565     \textcolor{keywordtype}{integer(8)}   :: nd     \textcolor{comment}{! 全波数}}
\DoxyCodeLine{566     \textcolor{keywordtype}{integer(8)}   :: md     \textcolor{comment}{! 帯状波数}}
\DoxyCodeLine{567     \textcolor{keywordtype}{integer(8)}   :: ld     \textcolor{comment}{! スペクトルデータの格納位置}}
\DoxyCodeLine{568 }
\DoxyCodeLine{569     nd = n}
\DoxyCodeLine{570     md = m}
\DoxyCodeLine{571     \textcolor{keyword}{call }sxnm2l(nn,nd,md,ld)}
\DoxyCodeLine{572     l\_nm\_array00 = int(ld)}
\DoxyCodeLine{573 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_abc1eb5c04672da482224f10ade37905d}\label{interfacew__module__base_1_1l__nm_abc1eb5c04672da482224f10ade37905d}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_array01@{l\_nm\_array01}}
\index{l\_nm\_array01@{l\_nm\_array01}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array01()}{l\_nm\_array01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+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 607 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{607 }
\DoxyCodeLine{608     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{610     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{612     \textcolor{keywordtype}{integer}              :: l\_nm\_array01(size(marray))}
\DoxyCodeLine{613 }
\DoxyCodeLine{614     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{615 }
\DoxyCodeLine{616     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{617       l\_nm\_array01(i) = l\_nm\_array00(n,marray(i))}
\DoxyCodeLine{618 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_a19fb0fc5afc7d6c9e01bba5f14f341ad}\label{interfacew__module__base_1_1l__nm_a19fb0fc5afc7d6c9e01bba5f14f341ad}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_array10@{l\_nm\_array10}}
\index{l\_nm\_array10@{l\_nm\_array10}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array10()}{l\_nm\_array10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+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 649 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{649 }
\DoxyCodeLine{650     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{652     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{654     \textcolor{keywordtype}{integer}              :: l\_nm\_array10(size(narray))}
\DoxyCodeLine{655 }
\DoxyCodeLine{656     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{657 }
\DoxyCodeLine{658     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{659       l\_nm\_array10(i) = l\_nm\_array00(narray(i),m)}
\DoxyCodeLine{660 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_a5984f8e4ef54f61e323e30bd22e82bd0}\label{interfacew__module__base_1_1l__nm_a5984f8e4ef54f61e323e30bd22e82bd0}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_array11@{l\_nm\_array11}}
\index{l\_nm\_array11@{l\_nm\_array11}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array11()}{l\_nm\_array11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+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 693 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{693 }
\DoxyCodeLine{694     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{696     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{698     \textcolor{keywordtype}{integer}              :: l\_nm\_array11(size(narray))}
\DoxyCodeLine{699 }
\DoxyCodeLine{700     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{701 }
\DoxyCodeLine{702     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{703       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{704         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{705 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{706 }
\DoxyCodeLine{707     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{708       l\_nm\_array11(i) = l\_nm\_array00(narray(i),marray(i))}
\DoxyCodeLine{709 \textcolor{keywordflow}{    enddo}}

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



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

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


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


\begin{DoxyCode}{0}
\DoxyCodeLine{582 }
\DoxyCodeLine{583     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: n}
\DoxyCodeLine{585     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: m}
\DoxyCodeLine{587     \textcolor{keywordtype}{integer}               :: l\_nm\_darray00}
\DoxyCodeLine{588 }
\DoxyCodeLine{589     \textcolor{keywordtype}{integer(8)}   :: nd     \textcolor{comment}{! 全波数}}
\DoxyCodeLine{590     \textcolor{keywordtype}{integer(8)}   :: md     \textcolor{comment}{! 帯状波数}}
\DoxyCodeLine{591     \textcolor{keywordtype}{integer(8)}   :: ld     \textcolor{comment}{! スペクトルデータの格納位置}}
\DoxyCodeLine{592 }
\DoxyCodeLine{593     nd = n}
\DoxyCodeLine{594     md = m}
\DoxyCodeLine{595     \textcolor{keyword}{call }sxnm2l(nn,nd,md,ld)}
\DoxyCodeLine{596     l\_nm\_darray00 = int(ld)}
\DoxyCodeLine{597 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_a208d15bc1537a89da25804d163992df9}\label{interfacew__module__base_1_1l__nm_a208d15bc1537a89da25804d163992df9}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_darray01@{l\_nm\_darray01}}
\index{l\_nm\_darray01@{l\_nm\_darray01}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray01()}{l\_nm\_darray01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+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 628 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{628 }
\DoxyCodeLine{629     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{631     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{633     \textcolor{keywordtype}{integer}              :: l\_nm\_darray01(size(marray))}
\DoxyCodeLine{634 }
\DoxyCodeLine{635     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{636 }
\DoxyCodeLine{637     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{638       l\_nm\_darray01(i) = l\_nm\_darray00(n,marray(i))}
\DoxyCodeLine{639 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_a2a150e4213e5298fed31fd12c2391516}\label{interfacew__module__base_1_1l__nm_a2a150e4213e5298fed31fd12c2391516}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_darray10@{l\_nm\_darray10}}
\index{l\_nm\_darray10@{l\_nm\_darray10}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray10()}{l\_nm\_darray10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+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 670 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{670 }
\DoxyCodeLine{671     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{673     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{675     \textcolor{keywordtype}{integer}              :: l\_nm\_darray10(size(narray))}
\DoxyCodeLine{676 }
\DoxyCodeLine{677     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{678 }
\DoxyCodeLine{679     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{680       l\_nm\_darray10(i) = l\_nm\_darray00(narray(i),m)}
\DoxyCodeLine{681 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}
\mbox{\Hypertarget{interfacew__module__base_1_1l__nm_a1cce1c7fa049e2544c603a205ec7fc66}\label{interfacew__module__base_1_1l__nm_a1cce1c7fa049e2544c603a205ec7fc66}} 
\index{w\_module\_base::l\_nm@{w\_module\_base::l\_nm}!l\_nm\_darray11@{l\_nm\_darray11}}
\index{l\_nm\_darray11@{l\_nm\_darray11}!w\_module\_base::l\_nm@{w\_module\_base::l\_nm}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray11()}{l\_nm\_darray11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+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 720 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{720 }
\DoxyCodeLine{721     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{723     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{725     \textcolor{keywordtype}{integer}              :: l\_nm\_darray11(size(narray))}
\DoxyCodeLine{726 }
\DoxyCodeLine{727     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{728 }
\DoxyCodeLine{729     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{730       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{731         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{732 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{733 }
\DoxyCodeLine{734     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{735       l\_nm\_darray11(i) = l\_nm\_darray00(narray(i),marray(i))}
\DoxyCodeLine{736 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


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