\hypertarget{interfacewa__module__interpolate_1_1pmm}{}\doxysection{wa\+\_\+module\+\_\+interpolate\+::pmm Interface Reference}
\label{interfacewa__module__interpolate_1_1pmm}\index{wa\_module\_interpolate::pmm@{wa\_module\_interpolate::pmm}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
real(dp) function \mbox{\hyperlink{interfacewa__module__interpolate_1_1pmm_a41bffda11acd8f701498b64378f6287c}{pmm\+\_\+array0}} (m, x)
\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}


Definition at line 75 of file wa\+\_\+module\+\_\+interpolate.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacewa__module__interpolate_1_1pmm_a41bffda11acd8f701498b64378f6287c}\label{interfacewa__module__interpolate_1_1pmm_a41bffda11acd8f701498b64378f6287c}} 
\index{wa\_module\_interpolate::pmm@{wa\_module\_interpolate::pmm}!pmm\_array0@{pmm\_array0}}
\index{pmm\_array0@{pmm\_array0}!wa\_module\_interpolate::pmm@{wa\_module\_interpolate::pmm}}
\doxysubsubsection{\texorpdfstring{pmm\_array0()}{pmm\_array0()}}
{\footnotesize\ttfamily real(dp) function wa\+\_\+module\+\_\+interpolate\+::pmm\+::pmm\+\_\+array0 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{m,  }\item[{real(dp), intent(in)}]{x }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 166 of file wa\+\_\+module\+\_\+interpolate.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{166     \textcolor{comment}{!}}
\DoxyCodeLine{167     \textcolor{comment}{! ルジャンドル陪函数 P\_m\string^m(x) の計算}}
\DoxyCodeLine{168     \textcolor{comment}{!         sqrt( factrl(2*m+1) )/(2.0D0**m * factrl(m)) \&}}
\DoxyCodeLine{169     \textcolor{comment}{!          * (1-\/x**2)**(m/2.0D0)}}
\DoxyCodeLine{170     \textcolor{comment}{!}}
\DoxyCodeLine{171     \textcolor{comment}{! 係数が発散しないように対数で計算する}}
\DoxyCodeLine{172     \textcolor{comment}{!}}
\DoxyCodeLine{173     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(IN)} :: m           \textcolor{comment}{! ルジャンドル陪函数の次数}}
\DoxyCodeLine{174 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: x           \textcolor{comment}{! 引き数}}
\DoxyCodeLine{175 \textcolor{keywordtype}{    real}(DP)             :: Pmm\_array0  \textcolor{comment}{! ルジャンドル陪函数の値}}
\DoxyCodeLine{176 }
\DoxyCodeLine{177     \textcolor{keywordflow}{if} ( m < 0 ) \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'Pmm in w\_Intepolate\_module'},\&}
\DoxyCodeLine{178       \textcolor{stringliteral}{'order m should be larger equal to zero'})}
\DoxyCodeLine{179 }
\DoxyCodeLine{180     pmm\_array0 = 1.0d0}
\DoxyCodeLine{181     \textcolor{keywordflow}{if} ( m > 0 )\textcolor{keywordflow}{then}}
\DoxyCodeLine{182       pmm\_array0 = \&}
\DoxyCodeLine{183         exp(gammaln(2.0d0*m+2.0)/2.0d0 -\/ m*log(2.0d0) -\/ gammaln(m+1.0d0)) \&}
\DoxyCodeLine{184         \& * (1-\/x**2)**(m/2.0d0)}
\DoxyCodeLine{185 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}


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