%表題 bsnsq_2d 入出力ライブラリ (初期値読み込みルーチン)
%
%履歴 
\Drireki{96/03/12 竹広真一}
%
%
\section{サブルーチンの説明 : 
         初期値読み込みルーチン}
\label{irdrst}

\subsection{RDSTRT}
\label{rdstrt}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    初期値の設定
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL RDSTRT
         O      ( PSI2  , ZETA2 , T2 ,
         O        PSI1  , ZETA1 , T1  )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI2  ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 流線関数(現在の値)\\
      {\tt ZETA2 ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 渦度(現在の値)\\
      {\tt T2    ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 温度(現在の値)\\
      {\tt PSI1  ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 流線関数(1STEP前の値)\\
      {\tt ZETA1 ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 渦度(1STEP前の値)\\
      {\tt T1    ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 温度(1STEP前の値)\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item 内部で {\tt RDRSTR} を呼んで現在値を読み込み, 
          1 step 前の変数にコピーしている. 
  \end{enumerate}
\end{enumerate}

\subsection{RDRSTR}
\label{rdrstr}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    初期値の設定
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL RDRSTR
         O      ( PSI  , ZETA , T )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt PSI  ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 流線関数\\
      {\tt ZETA ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 渦度\\
      {\tt T    ( 0:NX+1 , 0:NZ+1 )} & {\tt [R]}& 温度\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item 時間(ステップ数)によるデータ判別をする方法を組み込んでいない.
  \end{enumerate}
\end{enumerate}

\subsection{その他のサブルーチン}

その他下位のサブルーチンとして {\tt  RDRSTZ} がある. 

%\newpage

%%% Local Variables: 
%%% mode: japanese-latex
%%% TeX-master: "/usr/export/home/takepiro/model/bsnsq_2d/doc/sub"
%%% End: