* PACKAGE  ATIME !"   時間単位の変換 
*
*"  [HIS] 90/11/02(numaguti) 
*
*
*********************************************************************
      SUBROUTINE ACTIME      !"  時間単位の変換 HUTIM → HUTIMY 整数 
     I         ( KT    , HUTIM  , HUTIMY,
     O           IT                      )
*
*    [INPUT]     
      INTEGER    KT                !" 入力時刻：単位 HUNIT
      CHARACTER  HUTIM *(*)        !" 入力 KT の単位
      CHARACTER  HUTIMY*(*)        !" 変換すべき時間単位
      INTEGER    IDELT
*    [OUTPUT]
      INTEGER    IT                !" 出力時刻：単位 HUNITY
      REAL       RT                !" 出力時刻：単位 HUNITY
*
      CHARACTER  HUTIMI *4         !" 入力単位
      CHARACTER  HUTIMO *4         !" 出力単位
*
      CHARACTER  HUTIMS *4         !" 標準使用時間単位
      INTEGER    IDELTS            !" 標準使用Δｔ
      DATA       HUTIMS / 'MIN' /
      DATA       IDELTS / 1800  /
      SAVE       HUTIMS, IDELTS
*
      IF ( HUTIM .EQ. '#' ) THEN
         HUTIMI = HUTIMS
      ELSE
         HUTIMI = HUTIM
      ENDIF
      IF ( HUTIMY.EQ. '#' ) THEN
         HUTIMO = HUTIMS
      ELSE
         HUTIMO = HUTIMY
      ENDIF
*
      CALL GUCT2I
     I         ( KT    , HUTIMI, HUTIMO, IDELTS ,
     O           IT                              )
*
      RETURN
*====================================================================
      ENTRY      ACTIMR       !"  時間単位の変換 HUTIM → HUTIMY 実数 
     I         ( KT    , HUTIM  , HUTIMY,
     O           RT                      )
*
      IF ( HUTIM .EQ. '#' ) THEN
         HUTIMI = HUTIMS
      ELSE
         HUTIMI = HUTIM
      ENDIF
      IF ( HUTIMY.EQ. '#' ) THEN
         HUTIMO = HUTIMS
      ELSE
         HUTIMO = HUTIMY
      ENDIF
*
      CALL GZDBTR
     I         ( KT    , HUTIMI, HUTIMO, IDELTS ,
     O           RT                               )
*
      RETURN
*====================================================================
      ENTRY      AQUTIM      !"  標準時間単位の参照 
     O         ( HUTIM )
*
      HUTIM = HUTIMS
*
      RETURN
*====================================================================
      ENTRY      ASUTIM      !"  標準時間単位の設定 
     I         ( HUTIM )
*
      HUTIMS = HUTIM
*
      RETURN
*====================================================================
      ENTRY      ASDELT      !"  標準時間単位の設定 
     I         ( IDELT )
*
      IDELTS = IDELT
*
      RETURN
      END