%表題   共通 時間単位の変換
%
%履歴   93/09/14 保坂征宏
%

\section{サブルーチンの説明 : 時間単位変換}

時間単位の変換ルーチン群である. 
ある時間単位のもとで整数表現された時間を 
\verb!ACTIME,ACTIMY! で別の時間単位に変換することが出来る. 
\verb!ACTIME! と \verb!ACTIMR! との違いは
変換後の時間が整数か実数かの違いである. 
なお, 単位変換において標準時間単位を使うことが出来る. 
標準時間単位は, \verb!ASUTIM! で設定, \verb!AQUTIM! で参照できる. 
また, 標準時間刻は \verb!ASDELT! ( 単位は標準時間刻 ) で設定でき, 
\verb!STEP! を時間単位とした変換も可能である\footnotemark 
       \footnotetext{
             というのが時間刻 IDELT を用意している主旨であるが, 
             93/09/14 時点で正しく動作するかどうかは未調査. }
             
\subsection{ACTIME}
\label{actime}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時間単位 \verb!HUTIM! での時間 \verb!KT! を
       時間単位 \verb!HUTIMY! での時間 \verb!IT! に変換する. 
    \end{quote}

  \item 呼び出し方法
    \begin{verbatim}
      SUBROUTINE ACTIME      !"  時間単位の変換 HUTIM → HUTIMY 整数 
     I         ( KT    , HUTIM  , HUTIMY,
     O           IT                      )
    \end{verbatim}

  \item パラメータの説明
  
    \begin{verbatim}
*    [INPUT]     
      INTEGER    KT                !" 入力時刻：単位 HUNIT
      CHARACTER  HUTIM *(*)        !" 入力 KT の単位
      CHARACTER  HUTIMY*(*)        !" 変換すべき時間単位
*    [OUTPUT]
      INTEGER    IT                !" 出力時刻：単位 HUNITY
    \end{verbatim}
    
  \item 備考
    \begin{enumerate}
      \item \verb!HUTIM, HUTIMY! が \verb!#! である場合には
            標準時間単位 ( デフォルトは \verb!MIN! ) として扱われる. 
      \item \verb!IT! がわりきれないときには, 
            \verb!GUCT2I! での扱いと同じ扱いをされる. 
      \item 実際の変換には \verb!GUCT2I! で行なう. 
    \end{enumerate}

\end{enumerate}

\subsection{ACTIMR}
\label{actimr}
\begin{enumerate}
  \item 機能 
    \begin{quote}
       時間単位 \verb!HUTIM! での時間 \verb!KT! を
       時間単位 \verb!HUTIMY! での時間 \verb!RT! に変換する. 
    \end{quote}
    
  \item 呼び出し方法
  
    \begin{verbatim}
      ENTRY      ACTIMR       !"  時間単位の変換 HUTIM → HUTIMY 実数 
     I         ( KT    , HUTIM  , HUTIMY,
     O           RT                      )
    \end{verbatim}

  \item パラメタの説明
    \begin{verbatim}
*    [INPUT]     
      INTEGER    KT                !" 入力時刻：単位 HUNIT
      CHARACTER  HUTIM *(*)        !" 入力 KT の単位
      CHARACTER  HUTIMY*(*)        !" 変換すべき時間単位
*    [OUTPUT]
      REAL       RT                !" 出力時刻：単位 HUNITY
    \end{verbatim}
    
  \item 備考
    \begin{enumerate}
      \item \verb!HUTIM, HUTIMY! が \verb!#! である場合には
            標準時間単位 ( デフォルトは \verb!MIN! ) として扱われる. 
      \item 実際の変換には \verb!GZDGTR! で行なう. 
    \end{enumerate}

\end{enumerate}

\subsection{AQUTIM}
\label{aqutim}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      標準時間単位の参照. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      AQUTIM      !"  標準時間単位の参照 
     O         ( HUTIM )
    \end{verbatim}
    
  \item パラメタの説明
    \begin{verbatim}
      CHARACTER  HUTIM *(*)   !" 標準時間単位
    \end{verbatim}

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

\subsection{ASUTIM}
\label{asutim}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      標準時間単位の設定. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      ASUTIM      !"  標準時間単位の設定 
     I         ( HUTIM )
    \end{verbatim}
    
  \item パラメタの説明
    \begin{verbatim}
      CHARACTER  HUTIM *(*)   !" 標準時間単位
    \end{verbatim}

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

\subsection{ASDELT}
\label{asdelt}
\begin{enumerate}
  \item 機能 
    \begin{quote}
      標準時間刻みの設定. 
    \end{quote}
  \item 呼び出し方法
    \begin{verbatim}
      ENTRY      ASDELT      !"  標準時間刻みの設定 
     I         ( IDELT )
    \end{verbatim}
    
  \item パラメタの説明
    \begin{verbatim}
      INTEGER     IDELT   !" 標準時間刻み
    \end{verbatim}

  \item 備考
    \begin{enumerate}
      \item 単位は標準時間刻みにする必要がある. 
    \end{enumerate}

\end{enumerate}

