* PACKAGE IRWSTR  !" BARO $BF~=PNO%Q%C%1!<%8(B($B4JC1HG(B)
*
*"  [HIS] 96/08/23(takepiro)
*
**********************************************************************
      SUBROUTINE HISTOU
*
      RETURN
*======================================================================
      ENTRY IHSTRT
*
      RETURN
*======================================================================
      ENTRY IHEND
*
      CALL  IWRSTE
*
      RETURN
*======================================================================
      ENTRY HISTRP
*
      RETURN
      END
***********************************************************************
      SUBROUTINE HISTIN
     I            ( GDATA, HITEM )
*
      REAL       GDATA   ( * )               !" $B%G!<%?(B
      CHARACTER  HITEM   *(*)                !" $BJQ?tL>(B
*
c$$$      CALL INQTIM
c$$$     O      ( ITA   , ITB   , IDATEA, IDATEB,
c$$$     O        ISTEP , DELT  , OADVNC          )
c$$$*
c$$$      IF ( OFIRST )THE
c$$$      
c$$$
c$$$      IDELTH = ITA - ITOLD
c$$$      ITOLD  = ITA
c$$$*
c$$$      ITOUT = ITOUT + IDELTH
c$$$*
c$$$      IF ( ITOUT .GE. INTOUH ) THEN
c$$$            
c$$$
      RETURN
*======================================================================
      ENTRY IHSTRG
*
      RETURN
      END
