\hypertarget{interfaceat__module_1_1at__boundaries__dd}{}\doxysection{at\+\_\+module\+::at\+\_\+boundaries\+\_\+dd Interface Reference}
\label{interfaceat__module_1_1at__boundaries__dd}\index{at\_module::at\_boundaries\_dd@{at\_module::at\_boundaries\_dd}}


両端ディリクレ型境界条件の適用(タウ法). 両境界での値を与える.  


\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfaceat__module_1_1at__boundaries__dd_a2aba8b3db86f6d31719349f29f0c17e0}{at\+\_\+boundariestau\+\_\+dd\+\_\+1d}} (t\+\_\+data, values)
\begin{DoxyCompactList}\small\item\em Dirichlet 型境界条件の適用(タウ法, 1 次元配列用) 両境界での値を与える. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfaceat__module_1_1at__boundaries__dd_a5cfe27bfdebd095967f86a62987d81a9}{at\+\_\+boundariestau\+\_\+dd\+\_\+2d}} (at\+\_\+data, values)
\begin{DoxyCompactList}\small\item\em Dirichlet 型境界条件の適用(タウ法, 2 次元配列用) 両境界での値を与える. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
両端ディリクレ型境界条件の適用(タウ法). 両境界での値を与える. 

Definition at line 123 of file at\+\_\+module.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfaceat__module_1_1at__boundaries__dd_a2aba8b3db86f6d31719349f29f0c17e0}\label{interfaceat__module_1_1at__boundaries__dd_a2aba8b3db86f6d31719349f29f0c17e0}} 
\index{at\_module::at\_boundaries\_dd@{at\_module::at\_boundaries\_dd}!at\_boundariestau\_dd\_1d@{at\_boundariestau\_dd\_1d}}
\index{at\_boundariestau\_dd\_1d@{at\_boundariestau\_dd\_1d}!at\_module::at\_boundaries\_dd@{at\_module::at\_boundaries\_dd}}
\doxysubsubsection{\texorpdfstring{at\_boundariestau\_dd\_1d()}{at\_boundariestau\_dd\_1d()}}
{\footnotesize\ttfamily subroutine at\+\_\+module\+::at\+\_\+boundaries\+\_\+dd\+::at\+\_\+boundariestau\+\_\+dd\+\_\+1d (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceat__module_a2281993c32a1393ebd0aba3c99ef6175}{km}}), intent(inout)}]{t\+\_\+data,  }\item[{real(dp), dimension(2), intent(in), optional}]{values }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Dirichlet 型境界条件の適用(タウ法, 1 次元配列用) 両境界での値を与える. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in,out}}  & {\em t\+\_\+data} & 境界条件を適用するチェビシェフデータ(0\+:km) \\
\hline
\mbox{\texttt{ in}}  & {\em values} & 境界値 \\
\hline
\end{DoxyParams}


Definition at line 892 of file at\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{892 }
\DoxyCodeLine{893 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:km)},\textcolor{keywordtype}{intent(inout)}       :: t\_data}
\DoxyCodeLine{895 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: values}
\DoxyCodeLine{896 }
\DoxyCodeLine{897 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(1,0:km)}                   :: at\_work}
\DoxyCodeLine{898 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(1,2)}                      :: vwork}
\DoxyCodeLine{899 }
\DoxyCodeLine{900     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{901        vwork(1,1)=0.0d0}
\DoxyCodeLine{902        vwork(1,2)=0.0d0}
\DoxyCodeLine{903     \textcolor{keywordflow}{else}}
\DoxyCodeLine{904        vwork(1,:) = values}
\DoxyCodeLine{905 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{906 }
\DoxyCodeLine{907     at\_work(1,:)=t\_data}
\DoxyCodeLine{908     \textcolor{keyword}{call }at\_boundariestau\_dd\_2d(at\_work,vwork)}
\DoxyCodeLine{909     t\_data=at\_work(1,:)}
\DoxyCodeLine{910 }

\end{DoxyCode}
\mbox{\Hypertarget{interfaceat__module_1_1at__boundaries__dd_a5cfe27bfdebd095967f86a62987d81a9}\label{interfaceat__module_1_1at__boundaries__dd_a5cfe27bfdebd095967f86a62987d81a9}} 
\index{at\_module::at\_boundaries\_dd@{at\_module::at\_boundaries\_dd}!at\_boundariestau\_dd\_2d@{at\_boundariestau\_dd\_2d}}
\index{at\_boundariestau\_dd\_2d@{at\_boundariestau\_dd\_2d}!at\_module::at\_boundaries\_dd@{at\_module::at\_boundaries\_dd}}
\doxysubsubsection{\texorpdfstring{at\_boundariestau\_dd\_2d()}{at\_boundariestau\_dd\_2d()}}
{\footnotesize\ttfamily subroutine at\+\_\+module\+::at\+\_\+boundaries\+\_\+dd\+::at\+\_\+boundariestau\+\_\+dd\+\_\+2d (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,0\+:), intent(inout)}]{at\+\_\+data,  }\item[{real(dp), dimension(\+:,\+:), intent(in), optional}]{values }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Dirichlet 型境界条件の適用(タウ法, 2 次元配列用) 両境界での値を与える. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in,out}}  & {\em at\+\_\+data} & 境界条件を適用するチェビシェフデータ(m,0\+:km) \\
\hline
\mbox{\texttt{ in}}  & {\em values} & 境界値(m,2) \\
\hline
\end{DoxyParams}


