ADAS Subroutine bgwr33

C
      SUBROUTINE BGWR33( iunit , 
     &                   ILEV  , ITE   , IDEN , pop , data_out
     &                 )

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGWR33 *********************
C
C  PURPOSE:  WRITES UNFORMATTED 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,        ILEV,        ITE,         IUNIT
      REAL                DATA_OUT(ILEV,ITE,IDEN)
      REAL*8              POP(NDLEV,NDTEM,NDDEN)