%ɽ�� AGCM5 GCM���ܥ롼����饤�֥�� (����׻�)
%
%���� 
\Drireki{92/09/27 �ݹ�����}
\Drireki{93/02/07 �ݹ�����}
%
\section{���֥롼��������� : ����׻�}
\label{umtlu}

\subsection{LUMAKE}
\label{lumake}
\begin{enumerate}
  \item ��ǽ 
  \begin{quote}
     ����� LU ʬ��(��ʬ�ԥܥå�����)��Ԥʤ�. 
  \end{quote}
  \item �ƤӽФ���ˡ 
      \begin{verbatim}
          CALL LUMAKE
     M         ( ALU   ,
     O           KP    ,
     D           JDIM  , NDIM   )
      \end{verbatim}
  \item �ѥ�᡼���������� 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt JDIM} & {\tt [I]} & �������ˡ. ��������ο�.  \\
      {\tt NDIM} & {\tt [I]} & �������ˡ. ϢΩ�������μ���. \\
      {\tt ALU}  & {\tt [R]} & 
          {\tt JDIM}$\times${\tt NDIM}$\times${\tt NDIM} ������. 
          {\tt NDIM}$\times${\tt NDIM} �ι��� {\tt JDIM} ��
          �ʤ��Ǥ����Τ�Ʊ���˰���. 
          ���Ϥι��󤬾�񤭤���� LU ʬ�����ǽ��Ϥ����. \\
      {\tt  KP}  & {\tt [I]} & 
          {\tt JDIM}$\times${\tt NDIM}������. �ԥܥåȾ����Ͽ����. \\
    \end{tabular}
  \end{quote}
  \item ���� 
  \begin{enumerate}
    \item �äˤʤ�
  \end{enumerate}
\end{enumerate}

\subsection{LUSOLV}
\label{lusolv}
\begin{enumerate}
  \item ��ǽ 
  \begin{quote}
     LU ʬ��ˤ��ϢΩ 1 ���������β�η׻���Ԥʤ�. 
  \end{quote}
  \item �ƤӽФ���ˡ 
      \begin{verbatim}
          CALL LUSOLV
     M         ( XV    ,
     I           ALU   , KP    ,
     D           IDIM  , JDIM  , NDIM   )
      \end{verbatim}
  \item �ѥ�᡼���������� 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt IDIM} & {\tt [I]} & 
           �������ˡ. ϢΩ�������α��ե٥��ȥ�ο�.\\ 
      {\tt JDIM} & {\tt [I]} & �������ˡ. ��������ο�.  \\
      {\tt NDIM} & {\tt [I]} & �������ˡ. ϢΩ�������μ���.  \\
      {\tt XV}   & {\tt [R]} & 
          {\tt IDIM}$\times${\tt JDIM}$\times${\tt NDIM}������.
          ϢΩ�������α��ե٥��ȥ�����ϤȤ���Ϳ��, �򤬾�񤭤���ƽ�
          �Ϥ����. \\
      {\tt ALU}  & {\tt [R]} & 
          {\tt JDIM}$\times${\tt NDIM}$\times${\tt NDIM}������. 
          {\tt NDIM}$\times${\tt NDIM}�� LU ʬ�򤵤줿���� 
          {\tt JDIM} �Ĥʤ��Ǥ����Τ�Ʊ���˰���. \\
      {\tt KP}   & {\tt [I]} & 
          {\tt JDIM}$\times${\tt NDIM}������. �ԥܥåȾ����Ͽ������
          ��.\\
     \end{tabular}
  \end{quote}
  \item ���� 
  \begin{enumerate}
    \item �äˤʤ�. 
  \end{enumerate}
\end{enumerate}

\subsection{LUMAK3}
\label{lumak3}
\begin{enumerate}
  \item ��ǽ 
      \begin{quote}
        3 ���гѹ���� LU ʬ���Ԥʤ�. 
      \end{quote}
  \item �ƤӽФ���ˡ 
      \begin{verbatim}
          CALL LUMAK3
     M         ( ALU   ,
     D           JDIM  , NDIM )
      \end{verbatim}
  \item �ѥ�᡼���������� 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt JDIM} & {\tt [I]} & �������ˡ. ��������ο�. \\
      {\tt NDIM} & {\tt [I]} & �������ˡ. ϢΩ�������μ���.\\
      {\tt ALU}  & {\tt [R]} & 
          {\tt JDIM}$\times${\tt NDIM}$\times${\tt (-1:1)} ������. 
          {\tt NDIM}$\times${\tt NDIM} �� 3 ���гѹ��� {\tt JDIM} ��
          �ʤ��Ǥ����Τ�Ʊ���˰���. 
          {\tt ALU(J,N,-1)} ��������, {\tt ALU(J,N,1)} ���廰��,
          {\tt ALU(J,N,0)} ���г���ʬ��ɽ��.  
          ���Ϥι��󤬾�񤭤���� LU ʬ�����ǽ��Ϥ����. \\
    \end{tabular}
  \end{quote}
  \item ���� 
  \begin{enumerate}
    \item {\tt ALU(J,1,-1)}, {\tt ALU(J,NDIM,1)} �ϥ��ߡ��ѿ��Ǥ���. 
  \end{enumerate}
\end{enumerate}

\subsection{LUSOL3}
\label{lusol3}
\begin{enumerate}
  \item ��ǽ 
  \begin{quote}
     3 ���гѹ���� LU ʬ��ˤ��ϢΩ 1 ���������β�η׻���Ԥʤ�. 
  \end{quote}
  \item �ƤӽФ���ˡ 
      \begin{verbatim}
          CALL LUSOL3
     M         ( XV    ,
     I           ALU   ,
     D           IDIM  , JDIM , NDIM )
      \end{verbatim}
  \item �ѥ�᡼���������� 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt IDIM} & {\tt [I]} & 
           �������ˡ. ϢΩ�������α��ե٥��ȥ�ο�.\\ 
      {\tt JDIM} & {\tt [I]} & �������ˡ. ��������ο�.  \\
      {\tt NDIM} & {\tt [I]} & �������ˡ. ϢΩ�������μ���.  \\
      {\tt XV}   & {\tt [R]} & 
          {\tt IDIM}$\times${\tt JDIM}$\times${\tt NDIM}������.
          ϢΩ�������α��ե٥��ȥ�����ϤȤ���Ϳ��, �򤬾�񤭤���ƽ�
          �Ϥ����. \\
      {\tt ALU}  & {\tt [R]} & 
          {\tt JDIM}$\times${\tt NDIM}$\times${\tt (-1:1)}������. 
          {\tt NDIM}$\times${\tt NDIM}�� LU ʬ�򤵤줿 3 ���гѹ��� 
          {\tt JDIM} �Ĥʤ��Ǥ����Τ�Ʊ���˰���. \\
    \end{tabular}
  \end{quote}
  \item ���� 
  \begin{enumerate}
    \item {\tt ALU(J,1,-1)}, {\tt ALU(J,NDIM,1)} �ϥ��ߡ��ѿ��Ǥ���. 
  \end{enumerate}
\end{enumerate}
%\newpage
