anchor.diff:         ALLOCATE (lut_pre_lay_cld(1:ancld,1:anlay),   STAT=estat)
          ALLOCATE (lut_pre_lev(1:ansrf,1:anlev),   STAT=estat)
   
  -       ALLOCATE (lut_tem(1:anozo,1:ansrf,1:anlev), STAT=estat)
  -       
          ALLOCATE (lut_I0_clr(1:anozo,1:ansrf,1:anvza,1:ansza), STAT=estat)
          ALLOCATE (lut_I1_clr(1:anozo,1:ansrf,1:anvza,1:ansza), STAT=estat)
          ALLOCATE (lut_I2_clr(1:anozo,1:ansrf,1:anvza,1:ansza), STAT=estat)
  
positive.code:   CHARACTER(LEN=5), DIMENSION(:),           ALLOCATABLE :: lut_toms
    REAL(KIND=r4),    DIMENSION(:,:),         ALLOCATABLE :: lut_alt_lay, lut_alt_lev, lut_pre_lay, lut_pre_lev, &
         lut_pre_lev_cld, lut_pre_lay_cld
    REAL(KIND=r4),    DIMENSION(:,:,:),       ALLOCATABLE :: lut_air, lut_ozo, lut_tem
    REAL(KIND=r4),    DIMENSION(:,:),         ALLOCATABLE :: lut_Sb_clr, lut_Sb_cld
    REAL(KIND=r4),    DIMENSION(:,:,:,:),     ALLOCATABLE :: lut_I0_clr, lut_I1_clr, lut_I2_clr, lut_Ir_clr, &
         lut_I0_cld, lut_I1_cld, lut_I2_cld, lut_Ir_cld
  
negative.code:     CALL h5dopen_f(input_file_id,'/Profiles/Cloud pressure Level', pre_lev_cld_did, hdferr)
      CALL h5dopen_f(input_file_id,'/Profiles/Cloud pressure Layer', pre_lay_cld_did, hdferr)
      CALL h5dopen_f(input_file_id,'/Profiles/Ozone Column Layer', ozo_did, hdferr)
  
      CALL h5dopen_f(input_file_id,'/Scattering Weights/Clear Sky/dI0', dI0_clr_did, hdferr)
      CALL h5dopen_f(input_file_id,'/Scattering Weights/Clear Sky/dI1', dI1_clr_did, hdferr)
  