%表題 共通 σ座標
%
%履歴   93/03/22 保坂征宏
%
%
%

\section{サブルーチンの説明 : σ座標の設定}

\subsection{SETSIG}
\label{setsig}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       鉛直レベル数に応じて
       整数・半整数レベルのσ, Δσの値, 
       鉛直レベルの軸名称を決定する. 
    \end{quote}
  \item 呼び出し方法 
      \begin{verbatim}
      SUBROUTINE SETSIG      !"  σレベル 
     O         ( SIG   , DSIG  , HASIG ,
     O           SIGM  , DSIGM , HASIGM,
     D           KMAX  , KDIM            )
      \end{verbatim}

  \item パラメーターの説明 
    \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt SIG}  & {\tt [R]} & 長さ {\tt (KDIM)}の配列. 
                               σレベル(整数)             \\
      {\tt SIGM} & {\tt [R]} & 長さ {\tt (KDIM+1)}の配列. 
                               σレベル(半整数)      \\
      {\tt DSIG} & {\tt [R]} & 長さ {\tt (KDIM)}の配列. 
                               Δσ(整数)             \\
      {\tt DSIGM} & {\tt [R]} & 長さ {\tt (KDIM+1)}の配列. 
                               Δσ(半整数)      \\
      {\tt HASIG}  & {\tt [C]*(*)} & 鉛直軸名称(整数)   \\
      {\tt HASIGM} & {\tt [C]*(*)} & 鉛直軸名称(半整数)   \\
      {\tt KMAX}   & {\tt [I] } & 鉛直レベル数   \\
      {\tt KDIM} & {\tt [I] } & 鉛直方向配列次元
    \end{tabular}
    \end{quote}

  \item 備考 
    \begin{enumerate}
        \item なし. 
    \end{enumerate}
\end{enumerate}

\subsection{SETSGM}
\label{setsgm}
\begin{enumerate}
  \item 機能 
    \begin{quote}
        半整数レベルでのσを計算し
        整数および半整数レベルの鉛直軸名称を決定する. 
    \end{quote}
  \item 呼び出し方法 
    \begin{verbatim}
      SUBROUTINE SETSGM
     O         ( SIGMX , HASIGX , HASIMX,
     I           KMAX                     )
    \end{verbatim}
  \item パラメーターの説明 
    \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt SIGMX} & {\tt [R]} & 長さ {\tt (KMAX+1)}の配列. 
                               σレベル(半整数)      \\
      {\tt HASIGX} & {\tt [C]*(*)} & 鉛直軸名称(整数)   \\
      {\tt HASIMX} & {\tt [C]*(*)} & 鉛直軸名称(半整数)   \\
      {\tt KMAX}   & {\tt [I] }    & 鉛直レベル数   
    \end{tabular}
    \end{quote}

  \item 備考 
    \begin{enumerate}
        \item 鉛直レベル数は 1,2,5,12,16,23,45 しか選ぶことができない.
    \end{enumerate}
\end{enumerate}

\subsection{STNSIG}
\label{stnsig}
\begin{enumerate}
  \item 機能 
    \begin{quote}
        鉛直レベル数に対応する鉛直レベル名称を返す.
    \end{quote}
  \item 呼び出し方法 
    \begin{verbatim}
      SUBROUTINE STNSIG
     O         ( HASIGX, HASIMX ,
     I           KMAX             )
    \end{verbatim}
  \item パラメーターの説明 
    \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt HASIGX} & {\tt [C]*(*)} & 鉛直軸名称(整数)   \\
      {\tt HASIMX} & {\tt [C]*(*)} & 鉛直軸名称(半整数)   \\
      {\tt KMAX}   & {\tt [I] }    & 鉛直レベル数   
    \end{tabular}
    \end{quote}

  \item 備考 
    \begin{enumerate}
        \item {\tt SETSGM} を呼ぶだけ. 
              {\tt SETSGM} がすでに呼ばれているかどうかは関係ない. 
    \end{enumerate}
\end{enumerate}


\subsection{SETSIX}
\label{setsix}
\begin{enumerate}
  \item 機能 
    \begin{quote}
        鉛直軸名称を設定する. 
    \end{quote}
  \item 呼び出し方法 
    \begin{verbatim}
      SUBROUTINE SETSIX
     M         ( SIGMY ,
     O           HASIGX, HASIMX,
     I           HASIG1, KMAX   )
    \end{verbatim}
  \item パラメーターの説明 
    \begin{quote}
    \begin{tabular}{llp{11cm}}
      {\tt SIGMY} & {\tt [R]} & 長さ {\tt (KMAX+1)}の配列. 
                               σレベル(半整数)      \\
      {\tt HASIGX} & {\tt [C]*(*)} & 鉛直軸名称(整数)   \\
      {\tt HASIMX} & {\tt [C]*(*)} & 鉛直軸名称(半整数)   \\
      {\tt HASIG1} & {\tt [C]*(*)} & 鉛直軸名称デフォルト   \\
      {\tt KMAX}   & {\tt [I] }    & 鉛直レベル数   
    \end{tabular}
    \end{quote}

  \item 備考
    \begin{enumerate}
        \item ネームリスト {\tt NMSIGM} を読んでいる. 
              これを用いて σレベル, 軸名称を変更できる. 
    \end{enumerate}
\end{enumerate}

