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

\subsection{ACRSET}
\label{acrset}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    空間座標を設定する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ACRSET
      \end{verbatim}
  \item パラメーターの説明 : なし.
  \item 備考 
  \begin{enumerate}
    \item NAMELIST 変数により空間領域を設定し, 
          格子点間隔を計算, 記憶する
      \begin{verbatim}
          REAL XLNGTH         !" 水平方向(X)の領域の大きさ
          REAL ZLNGTH         !" 鉛直方向(Z)の領域の大きさ

          NAMELIST  /NMCORD/ XLNGTH , ZLNGTH
      \end{verbatim}
  \end{enumerate}
\end{enumerate}

\subsection{ACRGET}
\label{acrget}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    空間座標を参照する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ACRGET
         O       (  DX , DZ  )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt DX}     & {\tt [R]}     & X 軸上の格子点間隔\\
      {\tt DZ}     & {\tt [R]}     & Z 軸上の格子点間隔\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt ACRSET}(\ref{acrset})で設定された格子点間隔を参照する. 
          このルーチンより前にあらかじめ{\tt ACRSET}(\ref{acrset})を呼び, 
          空間座標を設定しておく必要がある. 
  \end{enumerate}
\end{enumerate}

\subsection{ACNGET}
\label{acnget}
\begin{enumerate}
  \item 機能 
  \begin{quote}
    空間座標軸名を参照する. 
  \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
          CALL ACNGET
         O       ( HCORX , HCORZ )
      \end{verbatim}
  \item パラメーターの説明 
  \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt HCORX*(NCC)} & {\tt [C]} & X 座標軸名\\
      {\tt HCORZ*(NCC)} & {\tt [C]} & Z 座標軸名\\
    \end{tabular}
  \end{quote}
  \item 備考 
  \begin{enumerate}
    \item {\tt ACRSET}(\ref{acrset})で設定された空間領域及び格子点数に応じた
          座標軸ファイル名を参照する. 
          このルーチンより前にあらかじめ ACRSET を呼び, 
          空間座標を設定しておく必要がある. 
    \item 格子点名は下位ルーチン {\tt ACNSTZ} により定められる. 
          座標名の書式は  
          [GTOOL3 軸ファイル接頭子//格子点数//'-'//領域サイズ]
          である. 
  \end{enumerate}
\end{enumerate}


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