ADAS Subroutine bghist

C
      SUBROUTINE BGHIST( IUNIT , ILEV  , ITE   , IDEN  , 
     &                   IHIST , ih_out 
     &                 )

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGHIST *********************
C
C  PURPOSE:  WRITES UNFORMATTED HISTOGRAM DATA TO IUNIT.
C
C  CALLING PROGRAM: ADAS216
C
C  INPUT : (I*4)   IUNIT    = UNIT NO. OF OPENED UNFORMATTED FILE
C  INPUT : (R*8)   POP      = POPULATION ARRAY
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C
C  
C  AUTHOR   : Martin O'Mullane,
C             K1/1/43,
C             JET
C
C  VERSION  : 1.1                          
C  DATE     : 17/03/1999
C
C  MODIFIED : Martin O'Mullane  
C             First version.
C
C-----------------------------------------------------------------------
      INTEGER             IDEN,        IHIST(NDLEV,NDTEM,NDDEN,NDBIN)
      INTEGER*2           IH_OUT(ILEV,ITE,IDEN,NDBIN)
      INTEGER             ILEV,        ITE,         IUNIT