SUBROUTINE init(wvl,success)
c============================================================================
c PROCEDURE NAME: 	init
c PROCEDURE TYPE: 	fortran subroutine
c VERSION DATE:		July, 1998
c
c PURPOSE:
c   Driver for initialization of the RIWI system.  
c
c CALLING PARAMETERS:
c   Name	Type	i/o	units	Description
c   --------	----	---	-----	--------------
c   wvl          i4      i       nm     Nominal wavelength of reflectivity
c                                       channel (360 or 380)
c   success      l       o              Successful completion flag.
c
c EXTERNAL ROUTINES REQUIRED:
c
c NOTES & CAVEATS:
c   The call to ld_gauscheb can be eliminated if no diurnal integral
c   is desired.
c
c REVISION HISTORY:
c
c============================================================================
      IMPLICIT NONE
c----------------------------------------------------------------------------
c Compile parameters
c

c----------------------------------------------------------------------------
c Calling parameters
c
      LOGICAL success
      INTEGER*4 wvl

c----------------------------------------------------------------------------
c Common blocks
c

c----------------------------------------------------------------------------
c Local variables
c
      INTEGER*4 usepts /64/

c============================================================================


      CALL ld_cont_scan(success)
         IF (.NOT. success) RETURN

      CALL ld_solspec(success)
         IF (.NOT. success) RETURN

      CALL ld_weights(success)
         IF (.NOT. success) RETURN

      CALL ld_ccftabl(success)
         IF (.NOT. success) RETURN

      IF((wvl .EQ. 360) .OR. (wvl .EQ. 380)) THEN

        CALL ld_radlow(wvl, success)
           IF (.NOT. success) RETURN
 
        CALL ld_radhigh(wvl, success)
           IF (.NOT. success) RETURN

      END IF

      CALL ld_gauscheb(usepts, success)

      RETURN
      END