SUBROUTINE init_eryth(wvl, success)
c
c PROCEDURE NAME: 	init_eryth
c PROCEDURE TYPE: 	fortran subroutine
c VERSION DATE:		27.VI.97
c
c PURPOSE:
c   Calls ld_radlow, ld_radhigh, and ld_eryth to load all the lookup
c   tables that are required to calculate the putative cloud optical 
c   thickness and the erythemal exposures.
c
c   This routine must be called before any call to taucloud or eryth
c
c   This suite of routines is designed to work equally well with the
c   TOMS data where the reflectivity wavelength is 360 nm or 380 nm.
c   The calling argument  wvl  should be set to either 360 or 380 to
c   indicate which tables to use.
c 
c
c CALLING PARAMETERS:
c   Name	Type	i/o	units	Description
c   --------	----	---	-----	--------------
c   wvl		I4	i	nm	reflectivity channel wavelength
c   success	L	o		Flags successful completion.
c
c EXTERNAL ROUTINES REQUIRED:
c	ld_radlow	Loads low-optical thickness radiance tables
c	ld_radhigh	Loads high-optical thickness radiance tables
c	ld_eryth	Loads erythemal exposure table.
c
c NOTES & CAVEATS:
c
c REVISION HISTORY:
c   27.VI.97 Documentation added (eac).
c   27.VI.97 Checking for valid wvl added (eac).
c
c============================================================================
      IMPLICIT NONE
c-----------------------------------------------------------------------
c Calling parameters
c
      INTEGER*4 wvl
      LOGICAL success

      success= .FALSE.
      IF((wvl .NE. 360) .AND. (wvl .NE. 380)) GOTO 903

      CALL ld_radlow(wvl, success)
        IF(.NOT.success) GOTO 900

      CALL ld_radhigh(wvl, success)
        IF(.NOT.success) GOTO 901

      CALL ld_eryth(success)
        IF(.NOT.success) GOTO 902

      RETURN
c
c--Handle error conditions.
c
  900 CONTINUE
      WRITE(6,*)'Could not read the low-radiance taucloud file.'
      RETURN

  901 CONTINUE
      WRITE(6,*)'Could not read the high-radiance taucloud file.'
      RETURN

  902 CONTINUE
      WRITE(6,*)'Could not read the erythemal exposure table file.'
      RETURN

  903 CONTINUE
      WRITE(6,*)' !!! init_eryth !!! Called with wvl other than 360 ',
     &  'or 380'
      RETURN

      END