* 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
*
      RETURN
*======================================================================
      ENTRY IHSTRG
*
      RETURN
*======================================================================
      ENTRY HISTRP
*
      RETURN
      END
***********************************************************************
      SUBROUTINE HISTIN
     I            ( GDATA, HITEM )
*
      REAL       GDATA   ( * )               !" $B%G!<%?(B
      CHARACTER  HITEM   *(*)                !" $BJQ?tL>(B
*
      RETURN
      END