Definition at line 831 of file at\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{831 }
\DoxyCodeLine{832 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,0:)},\textcolor{keywordtype}{intent(inout)}         :: at\_data}
\DoxyCodeLine{834 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: values}
\DoxyCodeLine{835 }
\DoxyCodeLine{836 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{837     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}     :: kp}
\DoxyCodeLine{838 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:km,0:km)}         :: tt\_data}
\DoxyCodeLine{839 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:km,0:im)}         :: tg\_data}
\DoxyCodeLine{840 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(size(at\_data,1))}   :: value1, value2  \textcolor{comment}{! 境界値}}
\DoxyCodeLine{841 }
\DoxyCodeLine{842     \textcolor{keywordtype}{integer(8)} :: k}
\DoxyCodeLine{843     \textcolor{keywordtype}{save}       :: alu, kp}
\DoxyCodeLine{844 }
\DoxyCodeLine{845     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(at\_data,2)-\/1 < km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{846        \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'at\_BoundariesTau\_DD'}, \&}
\DoxyCodeLine{847             \textcolor{stringliteral}{'The Chebyshev dimension of input data too small.'})}
\DoxyCodeLine{848     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(at\_data,2)-\/1 > km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{849        \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'at\_BoundariesTau\_DD'}, \&}
\DoxyCodeLine{850             \textcolor{stringliteral}{'The Chebyshev dimension of input data too large.'})}
\DoxyCodeLine{851 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{852 }
\DoxyCodeLine{853     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{854        value1=0.0d0}
\DoxyCodeLine{855        value2=0.0d0}
\DoxyCodeLine{856     \textcolor{keywordflow}{else}}
\DoxyCodeLine{857        value1 = values(:,1)}
\DoxyCodeLine{858        value2 = values(:,2)}
\DoxyCodeLine{859 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{860 }
\DoxyCodeLine{861     \textcolor{keywordflow}{if} ( at\_boundariestau\_dd\_first ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{862        at\_boundariestau\_dd\_first = .false.}
\DoxyCodeLine{863 }
\DoxyCodeLine{864        \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(alu)) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{865        \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(kp))  \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{866 }
\DoxyCodeLine{867        \textcolor{keyword}{allocate}(alu(0:km,0:km),kp(0:km))}
\DoxyCodeLine{868 }
\DoxyCodeLine{869        tt\_data=0.0d0}
\DoxyCodeLine{870        \textcolor{keywordflow}{do} k=0,km}
\DoxyCodeLine{871           tt\_data(k,k)=1.0d0}
\DoxyCodeLine{872 \textcolor{keywordflow}{       enddo}}
\DoxyCodeLine{873        alu = tt\_data}
\DoxyCodeLine{874 }
\DoxyCodeLine{875        tg\_data = ag\_at(tt\_data)}
\DoxyCodeLine{876        alu(km-\/1,:) = tg\_data(:,0)}
\DoxyCodeLine{877        alu(km,:)   = tg\_data(:,im)}
\DoxyCodeLine{878 }
\DoxyCodeLine{879        \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{880 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{881 }
\DoxyCodeLine{882     at\_data(:,km-\/1) = value1}
\DoxyCodeLine{883     at\_data(:,km)   = value2}
\DoxyCodeLine{884     at\_data = lusolve(alu,kp,at\_data)}
\DoxyCodeLine{885 }

\end{DoxyCode}


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