\hypertarget{interfacew__mpi__module__interpolate_1_1pmm}{}\doxysection{w\+\_\+mpi\+\_\+module\+\_\+interpolate\+::pmm Interface Reference}
\label{interfacew__mpi__module__interpolate_1_1pmm}\index{w\_mpi\_module\_interpolate::pmm@{w\_mpi\_module\_interpolate::pmm}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
real(dp) function \mbox{\hyperlink{interfacew__mpi__module__interpolate_1_1pmm_a1eff6d4efcb6fc5ca8cc5715ff87f4f7}{pmm\+\_\+array0}} (m, x)
\begin{DoxyCompactList}\small\item\em ルジャンドル陪函数 P\+\_\+m$^\wedge$m(x) の計算 \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}


Definition at line 56 of file w\+\_\+mpi\+\_\+module\+\_\+interpolate.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacew__mpi__module__interpolate_1_1pmm_a1eff6d4efcb6fc5ca8cc5715ff87f4f7}\label{interfacew__mpi__module__interpolate_1_1pmm_a1eff6d4efcb6fc5ca8cc5715ff87f4f7}} 
\index{w\_mpi\_module\_interpolate::pmm@{w\_mpi\_module\_interpolate::pmm}!pmm\_array0@{pmm\_array0}}
\index{pmm\_array0@{pmm\_array0}!w\_mpi\_module\_interpolate::pmm@{w\_mpi\_module\_interpolate::pmm}}
\doxysubsubsection{\texorpdfstring{pmm\_array0()}{pmm\_array0()}}
{\footnotesize\ttfamily real(dp) function w\+\_\+mpi\+\_\+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]}}



ルジャンドル陪函数 P\+\_\+m$^\wedge$m(x) の計算 

係数が発散しないように対数で計算する 

Definition at line 324 of file w\+\_\+mpi\+\_\+module\+\_\+interpolate.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{324     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(IN)}  :: m           \textcolor{comment}{! ルジャンドル陪函数の次数}}
\DoxyCodeLine{325 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: x           \textcolor{comment}{! 引き数}}
\DoxyCodeLine{326 \textcolor{keywordtype}{    real}(DP)             :: Pmm\_array0  \textcolor{comment}{! ルジャンドル陪函数の値}}
\DoxyCodeLine{327 }
\DoxyCodeLine{328     \textcolor{keywordflow}{if} ( m < 0 ) \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'Pmm in w\_Intepolate\_module'},\&}
\DoxyCodeLine{329       \textcolor{stringliteral}{'order m should be larger equal to zero'})}
\DoxyCodeLine{330 }
\DoxyCodeLine{331     pmm\_array0 = 1.0d0}
\DoxyCodeLine{332     \textcolor{keywordflow}{if} ( m > 0 )\textcolor{keywordflow}{then}}
\DoxyCodeLine{333       pmm\_array0 = \&}
\DoxyCodeLine{334         exp(gammaln(2.0d0*m+2.0)/2.0d0 -\/ m*log(2.0d0) -\/ gammaln(m+1.0d0)) \&}
\DoxyCodeLine{335         * (1-\/x**2)**(m/2.0d0)}
\DoxyCodeLine{336 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}


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