%表題 bsnsq_2d 時間空間座標管理ライブラリ (モデル時刻管理)n
%
%履歴 
\Drireki{96/03/12 竹広真一}
%
%
\section{サブルーチンの説明 : 
         モデル時刻管理}
\label{atime}

\subsection{ATPSET}
\label{atpset}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    モデル内の時刻を設定する.
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ATPSET
         I     ( TIMS , ITS , DT )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt TIMS} & {\tt [R]}     & 実験開始時のモデル内時刻\\
      {\tt ITS}  & {\tt [I]}     & 実験開始時のステップ数\\
      {\tt DT}   & {\tt [R]}     & 時間間隔\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt TIMS}, {\tt ITS}, {\tt DT} を記憶する. 
  \end{enumerate}
\end{enumerate}

\subsection{ATPGET}
\label{atpget}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    時刻設定情報を参照する.
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ATPGET
         O     ( TIMS , ITS , DT )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt TIMS} & {\tt [R]}     & 実験開始時のモデル内時刻\\
      {\tt ITS}  & {\tt [I]}     & 実験開始時のステップ数\\
      {\tt DT}   & {\tt [R]}     & 時間間隔\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt ATPSET}(\ref{atpset})で設定した 
          {\tt TIMS}, {\tt ITS}, {\tt DT} を参照する. 
    \item 前もって {\tt ATPSET}(\ref{atpset}) を呼び
          時刻を設定しておかねばならない. 
  \end{enumerate}
\end{enumerate}

\subsection{ATQTIM}
\label{atqtim}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    モデル内時刻を参照する.
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ATQTIM
         O    ( TIM ,
         I      IT    )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt TIM} & {\tt [R]}     & モデル内時刻\\
      {\tt IT}  & {\tt [I]}     & ステップ数\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt ATPSET}(\ref{atpset})で設定した 
          {\tt TIMS}, {\tt ITS}, {\tt DT} をもとに, 
          {\tt IT}ステップでの時刻を計算し
          {\tt TIM} にその値を返す.
    \item 前もって {\tt ATPSET}(\ref{atpset}) を呼び
          時刻を設定しておかねばならない. 
    \item 時刻を計算する式は
          ${\tt TIM} = {\tt TIMSTR} 
          + {\tt DELT} \times ( {\tt IT}-{\tt ITSTR} )$.
  \end{enumerate}
\end{enumerate}

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