*"表題 時刻の参照 GTOOL3(GUQTIM)
*
*"履歴 90/09/15 沼口  敦
*
*
*********************************************************************
*"         << 時刻の参照 >>
*********************************************************************
      SUBROUTINE GUQTIM
     I         ( HHEAD ,
     O           RT    , HUTIM )
*
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       RT                      !" 時刻
      CHARACTER  HUTIM      *(*)         !" 時刻単位
*
      CHARACTER  HUTIMF     *8           !" 標準時間単位
*
      CALL GHPGET ( HHEAD, 'TIME',  ITIME  )
      CALL GHCGET ( HHEAD, 'UTIM',  HUTIMF )
      CALL GTCGET ( 'UTIM', HUTIM )
      CALL GUCT2R
     I            ( ITIME , HUTIMF, HUTIM , 1      ,
     O              RT                                )
*
      RETURN
      END
