text: ! This file is common to both the RADCAL and the FDS source code repositories. If you change in one location, 
  ! please make sure that the change is also made in the other location.
  
  !> \brief Variable defintions specific to RADCAL
  
  MODULE RADCAL_VAR
  
  USE PRECISION_PARAMETERS, ONLY: EB, MESSAGE_LENGTH, PI
  USE GLOBAL_CONSTANTS, ONLY: AEROSOL_AL2O3, SIGMA
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  CHARACTER(MESSAGE_LENGTH) :: MESSAGE
  
  INTEGER, PARAMETER :: N_RADCAL_SPECIES = 16      !< Number of RadCal species (including soot) plus nitrogen and oxygen
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: PARTIAL_PRESSURES_ATM !< Partial pressure of species in each segment (atm)
  REAL(EB), ALLOCATABLE, DIMENSION(:)   :: TEMP_GAS              !< Gas temperature of each segment (K)
  REAL(EB), ALLOCATABLE, DIMENSION(:)   :: SEGMENT_LENGTH_M      !< Length of each sgment (m)
  REAL(EB), ALLOCATABLE, DIMENSION(:)   :: TOTAL_PRESSURE_ATM    !< Total pressure of each segment (atm)
  
  REAL(EB) :: OMMIN      !< Minimum wave number in spectrum (1/cm)
  REAL(EB) :: OMMAX      !< Maximum wave number in spectrum (1/cm)
  REAL(EB) :: LAMBDAMIN  !< Minimum wavelength (microns)
  REAL(EB) :: LAMBDAMAX  !< Maximum wavelength (microns)
  REAL(EB) :: TWALL      !< Wall temperature (K)
  REAL(EB) :: TAU
  REAL(EB) :: XTOT
  REAL(EB) :: FV         !< Soot volume fraction
  
  INTEGER:: NPT
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: GAMMA
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: SD15
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: SD
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: SD7
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: SD3
  
  INTEGER, PARAMETER :: N_TEMP_C3H6=7,  N_BAND_C3H6=3, &
                        N_TEMP_C3H8=7,  N_BAND_C3H8=2, &
                        N_TEMP_C7H16=7, N_BAND_C7H16=2, &
                        N_TEMP_C7H8=7,  N_BAND_C7H8=5, &
                        N_TEMP_CH4=23,  N_BAND_CH4=3, &
                        N_TEMP_CH3OH=7, N_BAND_CH3OH=4, &
                        N_TEMP_C5H8O2=7,N_BAND_C5H8O2=6, &
                        N_TEMP_C2H6=7,  N_BAND_C2H6=3, &
                        N_TEMP_C2H4=7,  N_BAND_C2H4=4
  
  INTEGER, PARAMETER :: I_MODEL_C3H6=2   !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C3H8=2   !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C7H16=2  !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C7H8=2   !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_CH3OH=2  !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C5H8O2=2 !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C2H6=2   !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_C2H4=2   !< Flag for Malkmus model
  INTEGER, PARAMETER :: I_MODEL_CO2=1    !< Flag for Goody model
  INTEGER, PARAMETER :: I_MODEL_H2O=1    !< Flag for Goody model
  INTEGER, PARAMETER :: I_MODEL_CO=1     !< Flag for Goody model
  INTEGER, PARAMETER :: I_MODEL_CH4=3    !< Flag for Elsasser model
  
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C3H6_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C3H8_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C7H16_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C7H8_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_CH3OH_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C5H8O2_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C2H6_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_CH4_TEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: SD_C2H4_TEMP
  
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C3H8
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C7H16
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:)    :: BE_C2H4
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_CH4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C3H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C7H16
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: OM_BND_C2H4
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_CH4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_CH4
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_C3H6
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C3H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C3H8
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C7H16
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C7H16
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD4_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD5_C7H8
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD4_CH3OH
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD4_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD5_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD6_C5H8O2
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_C2H6
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD1_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD2_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD3_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: SD4_C2H4
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C3H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_C3H6
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C3H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C3H8
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C7H16
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C7H16
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD4_C7H8
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD5_C7H8
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_CH3OH
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD4_CH3OH
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD4_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD5_C5H8O2
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD6_C5H8O2
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C2H6
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_C2H6
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD1_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD2_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD3_C2H4
  REAL(EB), ALLOCATABLE, DIMENSION(:,:)  :: GAMMAD4_C2H4
  
  REAL(EB), ALLOCATABLE, DIMENSION(:)  :: AB, WAVE_NUMBER, LAMBDA
  REAL(EB), ALLOCATABLE, DIMENSION(:)  :: INCIDENT_RADIANCE
  
  REAL(EB), ALLOCATABLE, DIMENSION(:,:) :: TTAU
  
  INTEGER :: NOM  !< Number of wavelength intervals
  
  REAL(EB), PARAMETER :: M_TO_CM = 100.0_EB  !< Conversion factor, m to cm
  REAL(EB), PARAMETER :: CM_TO_M = 0.01_EB   !< Conversion factor, cm to m
  
  REAL(EB) :: PFUEL
  
  INTEGER, PARAMETER :: I_CO=3, I_CO2=1, I_H2O=2, I_N2=14, I_O2=15, I_FV=16, I_C2H4=5, I_C2H6=6, I_C3H6=7, I_C3H8=8, &
                        I_C7H8=9, I_C7H16=10, I_CH3OH=11, I_CH4=4, I_CH4_OLD=13, I_MMA=12
  
  END MODULE RADCAL_VAR
  
  !> \brief The computational routines and band data for RADCAL
  
  MODULE RADCAL_CALC
  
  USE PRECISION_PARAMETERS
  USE COMP_FUNCTIONS, ONLY: SHUTDOWN
  USE RADCONS, ONLY: RPI_SIGMA
  USE RADCAL_VAR
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  PUBLIC INIT_RADCAL,RCALLOC,RCDEALLOC,PLANCK,SUB_RADCAL
  
  CONTAINS
  
  !> \brief Initializes some RADCAL variables
  
  SUBROUTINE INIT_RADCAL
  
  REAL(EB) :: OMEGA !< Wavenumber (1/cm)
  REAL(EB) :: DOM   !< Delta wavenummber (1/cm)
  
  INTEGER :: I_WAVENUMB !< Loop counter
  
  IF((OMMAX<1100._EB).AND.(OMMIN<OMMAX)) THEN
     NOM = INT((OMMAX-OMMIN)/5._EB)
  ELSEIF(OMMIN>5000._EB) THEN
     NOM = INT((OMMAX-OMMIN)/50._EB)
  ELSEIF(OMMIN<1100._EB.AND.OMMAX>5000._EB) THEN
     NOM = INT((1100._EB-OMMIN)/5._EB)+INT((5000._EB-1100._EB)/25._EB) +INT((OMMAX-5000._EB)/50._EB)
  ELSEIF(OMMIN<1100._EB) THEN
     NOM = INT((1100._EB-OMMIN)/5._EB)+INT((OMMAX-1100._EB)/25._EB)
  ELSEIF(OMMAX>5000._EB) THEN
     NOM = INT((5000._EB-OMMIN)/25._EB)+INT((OMMAX-5000._EB)/50._EB)
  ELSE
     NOM = INT((OMMAX-OMMIN)/25._EB)
  ENDIF
  
  ALLOCATE(INCIDENT_RADIANCE(NOM)); INCIDENT_RADIANCE   = 0.0_EB
  ALLOCATE(TTAU(0:NPT,NOM))       ; TTAU                = 1.0_EB
  
  ALLOCATE(LAMBDA(NOM))      ; LAMBDA      = 0.0_EB
  ALLOCATE(AB(NOM))          ; AB          = 0.0_EB
  ALLOCATE(WAVE_NUMBER(NOM)) ; WAVE_NUMBER = 0.0_EB
  
  ! POPULATE VECTOR WAVE_NUMBER AND LAMBDA
  
  DOM    = 5.0_EB
  OMEGA  = OMMIN-DOM
  
  DO I_WAVENUMB = 1, NOM
     OMEGA=OMEGA+DOM
     IF(OMEGA > 1100._EB) OMEGA = OMEGA + 20._EB
     IF(OMEGA > 5000._EB) OMEGA = OMEGA + 25._EB
  
     WAVE_NUMBER(I_WAVENUMB) = OMEGA            ! WAVENUMBER IN CM^-1
     LAMBDA(I_WAVENUMB)      = 10000.0_EB/OMEGA ! WAVELENGTH IN MICRON
  ENDDO
  
  END SUBROUTINE INIT_RADCAL
  
  
  !> \brief main computation routine for RADCAL
  !>
  !> \param EFFECTIVE_ABSORPTION   Effective absorption coefficient (1/cm)
  !> \param PLANCK_MEAN_ABSORPTION Planck mean absorption coefficient (1/cm)
  !> \param RADIANCE               Total incident power (W/m2/sr)
  !> \param TOTAL_TRANSMISSIVITY   Total transmissivity, computed only when TWALL > 0
  
  SUBROUTINE SUB_RADCAL(EFFECTIVE_ABSORPTION,PLANCK_MEAN_ABSORPTION,RADIANCE,TOTAL_TRANSMISSIVITY)
  
  ! LOCAL
  !------
  ! A_COLLISION : (REAL) COLLISION BROADENED FINE STRUCTURE PARAMETER
  !               (LINE_HALF_WIDTH/LINE_SPACING)
  ! A_DOPPLER   : (REAL) DOPPLER BROADENED FINE STRUCTURE PARAMETER
  !               (LINE_HALF_WIDTH/LINE_SPACING)
  ! PTOT        : (REAL) TOTAL PRESSURE IN ATM
  ! X_COLLISION : (REAL) ! OPTICAL DEPTH FOR A PURE COLLISION CURVE OF GROWTH
  ! X_DOPPLER   : (REAL) ! OPTICAL DEPTH FOR A PURE DOPPLER CURVE OF GROWTH
  !------------------------------------------------------------------------------
  
  REAL(EB), INTENT(OUT) :: EFFECTIVE_ABSORPTION,PLANCK_MEAN_ABSORPTION,RADIANCE,TOTAL_TRANSMISSIVITY
  
  REAL(EB), ALLOCATABLE, DIMENSION(:):: PATH_LENGTH_CM !< Segment path lengths (cm)
  REAL(EB), ALLOCATABLE, DIMENSION(:):: AZOTEMP        !< Ratio of reference temperature (273 K) to segment temperature
  REAL(EB), ALLOCATABLE, DIMENSION(:):: TAUS
  REAL(EB), ALLOCATABLE, DIMENSION(:):: TAUL
  REAL(EB), ALLOCATABLE, DIMENSION(:):: X_PARTICLE     !< Optical depth for particle in segment
  REAL(EB), ALLOCATABLE, DIMENSION(:):: AB_PLANCK
  REAL(EB), ALLOCATABLE, DIMENSION(:):: AB_TAU
  REAL(EB), ALLOCATABLE, DIMENSION(:):: BB_SPECT
  REAL(EB), ALLOCATABLE, DIMENSION(:):: BB_GAS
  REAL(EB), ALLOCATABLE, DIMENSION(:):: BB_WALL
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: CURTIS_XSTAR
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: CURTIS_ACOLLISION
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: CURTIS_ADOPPLER
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: GC
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: OPTICAL_THICKNESS !< Optical thickess of ith species in each segment (CMSTP)
  REAL(EB), ALLOCATABLE, DIMENSION(:,:):: OPTICAL_DEPTH
  REAL(EB):: RSL
  REAL(EB):: RSS
  REAL(EB)::OMEGA !> Wavenumber (1/cm)
  REAL(EB)::WAVE_LENGTH
  REAL(EB)::DAMBDA
  REAL(EB)::LTERM
  REAL(EB)::TEMP4 !> Local temperature to the fourth power (K4)
  REAL(EB)::AVG_TEMP
  REAL(EB)::TOTAL_LENGTH_CM
  REAL(EB)::INT_BB_GAS
  REAL(EB)::INT_BB_WALL
  INTEGER :: I_WAVENUMB, KMAX, KMIN, I_PATH
  
  ! INITIALIZATION
  
  INT_BB_GAS            = 0.0_EB
  INT_BB_WALL           = 0.0_EB
  INCIDENT_RADIANCE     = 0.0_EB
  RADIANCE              = 0.0_EB
  TOTAL_TRANSMISSIVITY  = 1.0_EB  ! INITIALIZATION VALUES TO ARBITRARY
                                   ! LARGE NUMBER SO THAT USER KNOWS WHEN IT
                                   ! HAS NOT BEEN CALCULATED
  !------------------------------------------------------------------------------
  ! ALLOCATE ARRAYS NEEDED FOR CALCULATION OF RADIATION PROPERTIES AT A GIVEN
  ! WAVENUMBER: GC, SPECIES_PRESSURE_ATM, OPTICAL_THICKNESS
  
  IF(ALLOCATED(CURTIS_XSTAR))         DEALLOCATE(CURTIS_XSTAR)
  ALLOCATE(CURTIS_XSTAR(1:N_RADCAL_SPECIES,0:NPT));      CURTIS_XSTAR      = 0.0_EB
  
  IF(ALLOCATED(CURTIS_ACOLLISION))    DEALLOCATE(CURTIS_ACOLLISION)
  ALLOCATE(CURTIS_ACOLLISION(1:N_RADCAL_SPECIES,0:NPT)); CURTIS_ACOLLISION = 0.0_EB
  
  IF(ALLOCATED(CURTIS_ADOPPLER))      DEALLOCATE(CURTIS_ADOPPLER)
  ALLOCATE(CURTIS_ADOPPLER(1:N_RADCAL_SPECIES,0:NPT));   CURTIS_ADOPPLER   = 0.0_EB
  
  IF(ALLOCATED(OPTICAL_THICKNESS))    DEALLOCATE(OPTICAL_THICKNESS)
  ALLOCATE(OPTICAL_THICKNESS(1:N_RADCAL_SPECIES,1:NPT)); OPTICAL_THICKNESS = 0.0_EB
  
  IF(ALLOCATED(OPTICAL_DEPTH))         DEALLOCATE(OPTICAL_DEPTH)
  ALLOCATE(OPTICAL_DEPTH(1:N_RADCAL_SPECIES,0:NPT));      OPTICAL_DEPTH    = 0.0_EB
  
  IF(ALLOCATED(GC))                   DEALLOCATE(GC)
  ALLOCATE(GC(1:N_RADCAL_SPECIES,1:NPT));                 GC               = 0.0_EB
  
  IF(ALLOCATED(PATH_LENGTH_CM))       DEALLOCATE(PATH_LENGTH_CM)
  ALLOCATE(PATH_LENGTH_CM(1:NPT))
  
  ! TO COMPUTE THE EFFECTIVE ABSORPTION COEFFICIENT
  IF (ALLOCATED(BB_WALL)) DEALLOCATE(BB_WALL)
  ALLOCATE(BB_WALL(NOM)); BB_WALL = 0.0_EB
  
  IF (ALLOCATED(BB_GAS)) DEALLOCATE(BB_GAS)
  ALLOCATE(BB_GAS(NOM));  BB_GAS  = 0.0_EB
  
  ! CONVERT PATH LENGTH FROM METERS TO CM
  PATH_LENGTH_CM = M_TO_CM*SEGMENT_LENGTH_M
  
  ! COMPUTE RATIO STANDARD TEMPERATURE OVER CONSIDERED TEMPERATURE
  IF(ALLOCATED(AZOTEMP))              DEALLOCATE(AZOTEMP)
  ALLOCATE(AZOTEMP(1:NPT))
  AZOTEMP = 273._EB/TEMP_GAS
  
  !------------------------------------------------------------------------------
  ! COMPUTE THE SEGMENTS PROPERTIES THAT ARE INDEPENDENT OF THE FREQUENCY
  ! STORE THEM IN ARRAYS WITH DIMENSIONS (NPT,N_RADCAL_SPECIES)
  
  INIT_PATH: DO I_PATH = 1, NPT  ! LOOP OVER ELEMENTS OF THE PATH LENGTH.
  
  !------------------------------------------------------------------------------
  ! TEST. IF PATH_LENGTH_CM SET TO ZERO (BAD SEGMENT), CYCLE
  ! ELSE, PROCEED WITH CALCULATION
  
     IF (PATH_LENGTH_CM(I_PATH)<=TWO_EPSILON_EB) CYCLE
  
  !------------------------------------------------------------------------------
  ! COMPUTE SPECIES OPTICAL THICKNESS AND COLLISION BROADENING
  
     OPTICAL_THICKNESS(:,I_PATH) = AZOTEMP(I_PATH)*PATH_LENGTH_CM(I_PATH)*PARTIAL_PRESSURES_ATM(:,I_PATH)
  
     GC(:,I_PATH) = COLLISION_BROADENING( PARTIAL_PRESSURES_ATM(:,I_PATH), TOTAL_PRESSURE_ATM(I_PATH), AZOTEMP(I_PATH) )
  
  ENDDO INIT_PATH
  
  ! COMPUTE TOTAL LENGTH OF THE LINE OF SIGHT
  TOTAL_LENGTH_CM = SUM(PATH_LENGTH_CM)
  
  ! COMPUTE LENGTH WEIGHTED AVERAGE TEMP4 AND AVG_TEMP ALONG LINE OF SIGHT
  
  TEMP4    = SUM(TEMP_GAS**4*PATH_LENGTH_CM)/TOTAL_LENGTH_CM
  AVG_TEMP = SUM(TEMP_GAS*PATH_LENGTH_CM)/TOTAL_LENGTH_CM
  
  !------------------------------------------------------------------------------
  ! LOOP SPECTRUM COMPUTES EACH SPECTRAL CONTRIBUTION,
  ! LOOP OVER EACH WAVE NUMBER INTERVALS
  ! THIS LOOP CAN BE PARALLIZED WITH OPENMP
  
  !!                   BELOW ARE OPENMP INSTRUCTIONS
  
  LSPECTRUM: DO I_WAVENUMB = 1, NOM
     CURTIS_XSTAR      = 0.0_EB
     CURTIS_ADOPPLER   = 0.0_EB
     OPTICAL_DEPTH     = 0.0_EB
     CURTIS_ACOLLISION = 0.0_EB
  !------------------------------------------------------------------------------
  ! LOOP OVER THE DIFFERENT SEGMENTS OF THE LINE OF SIGHT
  
     PATH: DO I_PATH = 1,NPT  ! LOOP OVER ELEMENTS OF THE PATH LENGTH.
  ! EVALUATE THE COMBINED SPECTRAL TRANSMISSIVITY AND RADIANCE
  ! ARGUMENTS OUT: X (VECTOR)
        CALL SPECIES_OPTICAL_DEPTH(PATH_LENGTH_CM(I_PATH), PARTIAL_PRESSURES_ATM(:,I_PATH),   &
                                   TOTAL_PRESSURE_ATM(I_PATH), GC(:,I_PATH), TEMP_GAS(I_PATH),&
                                   WAVE_NUMBER(I_WAVENUMB), OPTICAL_THICKNESS(:,I_PATH),      &
                                   CURTIS_XSTAR(:,I_PATH-1:I_PATH),                           &
                                   CURTIS_ACOLLISION(:,I_PATH-1:I_PATH),                      &
                                   CURTIS_ADOPPLER(:,I_PATH-1:I_PATH),                        &
                                   OPTICAL_DEPTH(:,I_PATH-1:I_PATH))
        XTOT = SUM(OPTICAL_DEPTH(:,I_PATH))
        TTAU(I_PATH,I_WAVENUMB) = EXP(-XTOT)
     ENDDO PATH
  
     ! AB : WEAKLINE LIMITS OPTICAL DEPTH PER UNIT LENGTH, UNITS IN CM-1
     IF (TOTAL_LENGTH_CM.GT.0.0_EB) THEN
        AB(I_WAVENUMB) = SUM(CURTIS_XSTAR(:,NPT))/TOTAL_LENGTH_CM
     ELSE
        AB(I_WAVENUMB) = 0.0_EB
     ENDIF
  
  ! INTEGRATE THE INCIDENT RADIANCE OVER THE WHOLE LINE OF SIGHT
     INCIDENT_RADIANCE(I_WAVENUMB) = 0.0_EB
  
     DO I_PATH = 1, NPT
        ! RECALL: TTAU(0,I_WAVENUMB) = 1.0_EB
  
        INCIDENT_RADIANCE(I_WAVENUMB) = INCIDENT_RADIANCE(I_WAVENUMB) +                       &
                                      (TTAU(I_PATH-1,I_WAVENUMB)-TTAU(I_PATH,I_WAVENUMB))*    &
                                      PLANCK_WN(TEMP_GAS(I_PATH),WAVE_NUMBER(I_WAVENUMB))
     ENDDO
  
     INCIDENT_RADIANCE(I_WAVENUMB) = INCIDENT_RADIANCE(I_WAVENUMB) +  &
                                   TTAU(NPT,I_WAVENUMB)*PLANCK_WN(TWALL,WAVE_NUMBER(I_WAVENUMB))
  
     BB_GAS(I_WAVENUMB)  = PLANCK_WN(AVG_TEMP,WAVE_NUMBER(I_WAVENUMB))
     BB_WALL(I_WAVENUMB) = PLANCK_WN(TWALL,   WAVE_NUMBER(I_WAVENUMB))
  ENDDO LSPECTRUM
  
  !------------------------------------------------------------------------------
  ! INTEGRATE THE RADIANCE OVER THE SPECTRUM
  
  RADIANCE    = INTEGRATION(WAVE_NUMBER,INCIDENT_RADIANCE)
  INT_BB_GAS  = INTEGRATION(WAVE_NUMBER,BB_GAS)
  INT_BB_WALL = INTEGRATION(WAVE_NUMBER,BB_WALL)
  
  !------------------------------------------------------------------------------
  ! SOOT CONTRIBUTION
  ! DETERMINE SOOT RADIANCE FOR SHORT (BETWEEN OMMAX AND 25000) AND
  ! LONG WAVELENGTHS (BETWEEN 5 AND OMMIN)
  ! THIS CORRESPONDS TO THE RANGES BETWEEN 400 NM (VISIBLE) TO OMMAX (USER DEPENDENT)
  ! AND OMMIN (USER DEPENDENT) AND 2000 MICRONS
  
  RSL  = 0._EB
  RSS  = 0._EB
  
  KMAX = INT(OMMIN)
  KMIN = INT(OMMAX)
  
  !------------------------------------------------------------------------------
  LONG: DO I_WAVENUMB = 5, KMAX, 5 ! LOOP OVER LONG WAVELENGTHS
  
     OMEGA       = REAL(I_WAVENUMB,EB)
     WAVE_LENGTH = 10000._EB/OMEGA
     DAMBDA      = 10000._EB/(OMEGA-2.5_EB)-10000._EB/(OMEGA+2.5_EB)
  
  ! INITIALIZE TAUL: TRANSMISSIVITY FOR LONG WAVELENGTHS
  
     IF (ALLOCATED(TAUL)) DEALLOCATE(TAUL)
     ALLOCATE(TAUL(0:NPT));     TAUL       = 1.0_EB
  
     IF (ALLOCATED(X_PARTICLE)) DEALLOCATE(X_PARTICLE)
     ALLOCATE(X_PARTICLE(NPT)); X_PARTICLE = 0.0_EB
  
     ! LOOP OVER THE LINE OF SIGHT ELEMENTS
     DO I_PATH = 1, NPT
  
        CALL POD(OMEGA,PARTIAL_PRESSURES_ATM(I_FV,I_PATH),PATH_LENGTH_CM(I_PATH), X_PARTICLE(I_PATH),TEMP_GAS(I_PATH))
  
        TAUL(I_PATH) = EXP(-SUM(X_PARTICLE(1:I_PATH)))
        RSL = RSL + (TAUL(I_PATH-1)-TAUL(I_PATH))*PLANCK(TEMP_GAS(I_PATH),WAVE_LENGTH)*DAMBDA
  
     ENDDO
  
  ! ADD CONTRIBUTION OF THE INCIDENT RADIANCE FROM THE WALL
     RSL = RSL + TAUL(NPT)*PLANCK(TWALL,WAVE_LENGTH)*DAMBDA
  
  ! CALCULATE CONTRIBUTION TO INT_BB_WALL & INT_BB_GAS
     INT_BB_WALL = INT_BB_WALL + PLANCK(TWALL,    WAVE_LENGTH)*DAMBDA
     INT_BB_GAS  = INT_BB_GAS  + PLANCK(AVG_TEMP, WAVE_LENGTH)*DAMBDA
  
  ENDDO LONG
  
  !------------------------------------------------------------------------------
  SHORT: DO I_WAVENUMB = KMIN, 25000, 100 ! LOOP OVER SHORT WAVELENGTHS
  
     OMEGA       = REAL(I_WAVENUMB,EB)
     WAVE_LENGTH = 10000._EB/OMEGA
     DAMBDA      = 10000._EB/(OMEGA-50._EB)-10000._EB/(OMEGA+50._EB)
  
  ! INITIALIZE TAUS: TRANSMISSIVITY FOR SHORT WAVELENGTHS
  
     IF (ALLOCATED(TAUS)) DEALLOCATE(TAUS)
     ALLOCATE(TAUS(0:NPT));     TAUS       = 1.0_EB
  
     IF (ALLOCATED(X_PARTICLE)) DEALLOCATE(X_PARTICLE)
     ALLOCATE(X_PARTICLE(NPT)); X_PARTICLE = 0.0_EB
  
     ! LOOP OVER THE LINE OF SIGHT ELEMENTS
  
     DO I_PATH = 1, NPT
  
        CALL POD(OMEGA,PARTIAL_PRESSURES_ATM(I_FV,I_PATH),PATH_LENGTH_CM(I_PATH), X_PARTICLE(I_PATH),TEMP_GAS(I_PATH))
  
        TAUS(I_PATH) = EXP(-SUM(X_PARTICLE(1:I_PATH)))
        RSS = RSS + (TAUS(I_PATH-1)-TAUS(I_PATH))*PLANCK(TEMP_GAS(I_PATH),WAVE_LENGTH)*DAMBDA
  
     ENDDO
  
  ! ADD CONTRIBUTION OF THE INCIDENT RADIANCE FROM THE WALL
     RSS = RSS + TAUS(NPT)*PLANCK(TWALL,WAVE_LENGTH)*DAMBDA
  
  ! CALCULATE CONTRIBUTION TO INT_BB_WALL & INT_BB_GAS
     INT_BB_WALL = INT_BB_WALL + PLANCK(TWALL,    WAVE_LENGTH)*DAMBDA
     INT_BB_GAS  = INT_BB_GAS  + PLANCK(AVG_TEMP, WAVE_LENGTH)*DAMBDA
  
  ENDDO SHORT
  
  ! END LOOP OVER SPECIES
  !------------------------------------------------------------------------------
  
  ! ADD THE CONTRIBUTION OF SOOT OVER LARGER WAVE LENGTH DOMAIN
  RADIANCE = RADIANCE + RSS + RSL
  
  !------------------------------------------------------------------------------
  ! DEALLOCATE SOME VARIABLES (GC,X,OPTICAL_THICKNESS)
  
  IF(ALLOCATED(BB_GAS))            DEALLOCATE(BB_GAS)
  IF(ALLOCATED(BB_WALL))           DEALLOCATE(BB_WALL)
  IF(ALLOCATED(GC))                DEALLOCATE(GC)
  IF(ALLOCATED(OPTICAL_DEPTH))     DEALLOCATE(OPTICAL_DEPTH)
  IF(ALLOCATED(OPTICAL_THICKNESS)) DEALLOCATE(OPTICAL_THICKNESS)
  IF(ALLOCATED(CURTIS_XSTAR))      DEALLOCATE(CURTIS_XSTAR)
  IF(ALLOCATED(CURTIS_ACOLLISION)) DEALLOCATE(CURTIS_ACOLLISION)
  IF(ALLOCATED(CURTIS_ADOPPLER))   DEALLOCATE(CURTIS_ADOPPLER)
  IF(ALLOCATED(X_PARTICLE))        DEALLOCATE(X_PARTICLE)
  IF(ALLOCATED(TAUS))              DEALLOCATE(TAUS)
  IF(ALLOCATED(TAUL))              DEALLOCATE(TAUL)
  !------------------------------------------------------------------------------
  
  IF (TOTAL_LENGTH_CM > 0.0_EB) THEN
  
     IF(ABS(TWALL-AVG_TEMP)<=SPACING(TWALL)) THEN
        LTERM = 1.0_EB
     ELSE
        LTERM = MIN(1.0_EB,MAX(1E-30_EB,(RADIANCE-INT_BB_GAS)/(INT_BB_WALL-INT_BB_GAS)))
     ENDIF
     EFFECTIVE_ABSORPTION = -1._EB/TOTAL_LENGTH_CM*LOG(LTERM)
  ELSE
     EFFECTIVE_ABSORPTION = 0.0_EB
  ENDIF
  
  !------------------------------------------------------------------------------
  ! COMPUTES THE MEAN ABSORPTION COEFFICIENTS OVER THE WHOLE PATHLENGTH
  ! INTEGRATE PLANCK_MEAN_ABSORPTION*PLANCK OVER LAMBDA
  
  IF (ALLOCATED(AB_PLANCK)) DEALLOCATE(AB_PLANCK)
  ALLOCATE(AB_PLANCK(NOM))
  
  DO I_WAVENUMB = 1, NOM
     AB_PLANCK(I_WAVENUMB) = AB(I_WAVENUMB)*PLANCK(AVG_TEMP,LAMBDA(I_WAVENUMB))
  ENDDO
  
  PLANCK_MEAN_ABSORPTION = INTEGRATION(LAMBDA,AB_PLANCK)
  
  ! DIVIDE BY SIGMA*PI*TEMP**4 TO GET FINAL COEFFICIENT PLANCK_MEAN_ABSORPTION
  
  IF (TEMP4 > TWO_EPSILON_EB) THEN
     PLANCK_MEAN_ABSORPTION = PLANCK_MEAN_ABSORPTION/(RPI_SIGMA*TEMP4)
  ELSE
     PLANCK_MEAN_ABSORPTION = 0.0_EB
  ENDIF
  
  !------------------------------------------------------------------------------
  ! COMPUTES THE TOTAL TRANSMISSIVITY OVER THE WHOLE PATHLENGTH. IT IS CALCULATED
  ! ONLY IF TWALL IS STRICTLY GREATER THAN 0
  ! INTEGRATE TAU*PLANCK OVER LAMBDA
  
  IF (TWALL**4 > TWO_EPSILON_EB) THEN
  
     IF (ALLOCATED(AB_TAU)) DEALLOCATE(AB_TAU)
     ALLOCATE(AB_TAU(NOM))
  
     IF (ALLOCATED(BB_SPECT)) DEALLOCATE(BB_SPECT)
     ALLOCATE(BB_SPECT(NOM))
  
  
     DO I_WAVENUMB = 1, NOM
        BB_SPECT(I_WAVENUMB) = PLANCK_WN(TWALL,WAVE_NUMBER(I_WAVENUMB))
        AB_TAU(I_WAVENUMB)   = TTAU(NPT,I_WAVENUMB)*BB_SPECT(I_WAVENUMB)
     ENDDO
  
     TOTAL_TRANSMISSIVITY = INTEGRATION(WAVE_NUMBER,AB_TAU)/INTEGRATION(WAVE_NUMBER,BB_SPECT)
  
  ENDIF
  
  !------------------------------------------------------------------------------
  ! DEALLOCATE AB_PLANCK & AB_TAU
  IF (ALLOCATED(AB_PLANCK)) DEALLOCATE(AB_PLANCK)
  IF (ALLOCATED(AB_TAU))    DEALLOCATE(AB_TAU)
  IF (ALLOCATED(BB_SPECT))  DEALLOCATE(BB_SPECT)
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE SUB_RADCAL
  
  !> \brief This function computes the collision broadening half-width at half-height
  !>
  !> \details Caculation procedes in accordance with the SLG Model, Table 5-18,  in NASA SP-3080.
  !> Based on Eq 5-34 in NASA SP-3080.
  !>
  !> Return a vector containing the collision broadening half-width at half-height
  !> including foreign and self-broadening collision coefficients (1/cm)
  !> \param SPECIES_PRESSURE_ATM Species partial pressures (atm)
  !> \param PTOT Total pressure (atm)
  !> \param AZOTEMP 273/local temperature
  
  FUNCTION COLLISION_BROADENING(SPECIES_PRESSURE_ATM,PTOT,AZOTEMP) RESULT(GC)
  
  REAL(EB), DIMENSION(:), INTENT(IN) :: SPECIES_PRESSURE_ATM
  REAL(EB), INTENT(IN) :: PTOT
  REAL(EB), INTENT(IN) :: AZOTEMP
  REAL(EB), ALLOCATABLE, DIMENSION(:) :: GC
  
  REAL(EB) :: P_FUEL
  INTEGER, DIMENSION(6) :: I_INDICES
  INTEGER :: I, II, I_FUEL
  
  I_FUEL = I_C2H4
  
  ! POPULATE I_INDICES USED FOR COMPUTATIONS OF GC
  ! [NOTE: THE TOTAL INTENSITY CALCULATED IS THAT WHICH LEAVES INTERVAL J=1.
  ! P(I,J) IS PARTIAL PRESSURE, ATM, OF SPECIES I IN  INTERVAL J.
  ! I=1,2,3,4,5, OR 6 IMPLIES SPECIES IS CO2, H2O, FUEL, CO, O2, OR N2, RESP.]
  
  I_INDICES(1) = I_CO2
  I_INDICES(2) = I_H2O
  I_INDICES(3) = I_FUEL     ! FUEL
  I_INDICES(4) = I_CO
  I_INDICES(5) = I_O2
  I_INDICES(6) = I_N2
  
  ! [NOTE: THE TOTAL INTENSITY CALCULATED IS THAT WHICH LEAVES INTERVAL J=1.
  ! P(I,J) IS PARTIAL PRESSURE, ATM, OF SPECIES I IN  INTERVAL J.
  ! I=1,2,3,4,5, OR 6 IMPLIES SPECIES IS CO2, H2O, CH4, CO, O2, OR N2, RESP.]
  
  IF(ALLOCATED(GC)) DEALLOCATE(GC)
  ALLOCATE(GC(N_RADCAL_SPECIES))
  GC = 0.0_EB
  
  ! COMPUTE FUEL PRESSURE. REMOVE CONTRIBUTION OF NON FUEL SPECIES:
  ! CO2, CO, H2O, O2, N2
  
  P_FUEL = PTOT - (SPECIES_PRESSURE_ATM(I_CO2)+SPECIES_PRESSURE_ATM(I_CO)+      &
                   SPECIES_PRESSURE_ATM(I_H2O)+SPECIES_PRESSURE_ATM(I_N2)+      &
                   SPECIES_PRESSURE_ATM(I_O2))
  
  ! COMPUTE COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGHT, EQ 5-34 NASA REPORT SP-3080
  ! INITIALIZATION
  
  ! CO2(II=1), H2O(II=2), FUEL(II=3), CO(II=4), O2 (II=5), N2 (II=6)
  DO I = 1, 4
  
  ! IF THE SPECIES IS NOT PRESENT, I.E. SPECIES_PRESSURE_ATM(I_INDICES(I))==0.0_EB
  ! THEN SET GC TO ZERO AND CYCLE. ELSE PROCEED WITH CALCULATION
  
     IF (SPECIES_PRESSURE_ATM(I_INDICES(I))==0.0_EB.AND.I/=3) CYCLE
  
  ! INCLUDE NON-RESONANT FOREIGN AND SELF-BROADENING COLLISIONS
     DO II = 1, 6
        IF (I_INDICES(II) == I_FUEL) THEN
           GC(I_INDICES(I)) = GC(I_INDICES(I))+GAMMA(I,II)*P_FUEL*SQRT(AZOTEMP)
        ELSE
           GC(I_INDICES(I)) = GC(I_INDICES(I))+GAMMA(I,II)*SPECIES_PRESSURE_ATM(I_INDICES(II))*SQRT(AZOTEMP)
        ENDIF
     ENDDO
  ! INCLUDE RESONANT SELF-BROADENING COLLISIONS
     IF (I_INDICES(I) /= I_FUEL) THEN
        GC(I_INDICES(I))=GC(I_INDICES(I))+GAMMA(I,7)*SPECIES_PRESSURE_ATM(I_INDICES(I))*AZOTEMP
     ELSE
        GC(I_INDICES(I))=GC(I_INDICES(I))+GAMMA(I,7)*P_FUEL*AZOTEMP
     ENDIF
  ENDDO
  
  ! COMPUTE THE COLLISION BROADENING COEFFICIENT FOR THE FUEL
  
  DO I = 1, N_RADCAL_SPECIES
     IF (I/=I_CO2.AND.I/=I_O2.AND.I/=I_CO.AND.I/=I_H2O.AND.I/=I_N2.AND.I/=I_FV) &
        GC(I) = GC(I_FUEL)
  ENDDO
  
  !------------------------------------------------------------------------------
  END FUNCTION COLLISION_BROADENING
  
  !==============================================================================
  SUBROUTINE SPECIES_OPTICAL_DEPTH(PATH_LENGTH_CM,P_ATM,PTOT,GC,TEMP,OMEGA,          &
                                   OPTICAL_THICKNESS, CURTIS_XSTAR,                  &
                                   CURTIS_ACOLLISION, CURTIS_ADOPPLER,OPTICAL_DEPTH)
  !==============================================================================
  !! THIS SUBROUTINE COMPUTES THE SPECIES OPTICAL_DEPTH FOR ALL THE SPECIES
  !! GIVEN A WAVENUMBER OMEGA AND SPECIES OPTICAL_THICKNESS.
  !! RETURNS THE OPTICAL DEPTH FOR EACH SPECIES USING THE CURTIS GODSON APPROXIMATION
  !
  !
  ! ARGUMENTS IN:
  ! ------------
  ! PATH_LENGTH_CM   : SCALAR, PHYSICAL LENGTH, IN CM
  ! P_ATM            : VECTOR, (NRADCAL_SPECIES) SPECIES PARTIAL PRESSURE, IN ATM
  ! PTOT             : SCALAR, TOTAL PRESSURE, IN ATM
  ! GC               : VECTOR, COLLISION-BROADENED HALF-WIDTH VALUES, IN CM-1
  ! TEMP             : SCALAR, LOCAL TEMPERATURE, IN K
  ! OMEGA            : SCALAR, WAVENUMBER, IN CM-1
  ! OPTICAL_THICKNESS: VECTOR (NRADCAL_SPECIES) ELEMENTS, UNITS IN STP.CM.ATM
  !
  ! ARGUMENTS INOUT:
  !-----------------
  ! VARIBLES USED TO COMPUTE THE CURTIS-GODSON APPROXIMATION PARAMETERS
  ! THE FIRST VALUES (I.E.) (NRADCAL_SPECIES,1) WAS EITHER COMPUTED PREVIOUSLY
  ! OR IS EQUAL TO 0 (FOR THE FIRST POINT)
  !
  ! CURTIS_XSTAR      : ARRAY OF VALUES OF XSTART.     DIMENSION: (NRADCAL_SPECIES,2).
  ! CURTIS_ACOLLISION : ARRAY OF VALUES OF ACOLLISION. DIMENSION: (NRADCAL_SPECIES,2).
  ! CURTIS_ADOPPLER   : ARRAY OF VALUES OF ADOPPLER.   DIMENSION: (NRADCAL_SPECIES,2).
  ! OPTICAL_DEPTH     : ARRAY OF VALUES OF ELEMENTS OPTICAL DEPTH, DIMENSIONLESS
  !                     DIMENSION: (NRADCAL_SPECIES,2).
  !
  !------------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN
  REAL(EB), DIMENSION(:), INTENT(IN) :: P_ATM, OPTICAL_THICKNESS, GC
  REAL(EB), INTENT(IN) :: PTOT, TEMP, OMEGA, PATH_LENGTH_CM
  
  ! VARIABLES PASSED INOUT
  REAL(EB), DIMENSION(:,:), INTENT(INOUT) :: CURTIS_XSTAR, CURTIS_ACOLLISION,   &
                                            CURTIS_ADOPPLER, OPTICAL_DEPTH
  
  ! LOCAL
  REAL(EB) :: X_DOPPLER, X_COLLISION, XSTAR
  REAL(EB) :: SDWEAK,    A_COLLISION, A_DOPPLER
  
  INTEGER  :: I_MODEL ! MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  INTEGER  :: I
  
  ! INITIALIZE X_DOPPLER, X_COLLISION
  X_DOPPLER   = 0.0_EB
  X_COLLISION = 0.0_EB
  
  ! INITIALIZE CURTIS_XSTAR(:,2), CURTIS_ACOLLISION(:,2),
  !            CURTIS_ADOPPLER(:,2), OPTICAL_DEPTH(:,2)
  ! THESE VALUES WILL BE UPDATED IF SDWEAK OF A GIVEN SPECIES IS GREATER THAN TINY_EB
  
  CURTIS_XSTAR(:,2)      = CURTIS_XSTAR(:,1)
  CURTIS_ACOLLISION(:,2) = CURTIS_ACOLLISION(:,1)
  CURTIS_ADOPPLER(:,2)   = CURTIS_ADOPPLER(:,1)
  OPTICAL_DEPTH(:,2)     = OPTICAL_DEPTH(:,1)
  
  ! LOOP SPECIES COMPUTES THE CONTRIBUTION OF EACH SPECIES TO TAU
  
  LSPECIES: DO I = 1, N_RADCAL_SPECIES
     IF (P_ATM(I) <= TWO_EPSILON_EB) CYCLE LSPECIES
  
     I_MODEL = 1 ! ENFORCE GOODY MODEL WHEN NOT SPECIFIED
  
     SDWEAK      = TINY_EB  ! AVERAGE SPECTRAL ABSORPTION  COEFFICIENT. UNITS: (ATM^-1.CM^-1)
     A_COLLISION = 1.0_EB  ! FINE STRUCTURE PARAMETER. DIMENSIONLESS
     A_DOPPLER   = 1.0_EB
  
     ! IF THE SPECIES IS PRESENT IN THIS SEGMENT, GET SDWEAK, A_COLLISION, A_DOPPLER.
     ! OTHERWISE USE 0.0_EB, 1.0_EB, 1.0_EB
  
     SELECT CASE (I)
        CASE (I_CO2)
           CALL CO2(    OMEGA,TEMP,GC(I_CO2), SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_H2O)
           CALL H2O(    OMEGA,TEMP,GC(I_H2O), SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_CO)
           CALL CO(     OMEGA,TEMP,GC(I_CO),  SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_CH4_OLD)
           CALL CH4_OLD(OMEGA,TEMP,P_ATM(I_CH4_OLD),  PTOT,GC(I_CH4_OLD),SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_CH4)
           CALL CH4(    OMEGA,TEMP,P_ATM(I_CH4),  PTOT,GC(I_CH4),SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C3H8)
           CALL C3H8(   OMEGA,TEMP,P_ATM(I_C3H8), PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C7H16)
           CALL C7H16(  OMEGA,TEMP,P_ATM(I_C7H16),PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_CH3OH)
           CALL CH3OH(  OMEGA,TEMP,P_ATM(I_CH3OH),PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C7H8)
           CALL C7H8(   OMEGA,TEMP,P_ATM(I_C7H8), PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C3H6)
           CALL C3H6(   OMEGA,TEMP,P_ATM(I_C3H6), PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_MMA)
           CALL C5H8O2( OMEGA,TEMP,P_ATM(I_MMA),  PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C2H6)
           CALL C2H6(   OMEGA,TEMP,P_ATM(I_C2H6), PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_C2H4)
           CALL C2H4(   OMEGA,TEMP,P_ATM(I_C2H4), PTOT,SDWEAK,A_COLLISION,A_DOPPLER,I_MODEL)
        CASE (I_FV)
        CASE DEFAULT
           CYCLE LSPECIES
        END SELECT
  
     ! IF (SDWEAK <= TINY_EB) THEN THE SPECIES DOES NOT PARTICIPATE ON THIS SEGMENTS. SKIP THE CALCULATION OF
     ! OPTICAL_DEPTH(:,2). IF NOT, PROCEED WITH CALCULATION OF X_COLLISION, X_DOPPLER, ETC...
  
     IF (I/=I_FV) THEN
  
        IF(SDWEAK <= TINY_EB) CYCLE LSPECIES
  
        XSTAR             = SDWEAK*OPTICAL_THICKNESS(I) ! OPTICAL DEPTH FOR THE WEAK LINE LIMIT.  SP-3080 EQ. 5-27
        CURTIS_XSTAR(I,2) = CURTIS_XSTAR(I,1) + XSTAR
        IF (CURTIS_XSTAR(I,2)>=TINY_EB) THEN
        ! COLLISION BROADENING
           CURTIS_ACOLLISION(I,2) = 1.0_EB/CURTIS_XSTAR(I,2)*(CURTIS_ACOLLISION(I,1)*CURTIS_XSTAR(I,1)+ &
           A_COLLISION*XSTAR)
        ! DOPPLER BROADENING
           CURTIS_ADOPPLER(I,2) = 1.0_EB/CURTIS_XSTAR(I,2)*(CURTIS_ADOPPLER(I,1)*CURTIS_XSTAR(I,1)+ &
           A_DOPPLER*XSTAR)
        ELSE
           CURTIS_ACOLLISION(I,2) = 1.0_EB
           CURTIS_ADOPPLER(I,2)   = 1.0_EB
        ENDIF
  
        IF (CURTIS_XSTAR(I,2) >= 1.E-20_EB .AND. CURTIS_ACOLLISION(I,2)>0._EB) THEN
  !------------------------------------------------------------------------------
  ! COMPUTE THE OPTICAL DEPTH FOR THE ITH SPECIES USING RANDOM BAND MODEL
  ! COMPOSED OF LINES OF DOPPLER-LORENTZ SHAPE WITH:
  ! RANDOM DISTRIBUTION OF EITHER EQUAL STRENGTH LINES FOR DOPPLER OR DECAYING
  ! USE APPROPRIATE MODEL FOR LORENTZ LINE (ELSASSER,GOODY,MALKMUS)
  ! COMPUTE OPTICAL DEPTH FOR PURE DOPPLER CURVE OF GROWTH
           X_DOPPLER = GROWTH_DOPPLER(CURTIS_XSTAR(I,2),CURTIS_ADOPPLER(I,2),I_MODEL)
  
  ! LORENTZ OPTICAL DEPTH
  ! COMPUTE OPTICAL DEPTH FOR PURE COLLISION CURVE OF GROWTH
           SELECT CASE (I_MODEL)
              CASE(1)  ! GOODY MODEL
                 X_COLLISION = GOODY(CURTIS_XSTAR(I,2),CURTIS_ACOLLISION(I,2))
              CASE(2)  ! MALKMUS MODEL
                 X_COLLISION = MALKMUS(CURTIS_XSTAR(I,2),CURTIS_ACOLLISION(I,2))
              CASE(3)  ! ELSASSER MODEL
                 X_COLLISION = ELSASSER(CURTIS_XSTAR(I,2),CURTIS_ACOLLISION(I,2))
              CASE DEFAULT
                 X_COLLISION = GOODY(CURTIS_XSTAR(I,2),CURTIS_ACOLLISION(I,2))
           END SELECT
  
        ! COMPUTE OPTICAL DEPTH
           OPTICAL_DEPTH(I,2) = COMBINED_LINES(X_COLLISION, X_DOPPLER, CURTIS_XSTAR(I,2))
  
        ELSE ! XSTAR < 1.E-20_EB VERY WEAK LINE
           OPTICAL_DEPTH(I,2) = CURTIS_XSTAR(I,2)
        ENDIF ! CONDITION (XSTAR >= 1.E-20_EB)
  
     ! DETERMINE OPTICAL DEPTH OF SOOT
     ELSE ! TREATMENT FOR SOOT VOLUME FRACTION
        CALL POD(OMEGA, P_ATM(I),PATH_LENGTH_CM,XSTAR,TEMP)
        CURTIS_XSTAR(I,2)  = CURTIS_XSTAR(I,1) + XSTAR
        OPTICAL_DEPTH(I,2) = CURTIS_XSTAR(I,2)
  
     ENDIF
  
  END DO LSPECIES
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE SPECIES_OPTICAL_DEPTH
  
  !==============================================================================
  ELEMENTAL FUNCTION GROWTH_DOPPLER(XSTAR,A_DOPPLER,I_MODEL) RESULT(X_DOPPLER)
  !==============================================================================
  !! THIS FUNCTION COMPUTES THE DOPPLER CURVE OF GROWTH.
  !! TWO CASES
  !! 1) EQUALLY INTENSE, RANDOMLY SPACED DOPPLER LINE (I_MODEL =1 OR 3)
  !! 2) GEOMETRICALLY DECAYING STRENGTH, RANDOMLY SPACED DOPPLER LINE (I_MODEL=2)
  !
  ! VARIABLES IN:
  ! XSTAR: OPTICAL PATHLENGTH * MEAN ABSORPTION COEFFICIENT
  ! A_DOPPLER: DOPPLER FINE STRUCTURE PARAMETER
  ! I_MODEL: MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  !
  ! VARIABLE OUT
  ! X_DOPPLER
  
  ! VARIABLES IN:
  REAL(EB), INTENT(IN) :: XSTAR
  REAL(EB), INTENT(IN) :: A_DOPPLER
  INTEGER,  INTENT(IN) :: I_MODEL
  
  ! VARIABLE OUT
  REAL(EB) :: X_DOPPLER
  
  ! SOURCE: ! SP-3080, CHAP 3.2.5 E AND F. SEE PAGE 105.
  
  SELECT CASE(I_MODEL)
  CASE(1) ! GOODY MODEL: EQUALLY INTENSE, RANDOMLY SPACED DOPPLER LINE
        X_DOPPLER = 1.7_EB*A_DOPPLER*SQRT(LOG(1._EB+(0.58824_EB*XSTAR/A_DOPPLER)**2))
  CASE(2) ! MALKMUS: GEOMETRICALLY DECAYING STRENGTH, RANDOMLY SPACED DOPPLER LINE
        X_DOPPLER = 0.937_EB*A_DOPPLER*(LOG(1.0_EB+(1.07_EB*XSTAR/A_DOPPLER)**(0.6666_EB)))* &
                                   SQRT(LOG(1.0_EB+(1.07_EB*XSTAR/A_DOPPLER)**(0.6666_EB)))
  CASE(3)
        X_DOPPLER = 1.7_EB*A_DOPPLER*SQRT(LOG(1._EB+(0.58824_EB*XSTAR/A_DOPPLER)**2))
  CASE DEFAULT
        X_DOPPLER = 1.7_EB*A_DOPPLER*SQRT(LOG(1._EB+(0.58824_EB*XSTAR/A_DOPPLER)**2))
  END SELECT
  !------------------------------------------------------------------------------
  END FUNCTION GROWTH_DOPPLER
  
  !==============================================================================
  ELEMENTAL FUNCTION COMBINED_LINES(X_COLLISION, X_DOPPLER, XSTAR) RESULT(OPTICAL_DEPTH)
  !==============================================================================
  !! COMPUTE THE COMBINED COLLISION AND DOPPLER OPTICAL DEPTHS AND
  ! THE OPTICAL DEPTH BASED ON EXPRESSION GIVEN IN SP-3080 EQ 5-26 & EQ 5-25 (P220)
  !
  ! VARIABLES IN:
  ! X_COLLISION : LORENZ CURVE OF GROWTH
  ! X_DOPPLER: DOPPLER CURVE OF GROWTH
  ! XSTAR: OPTICAL PATHLENGTH * MEAN ABSORPTION COEFFICIENT
  !
  ! VARIABLE OUT
  ! OPTICAL_DEPTH
  
  ! VARIABLES PASSED IN
  REAL(EB), INTENT(IN) :: X_COLLISION
  REAL(EB), INTENT(IN) :: X_DOPPLER
  REAL(EB), INTENT(IN) :: XSTAR
  
  ! VARIABLE PASSED OUTPUT
  REAL(EB) :: OPTICAL_DEPTH
  
  ! LOCAL VARIABLES
  REAL(EB) :: Y_DOPPLER, Y_COLLISION, Y_COMBINED
  
  ! COMPUTE THE COMBINED COLLISION AND DOPPLER OPTICAL DEPTHS Y_COMBINED
  
  Y_DOPPLER   = MAX(1._EB-(X_DOPPLER/XSTAR)**2,TWO_EPSILON_EB)
  Y_COLLISION = MAX(1._EB-(X_COLLISION/XSTAR)**2,TWO_EPSILON_EB)
  ! SP-3080 EQ. 5-26
  Y_COMBINED = MAX(1._EB/Y_COLLISION**2+1._EB/Y_DOPPLER**2-1._EB,1._EB)
  ! FINALLY COMPUTE OPTICAL DEPTH
  ! SP-3080 EQ. 5-25
  OPTICAL_DEPTH = XSTAR*SQRT(1._EB-(Y_COMBINED**(-0.5_EB)))
  
  !------------------------------------------------------------------------------
  END FUNCTION COMBINED_LINES
  
  
  !==============================================================================
  ELEMENTAL FUNCTION GOODY(XSTAR,A_COLLISION) RESULT(X_GOODY)
  !==============================================================================
  !! FUNCTION COMPUTES THE EQUIVALENT LINE WIDTH OVER THE AVERAGE LINE SPACING
  !! USING THE GOODY STATISTICAL MODEL
  !
  ! VARIABLES IN:
  ! XSTAR       : OPTICAL PATHLENGTH * MEAN ABSORPTION COEFFICIENT
  ! A_COLLISION : FINE STRUCTURE PARAMETER
  !
  ! RETURNS X_GOODY
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  REAL(EB), INTENT(IN) :: XSTAR
  REAL(EB), INTENT(IN) :: A_COLLISION
  
  REAL(EB)  :: X_GOODY
  
  IF (XSTAR<1.0E-15_EB) THEN ! WEAK LINE LIMIT
  X_GOODY = XSTAR
  ELSEIF(XSTAR>1.0E+5_EB) THEN ! STRONG LINE LIMIT
  X_GOODY = SQRT(4.0_EB*XSTAR*A_COLLISION)
  ELSE                        ! FORMULATION TO AVOID DIVISION BY ZERO
  X_GOODY = SQRT(A_COLLISION)*XSTAR/SQRT(A_COLLISION+0.25_EB*XSTAR)
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END FUNCTION GOODY
  
  !==============================================================================
  ELEMENTAL FUNCTION MALKMUS(XSTAR,A_COLLISION) RESULT(X_MALKMUS)
  !==============================================================================
  !
  !! FUNCTION COMPUTES THE EQUIVALENT LINE WIDTH OVER THE AVERAGE LINE SPACING
  !! USING THE MALKMUS STATISTICAL MODEL
  !
  ! VARIABLES IN:
  ! XSTAR       : OPTICAL PATHLENGTH * MEAN ABSORPTION COEFFICIENT
  ! A_COLLISION : FINE STRUCTURE PARAMETER
  !
  ! RETURNS X_MALKMUS (OPTICAL DEPTH FOR A PURE COLLISION CURVE)
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN
  REAL(EB), INTENT(IN) :: XSTAR
  REAL(EB), INTENT(IN) :: A_COLLISION
  
  REAL(EB)  :: X_MALKMUS
  
  IF    (XSTAR < 1.0E-15_EB) THEN ! WEAK LINE LIMIT
  X_MALKMUS = XSTAR
  ELSEIF(XSTAR > 1.0E+5_EB ) THEN ! STRONG LINE LIMIT
  X_MALKMUS = SQRT(4.0_EB*XSTAR*A_COLLISION)
  ELSE             ! FORMULATION TO AVOID DIVISION BY A_COLLISION IF EQUAL TO ZERO
  X_MALKMUS = SQRT(4.0_EB*A_COLLISION**2+4.0_EB*A_COLLISION*XSTAR)-2.0_EB*A_COLLISION
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END FUNCTION MALKMUS
  
  !==============================================================================
  FUNCTION ELSASSER(XSTAR,A_COLLISION) RESULT(X_ELSASSER)
  !==============================================================================
  !! FUNCTION COMPUTES THE EQUIVALENT LINE WIDTH OVER THE AVERAGE LINE SPACING
  !! USING THE ELSASSER STATISTICAL MODEL
  !
  ! VARIABLES IN:
  ! XSTAR       : OPTICAL PATHLENGTH * MEAN ABSORPTION COEFFICIENT
  ! A_COLLISION : FINE STRUCTURE PARAMETER
  !
  ! RETURNS X_ELSASSER
  !------------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN
  REAL(EB), INTENT(IN) :: XSTAR
  REAL(EB), INTENT(IN) :: A_COLLISION
  
  ! VARIABLES PASSED OUT
  REAL(EB)  :: X_ELSASSER
  
  ! LOCAL VARIABLES
  
  REAL(EB) :: X_COLLISION
  
  ! THE FOLLOWING COMPUTES THE OPTICAL DEPTH, X_COLLISION, FOR ANY SPECIES REPRESENTED
  ! BY THE ELSASSER MODEL USING THE GODSON EQUATION AND AN APPROXIMATION TO THE LADENBERG-REICHE
  ! FUNCTION AS RECOMMENDED BY BROSMER AND TIEN (JQSRT 33,P 521), EQ. 2, PAGE 523
  
  X_COLLISION = SQRT(4.0_EB*A_COLLISION)*XSTAR/SQRT(16.0_EB/PI*A_COLLISION+XSTAR)
  
  X_ELSASSER  = -LOG(1.0_EB-ERF(X_COLLISION)+TWO_EPSILON_EB)
  
  !------------------------------------------------------------------------------
  RETURN
  END FUNCTION ELSASSER
  
  !==============================================================================
  PURE FUNCTION PARTITION_FUNCTION(TRANSITION_WN,DEGENERACY,TEMP)
  !==============================================================================
  !! THIS FUNCTION CALCULATE THE PARTITION_FUNCTION OF AN HARMONIC
  !! QUANTUM OSCILLATOR KNOWING THE DIFFERENT FREQUENCIES AND DEGENERACIES
  !------------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLE PASSED IN
  REAL(EB), DIMENSION(:), INTENT(IN) :: TRANSITION_WN ! WAVENUMBER ASSOCIATED WITH
                                                     ! A VIBRATION MODE
  
  REAL(EB), DIMENSION(:), INTENT(IN) :: DEGENERACY  ! DENEGERACY OF ENERGY LEVEL
                                                  ! ASSOCIATED WITH A VIBRATION
                                                  ! MODE
  
  REAL(EB), INTENT(IN) :: TEMP                     ! TEMPERATURE IN KELVIN
  
  ! VARIABLE PASSED OUT
  REAL(EB) :: PARTITION_FUNCTION
  
  ! LOCAL VARIABLES
  REAL(EB), PARAMETER :: Q2 = 1.4388_EB   ! SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB) :: Q2_OVER_T
  INTEGER  :: N_MODE
  INTEGER  :: I_MODE
  
  Q2_OVER_T = Q2/TEMP
  N_MODE    = SIZE(TRANSITION_WN)
  
  PARTITION_FUNCTION = 1.0_EB
  
  DO I_MODE = 1, N_MODE
  PARTITION_FUNCTION = PARTITION_FUNCTION* &
           (1.0_EB-EXP(-Q2_OVER_T*TRANSITION_WN(I_MODE)))**(DEGENERACY(I_MODE))
  ENDDO
  
  !------------------------------------------------------------------------------
  RETURN
  END FUNCTION PARTITION_FUNCTION
  
  
  !==============================================================================
  PURE SUBROUTINE APPROX_VIB_ROT(TRANSITION_MATRIX,LINE_STRENGTH,OM,TEMP,OMEGA,  &
                                BCNT,BE,GC1, GD, GDINV,GDDINV,SDWEAK,LINE_SPACING)
  !==============================================================================
  !! JUST OVERLAPPING SPECTRAL LINES
  !
  !
  !------------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLE PASSED IN
  REAL(EB), DIMENSION(3,3), INTENT(IN) :: TRANSITION_MATRIX ! SQUARE MATRIX
  REAL(EB), DIMENSION(:),   INTENT(IN) :: BCNT ! BAND CENTER IN WAVENUMBERS (CM-1)
  REAL(EB), DIMENSION(:),   INTENT(IN) :: OM
  REAL(EB), DIMENSION(:),   INTENT(IN) :: LINE_STRENGTH
  
  REAL(EB), INTENT(IN) :: OMEGA ! WAVENUMBER OF SOUGHT PROPERTIES
  REAL(EB), INTENT(IN) :: BE    ! ROTATIONAL CONSTANT
  REAL(EB), INTENT(IN) :: TEMP  ! TEMPERATURE IN KELVIN
  REAL(EB), INTENT(IN) :: GC1
  REAL(EB), INTENT(IN) :: GD
  REAL(EB), INTENT(IN), OPTIONAL :: LINE_SPACING ! OPTIONAL
  
  ! VARIABLES PASSED OUT
  REAL(EB), INTENT(OUT) :: SDWEAK
  REAL(EB), INTENT(OUT) :: GDINV
  REAL(EB), INTENT(OUT) :: GDDINV
  
  ! LOCAL VARIABLES
  REAL(EB), DIMENSION(:), ALLOCATABLE :: TRANSITION_WN, ATOT
  REAL(EB), PARAMETER :: Q2 = 1.4388_EB   ! SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: T0 = 300._EB     ! REFERENCE TEMPERATURE, IN KELVIN
  
  REAL(EB) :: T0OT
  REAL(EB) :: Q2OT
  REAL(EB) :: DINV
  
  INTEGER  :: N_TRANSITIONS
  INTEGER  :: N_VIBRATIONS
  
  INTEGER :: I_TRANSITION
  
  SDWEAK  =  0.0_EB
  T0OT    =  T0/TEMP
  Q2OT    = -Q2/TEMP
  
  N_TRANSITIONS = 3
  N_VIBRATIONS  = 3
  
  IF (.NOT.PRESENT(LINE_SPACING)) THEN
  DINV = 1.0_EB/(4.0_EB*BE)
  ELSE
  DINV = LINE_SPACING
  ENDIF
  
  ! COMPUTE THE ASSOCIATED TRANSITION WAVENUMBERS
  ! ALLOCATE VARIABLE TRANSITION_WN
  
  IF (ALLOCATED(TRANSITION_WN)) DEALLOCATE(TRANSITION_WN)
  ALLOCATE(TRANSITION_WN(N_VIBRATIONS))
  
  ! ALLOCATE VARIABLE ATOT
  
  IF (ALLOCATED(ATOT)) DEALLOCATE(ATOT)
  ALLOCATE(ATOT(N_VIBRATIONS))
  
  ! CALCULATE THE VECTOR OF TRANISTION WAVENUMBERS
  TRANSITION_WN = MATMUL(TRANSITION_MATRIX,OM)
  
  ! COMPUTE THE DIFFERENT LINE INTENSITIES AT TEMPERATURE TEMP
  
  DO I_TRANSITION = 1, N_TRANSITIONS
  ATOT(I_TRANSITION) = LINE_STRENGTH(I_TRANSITION)*T0OT*(1.0_EB-EXP(Q2OT*TRANSITION_WN(I_TRANSITION)))/ &
  PARTITION_FUNCTION(OM,TRANSITION_MATRIX(I_TRANSITION,:),TEMP)
  ENDDO
  
  ! COMPUTE THE MEAN ABSORPTION COEFFICIENT USING EQ 11-44 FROM PENNER IN QUANTITATIVE MOLECULAR SPECTROMETRY, 1955
  ! SDWEAK = SUM(ATOT*PROPABILITY)
  ! JUST OVERLAPPING SPECTRAL LINE
  
  DO I_TRANSITION = 1, N_TRANSITIONS
  SDWEAK = SDWEAK + ATOT(I_TRANSITION)*(-Q2OT/(4._EB*BE))*ABS(OMEGA-BCNT(I_TRANSITION))* &
                    EXP(Q2OT/(4._EB*BE)*(OMEGA-BCNT(I_TRANSITION))**2)
  ENDDO
  
  GDINV  = GC1*DINV
  GDDINV = GD*DINV
  !EXPRESS S/D AT STP, AS IS IN NASA SP-3080
  SDWEAK = SDWEAK*TEMP/273._EB
  
  !------------------------------------------------------------------------------
  RETURN
  END SUBROUTINE APPROX_VIB_ROT
  
  !==============================================================================
  ELEMENTAL SUBROUTINE CO2(OMEGA,TEMP,GC1,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN
  REAL(EB), INTENT(IN) :: OMEGA ! WAVENUMBER, UNITS IN CM-1
  REAL(EB), INTENT(IN) :: TEMP  ! TEMPERATURE, UNITS IN KELVIN
  REAL(EB), INTENT(IN) :: GC1   ! HALF WIDTH AT HALF HEIGHT FOR LORENTZ LINE, UNITS IN CM-1
  
  ! VARIABLES PASSED OUT
  REAL(EB), INTENT(OUT):: SDWEAK  ! NARROW BAND MEAN ABS(ORTION COEFFICIENT, UNITS IN CM-1
  REAL(EB), INTENT(OUT):: GDINV   ! LINE WIDTH TO LINE SPACING RATION FOR LORENTZ LINES
  REAL(EB), INTENT(OUT):: GDDINV  ! LINE WIDTH TO LINE SPACING RATION FOR DOPPLER
  INTEGER,  INTENT(OUT):: I_MODEL ! MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCAL VARIABLES
  INTEGER  :: I,J,K,L
  
  REAL(EB), PARAMETER :: WM_CO2 = 44._EB      ! MOLAR MASS (IN GRAM) OF CO2
  REAL(EB), PARAMETER :: BE     = 0.391635_EB ! ROTATIONAL CONSTANT CO2
  REAL(EB), PARAMETER :: Q2     = 1.4388_EB   ! SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: T0     = 300._EB     ! REFERENCE TEMPERATURE, IN KELVIN
  
  REAL(EB), PARAMETER :: OM1 = 1354.91_EB  ! FUNDAMENTAL FREQUENCY FOR TRANSITION (000)->(100), UNITS CM-1
  REAL(EB), PARAMETER :: OM2 =  673.0_EB   ! FUNDAMENTAL FREQUENCY FOR TRANSITION (000)->(010), UNITS CM-1
  REAL(EB), PARAMETER :: OM3 = 2396.49_EB  ! FUNDAMENTAL FREQUENCY FOR TRANSITION (000)->(001), UNITS CM-1
  
  REAL(EB), DIMENSION(3) :: ATOT, BCNT
  REAL(EB), DIMENSION(:), ALLOCATABLE  :: OM, LINE_STRENGTH
  REAL(EB), DIMENSION(3,3) :: TRANSITION_MATRIX
  
  REAL(EB) :: AA,BB,CC,QQ,EE,FF,GG, &
           SMINUS,SPLUS,SDSTRG,GD, &
           X13,X23,X33,XBAR,OM12,ALPHA,OMPRIM,V3,GAM,  &
           OMVV3,DELTA,V,OMVBAR,F1,F2,UNFLO1,UNFLO2,UNFLO3,TEST, &
           VBAR1,OMA,OMB,TTEMP,TT,T1,TW,WW,TEMP1,TEMP2,TEMP3,    &
           DINV,A,B,D,G,W1,DINV1,DINV2,DINV3,Q2OT,T0OT,Q2OT0
  
  I_MODEL = I_MODEL_CO2
  
  ! INITIALIZE SDWEAK, GDINV, GDDINV
  
  SDWEAK = 0._EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  IF (OMEGA > 5725.0_EB) THEN
  SDWEAK = 0.0_EB
  GDINV  = 1.0_EB
  GDDINV = 1.0_EB
  ELSE
  
  ! COMPUTE DOPPLER BROADENING HALF-WIDTHS SP-3080 EQ: 5-35
  GD = 5.94E-6_EB*OMEGA*SQRT(TEMP/(273.0_EB*WM_CO2))
  
  IF(OMEGA>4550.0_EB) THEN
  ! CONTRIBUTION TO 2.0 MICRON BAND FROM:
  ! (000)-(041)
  ! (000)-(121),
  ! (000)-(201) TRANSITIONS.
  
  ! BAND CENTER
  
     BCNT(1) = 4860.5_EB ! (000)-(041)
     BCNT(2) = 4983.5_EB ! (000)-(121)
     BCNT(3) = 5109.0_EB ! (000)-(201)
  
     IF(ALLOCATED(LINE_STRENGTH)) DEALLOCATE(LINE_STRENGTH)
     ALLOCATE(LINE_STRENGTH(3))
  
     IF(ALLOCATED(OM)) DEALLOCATE(OM)
     ALLOCATE(OM(3))
  
     ! ! COMPUTE THE ASSOCIATED TRANSITION WAVENUMBERS
  
     TRANSITION_MATRIX(1,1:3) = [0._EB,4._EB,1._EB] ! (000)-(041)
     TRANSITION_MATRIX(2,1:3) = [1._EB,2._EB,1._EB] ! (000)-(121)
     TRANSITION_MATRIX(3,1:3) = [2._EB,0._EB,1._EB] ! (000)-(201)
  
     OM(1) = OM1
     OM(2) = OM2
     OM(3) = OM3
  
  !! COMPUTE THE INTEGRATED INTENSITY OF THE BAND
  !! 0.272: INTEGRATED INTENSITY (IN CM-2-ATM-1) OF BAND BCNT(1) = 4860.5_EB ((041)-(000)) AT T=300K
  !! 1.01 : INTEGRATED INTENSITY (IN CM-2-ATM-1) OF BAND BCNT(2) = 4983.5_EB ((121)-(000)) AT T=300K
  !! 0.426: INTEGRATED INTENSITY (IN CM-2-ATM-1) OF BAND BCNT(3) = 5109  _EB ((201)-(000)) AT T=300K
  !! VALUES FROM PENNER AND VARANASI JQSRT VOL 4 PP 799-806, 1964
  
     LINE_STRENGTH = [0.272_EB,1.01_EB,0.426_EB]
  
     CALL APPROX_VIB_ROT(TRANSITION_MATRIX,LINE_STRENGTH,OM,TEMP,OMEGA,BCNT,BE,GC1, &
                          GD,GDINV,GDDINV,SDWEAK)
  
  ELSEIF((OMEGA<=4550._EB).AND.(OMEGA>3800._EB)) THEN
     SDWEAK = 0.0_EB
     GDINV  = 1.0_EB
     GDDINV = 1.0_EB
  
  ELSEIF((OMEGA<=3800._EB).AND.(OMEGA>3050._EB)) THEN
     B   = 0.391635_EB
     A   = 0.0030875_EB
  
     X13 = -19.37_EB
     X23 = -12.53_EB
     X33 = -12.63_EB
  
     T0OT = T0/TEMP
  
     Q2OT  = -Q2/TEMP
     Q2OT0 = -Q2/T0
  
     XBAR  = 0.5_EB*(.5_EB*X13+X23)
     OM12  = 0.5_EB*(.5_EB*OM1+OM2)
  
     SDWEAK = 0._EB
     SDSTRG = 0._EB
  
  !CALCULATE ABSORPTION COEF. AND LINE SPACING PARAMETER FOR 2.7 MICRON BAND
     L = 1
  !CONTRIBUTION TO 2.7 MICRON BAND FROM (000)-(021) AND (010)-(031) TRANS.
     ALPHA  = 28.5_EB
     OMPRIM = 2.0_EB*OM2+OM3
  
     L120: DO
        AA = ALPHA*B*Q2/(A*(1._EB-EXP(OM3*Q2OT0))*(1._EB-EXP(OM12*Q2OT0))**3*(1._EB+EXP(OM12*Q2OT0))*(1._EB-EXP(OMPRIM*Q2OT0)))
        BB = (1._EB-EXP(Q2OT*OMEGA))*(1._EB-EXP(Q2OT*OM3))* (1._EB-EXP(OM12*Q2OT))**3*(1._EB+EXP(OM12*Q2OT)) &
              *(1._EB-EXP(Q2OT*OMPRIM))
        CC = AA*BB*OMEGA*T0/TEMP**2
  
        L102: DO J = 1, 20
           V = REAL(J-1,EB)
           IF ((J/2*2)==J) G = (V+1.0_EB)*(V+3.0_EB)/4.0_EB ! REPLACE WITH MODULO 2
           IF ((J/2*2)/=J) G = (V+2.0_EB)*(V+2.0_EB)/4.0_EB ! REPLACE WITH MODULO 2
  
           VBAR1 = -1.0_EB+(V+3.0_EB)*(V+4.0_EB)/(V+2.0_EB)/6.0_EB
  
           IF(J/2*2==J) VBAR1 = -1.0_EB+(V+5.0_EB)/6.0_EB ! REPLACE WITH MODULO 2
  
           L101: DO K = 1, 10
              V3  = REAL(K-1,EB)
              QQ  = (V3+1)*G*EXP((V3*OM3+V*OM12)*Q2OT)*(VBAR1+1.0_EB)
              GAM = B-A*(V3+1._EB)
  
              IF(L==2) THEN
                 OMVV3 = 3728.0_EB-5.0_EB*V-47._EB*V3
                 IF (V<=TWO_EPSILON_EB) OMVV3 = 3715._EB-47._EB*V3
              ELSE
                 OMVV3 = 3598.0_EB-18.0_EB*V-47.0_EB*V3
                 IF (V<=TWO_EPSILON_EB) OMVV3 = 3613.0_EB-47.0_EB*V3
              ENDIF
  
              DELTA = A*(OMEGA-OMVV3)
  
              IF ((GAM**2)<=DELTA) CYCLE L102
  
              D      = 2.0_EB*SQRT(GAM**2-DELTA)
              OMVBAR = OMVV3*(1.0_EB-EXP(OMVV3*Q2OT))
              F1     = GAM - 0.5_EB*D
              F2     = GAM + 0.5_EB*D
              EE     = Q2*GAM/(A**2*TEMP)
              UNFLO1 = EE*DELTA*(1.0_EB + 0.5_EB*A/GAM)
  
              IF(UNFLO1<=-78.0_EB) CYCLE L102
  
              UNFLO2 = EE*2.0_EB*GAM*F1
  
              IF(UNFLO2>=78.0_EB) CYCLE L102
  
              FF     = EXP(EE*DELTA*(1.0_EB+0.5_EB*A/GAM))
              SMINUS = CC*QQ/OMVBAR*ABS(F1)*FF*EXP(-EE*2.0_EB*GAM*F1)
              UNFLO3 = EE*2.0_EB*GAM*F2
  
              IF(UNFLO3>=78.0_EB) THEN
                 SPLUS = 0.0_EB
              ELSE
                 SPLUS = CC*QQ/OMVBAR*ABS(F2)*FF*EXP(-EE*2.0_EB*GAM*F2)
              ENDIF
  
              GG     = SDWEAK
              SDWEAK = (SMINUS+SPLUS)/D+SDWEAK
              TEST   = (SDWEAK-GG)/SDWEAK
              IF(TEST<.0001_EB) CYCLE L102
              SDSTRG = SQRT(0.5_EB*G)*(SQRT(SMINUS)+SQRT(SPLUS))/D+SDSTRG
           ENDDO L101
        ENDDO L102
  
        IF(L==2) EXIT L120
  !CONTRIBUTION TO 2.7 MICRON BAND FROM (000)-(101) AND (010)-(111) TRANS.
        ALPHA  = 42.3_EB
        OMPRIM = OM1+OM3
        L      = 2
     ENDDO L120
  !CALCULATE ABSORPTION COEF AND LINE SPACING PARAMETER FOR 4.3 MICRON BAND
     IF(SDWEAK<=TINY_EB) THEN
        SDWEAK = 0.0_EB
        GDINV  = 1.0_EB
        GDDINV = 1.0_EB
     ELSE
        DINV   = SDSTRG*SDSTRG/SDWEAK
        GDINV  = GC1*DINV
        GDDINV = GD*DINV
  !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
        SDWEAK = SDWEAK*TEMP/273.0_EB
  !         ENDIF
     ENDIF
  
  ELSEIF((OMEGA<=3050.0_EB).AND.(OMEGA>2474.0_EB)) THEN
     SDWEAK = 0.0_EB
     GDINV  = 1.0_EB
     GDDINV = 1.0_EB
  
  ELSEIF((OMEGA<=2474.0_EB).AND.(OMEGA>1975.0_EB)) THEN
  
  B = .391635_EB
  A = .0030875_EB
  
  X13 = -19.37_EB
  X23 = -12.53_EB
  X33 = -12.63_EB
  
  XBAR = 0.5_EB*(0.5_EB*X13+X23)
  OM12 = 0.5_EB*(0.5_EB*OM1+OM2)
  
  SDWEAK=0.0_EB
  SDSTRG=0.0_EB
  
  ! DIPOLE APPROXIMATION
  
  IF(OMEGA<=2395.0_EB) THEN
        ALPHA  = 2700.0_EB
        OMPRIM = OM3
        AA     = ALPHA*B*Q2/(A*(1.0_EB-EXP(-OM3*Q2/T0))*(1.0_EB-EXP(-OM12*Q2 /T0))**3* &
                                (1.0_EB+EXP(-OM12*Q2/T0))*(1.0_EB-EXP(-OMPRIM*Q2/T0)))
        BB     = (1._EB-EXP(-Q2*OMEGA/TEMP))*(1.0_EB-EXP(-Q2*OM3/TEMP))*(1.0_EB-EXP(-OM12*Q2/TEMP))**3*&
                 (1._EB+EXP(-OM12*Q2/TEMP))*(1.0_EB-EXP(-Q2*OMPRIM/TEMP))
        CC     = AA*BB*OMEGA*T0/TEMP**2
  
        L202A: DO J = 1, 20
           V  = REAL(J-1,EB)
  
           IF(J/2*2==J) G = 0.25_EB*(V+1.0_EB)*(V+3.0_EB) ! REPLACE WITH MODULO
           IF(J/2*2/=J) G = 0.25_EB*(V+2.0_EB)*(V+2.0_EB) ! REPLACE WITH MODULO
  
           L201A: DO K=1,10
  
              V3    = REAL(K-1,EB)
              QQ    = (V3+1.0_EB)*G*EXP(-(V3*OM3+V*OM12)*Q2/TEMP)
              GAM   = B-A*(V3+1.0_EB)
              OMVV3 = OM3 + 0.5_EB*X13 + X23 + 2.0_EB*X33 + XBAR*V + 2.0_EB*X33*V3
              DELTA = A*(OMEGA-OMVV3)
  
              IF(GAM*GAM<=DELTA) CYCLE L202A
  
              D      = 2.0_EB*SQRT(GAM**2-DELTA)
              OMVBAR = OMVV3*(1._EB-EXP(-OMVV3*Q2/TEMP))
  
              F1     = GAM-0.5_EB*D
              F2     = GAM+0.5_EB*D
              EE     = Q2*GAM/(A*A*TEMP)
              UNFLO1 = EE*DELTA*(1.0_EB + 0.5_EB*A/GAM)
  
              IF(UNFLO1<=-78.0_EB) CYCLE L202A
              UNFLO2 = EE*2.0_EB*GAM*F1
  
              IF(UNFLO2>=78.0_EB) CYCLE L202A
  
              FF     = EXP(EE*DELTA*(1.0_EB + 0.5_EB*A/GAM))
              SMINUS = CC*QQ/OMVBAR*ABS(F1)*FF*EXP(-EE*2.0_EB*GAM*F1)
              UNFLO3 = EE*2.0_EB*GAM*F2
  
              IF (UNFLO3 >= 78.0_EB) THEN
                 SPLUS=0.0_EB
              ELSE
                 SPLUS=CC*QQ/OMVBAR*ABS(F2)*FF*EXP(-EE*2.0_EB*GAM*F2)
              ENDIF
  
              GG     = SDWEAK
              SDWEAK = (SMINUS+SPLUS)/D+SDWEAK
              TEST   = (SDWEAK-GG)/SDWEAK
  
              IF(TEST<1.0E-4_EB) CYCLE L202A
  
              SDSTRG=SQRT(0.5_EB*G)*(SQRT(SMINUS)+SQRT(SPLUS))/D+SDSTRG
  
           ENDDO L201A
        ENDDO L202A
  
        IF(SDWEAK<=TINY_EB) THEN
           SDWEAK = 0.0_EB
           GDINV  = 1.0_EB
           GDDINV = 1.0_EB
        ELSE
           DINV   = SDSTRG**2/SDWEAK
           GDINV  = GC1*DINV
           GDDINV = GD*DINV
  !***  EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
           SDWEAK = SDWEAK*TEMP/273.0_EB
        ENDIF
     ELSE
  !CALCULATE ABSORPTION COEF. AND LINE SPACING PARAMETER FOR 2.7 MICRON BAND
        L=1
  !CONTRIBUTION TO 2.7 MICRON BAND FROM (000)-(021) AND (010)-(031) TRANS.
        ALPHA  = 28.5_EB
        OMPRIM = 2.0_EB*OM2+OM3
  
        L120A: DO
           AA = ALPHA*B*Q2/(A*(1.0_EB-EXP(-OM3*Q2/T0))*(1.0_EB-EXP(-OM12*Q2 /T0))**3* &
                                (1.0_EB+EXP(-OM12*Q2/T0))*(1.0_EB-EXP(-OMPRIM*Q2/T0)))
           BB = (1._EB-EXP(-Q2*OMEGA/TEMP))*(1.0_EB-EXP(-Q2*OM3/TEMP))*    &
                 (1._EB-EXP(-OM12*Q2/TEMP))**3*(1.0_EB+EXP(-OM12*Q2/TEMP))* &
                 (1._EB-EXP(-Q2*OMPRIM/TEMP))
  
           CC = AA*BB*OMEGA/TEMP*T0/TEMP
  
           L102A: DO J = 1, 20
              V=REAL(J-1,EB)
  
              IF(J/2*2==J) G = 0.25_EB*(V+1.0_EB)*(V+3.0_EB) ! USE MODULO
              IF(J/2*2/=J) G = 0.25_EB*(V+2.0_EB)*(V+2.0_EB) ! USE MODULO
  
              VBAR1 = -1.0_EB + (V+3.0_EB)*(V+4.0_EB)/(6.0_EB*(V+2.0_EB))
              IF(J/2*2==J) VBAR1 = -1.0_EB+(V+5.0_EB)/6.0_EB ! USE MODULO
  
              L101A: DO K = 1, 10
  
                 V3  = REAL(K-1,EB)
                 QQ  = (V3+1)*G*EXP( -(V3*OM3 + V*OM12)*Q2/TEMP )*(VBAR1+1.0_EB)
                 GAM = B-A*(V3+1.0_EB)
  
                 IF(L==2) THEN
                    OMVV3 = 3728.0_EB - 5.0_EB*V - 47.0_EB*V3
                    IF(V<=TWO_EPSILON_EB) OMVV3 = 3715.0_EB - 47.0_EB*V3
                 ELSE
                    OMVV3 = 3598.0_EB - 18.0_EB*V - 47.0_EB*V3
                    IF(V<=TWO_EPSILON_EB) OMVV3 = 3613.0_EB - 47.0_EB*V3
                 ENDIF
  
                 DELTA = A*(OMEGA-OMVV3)
                 IF((GAM**2)<=DELTA) CYCLE L102A
  
                 D      = 2.0_EB*SQRT(GAM**2-DELTA)
                 OMVBAR = OMVV3*(1.0_EB-EXP(-OMVV3*Q2/TEMP))
                 F1     = GAM-0.5_EB*D
                 F2     = GAM+0.5_EB*D
  
                 EE     = Q2*GAM/(A**2*TEMP)
                 UNFLO1 = EE*DELTA*(1.0_EB+0.5_EB*A/GAM)
  
                 IF(UNFLO1<= -78.0_EB) CYCLE L102A
  
                 UNFLO2 = EE*2.0_EB*GAM*F1
  
                 IF(UNFLO2>= 78._EB) CYCLE L102A
  
                 FF     = EXP(EE*DELTA*(1.0_EB+0.5_EB*A/GAM))
                 SMINUS = CC*QQ/OMVBAR*ABS(F1)*FF*EXP(-EE*2.0_EB*GAM*F1)
                 UNFLO3 = EE*2.0_EB*GAM*F2
  
                 IF(UNFLO3>=78._EB) THEN
                    SPLUS = 0._EB
                 ELSE
                    SPLUS = CC*QQ/OMVBAR*ABS(F2)*FF*EXP(-EE*2.0_EB*GAM*F2)
                 ENDIF
  
                 GG     = SDWEAK
                 SDWEAK = (SMINUS+SPLUS)/D+SDWEAK
                 TEST   = (SDWEAK-GG)/SDWEAK
  
                 IF(TEST<1.0E-4_EB) CYCLE L102A
  
                 SDSTRG = SQRT(0.5_EB*G)*(SQRT(SMINUS)+SQRT(SPLUS))/D+SDSTRG
  
              ENDDO L101A
           ENDDO L102A
  
           IF(L==2) EXIT L120A
  !CONTRIBUTION TO 2.7 MICRON BAND FROM (000)-(101) AND (010)-(111) TRANS.
           ALPHA  = 42.3_EB
           OMPRIM = OM1+OM3
           L      = 2
        ENDDO L120A
  !CALCULATE ABSORPTION COEF AND LINE SPACING PARAMETER FOR 4.3 MICRON BAND
        IF(SDWEAK<=TINY_EB) THEN
           SDWEAK = 0.0_EB
           GDINV  = 1.0_EB
           GDDINV = 1.0_EB
        ELSE
           DINV   = SDSTRG**2/SDWEAK
           GDINV  = GC1*DINV
           GDDINV = GD*DINV
  !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
           SDWEAK = SDWEAK*TEMP/273.0_EB
        ENDIF
     ENDIF
  
  ELSEIF((OMEGA<=1975.0_EB).AND.(OMEGA>1100.0_EB)) THEN
     SDWEAK = 0.0_EB
     GDINV  = 1.0_EB
     GDDINV = 1.0_EB
  
  ! BAND 10 MICRONS_
  ELSEIF((OMEGA<=1100.0_EB).AND.(OMEGA>880.0_EB)) THEN
  !CONTRIBUTION TO 10.0 MICRON BAND FROM (100)-(001) AND (020)-(001) TRANS.
     BCNT(1) = 960.8_EB
     BCNT(2) = 1063.6_EB
  
     OMA = OM3
     OMB = (OM1+2.0_EB*OM2)/2.0_EB
  
     ATOT(1)= 0.0219_EB
     ATOT(2)= 0.0532_EB
  
     DO K=1,2
        ATOT(K)=T0/TEMP*ATOT(K)*EXP(Q2*OMB*(1.0_EB/T0-1.0_EB/TEMP))*(1.0_EB-EXP(-Q2*(OMA-OMB)/TEMP)) &
                    /( (1.0_EB-EXP(-Q2*OMA/TEMP))*(1.0_EB-EXP(-OMB*Q2/TEMP)) )
     ENDDO
     SDWEAK = 0.0_EB
  
     DO I = 1, 2
        SDWEAK = SDWEAK + ATOT(I)*Q2/(4.0_EB*BE*TEMP)*ABS(OMEGA-BCNT(I))*EXP(-Q2/(4.0_EB*BE*TEMP)*(OMEGA-BCNT(I))**2)
     ENDDO
  
     DINV   = 1.0_EB/(4.0_EB*BE)
     GDINV  = GC1*DINV
     GDDINV = GD*DINV
  !***EXPRESS S/D AT STP, AS IS IN NASA SP-3080
     SDWEAK = SDWEAK*TEMP/273.0_EB
  
  ! TABLULATED BAND: 15 MICRON
     ELSEIF((OMEGA<=880.0_EB).AND.(OMEGA>500.0_EB))  THEN
  !CONTRIBUTION TO 15.0 MICRON BAND FROM (000)-(010) TRANS.
        TTEMP = TEMP
        J  = (FLOOR(OMEGA)-495)/5
        W1 = 495.0_EB + 5.0_EB*REAL(J,EB)
        WW = (OMEGA-W1)/5
  
        IF(TTEMP>=2400._EB) TTEMP = 2399.99_EB
        IF(TTEMP < 300._EB) TTEMP =  300.00_EB
  
        I = INT(TTEMP/300._EB)
  
        IF (I<2) THEN
           T1=REAL(I,EB)*300._EB
           TT=(TTEMP-T1)/300._EB
        ELSE
           IF (TTEMP < 1200) THEN
              I=2
              TT=(TTEMP-600._EB)/600._EB
           ELSE
              IF(I > 5) THEN
                 I=5
                 TT=(TTEMP-1800._EB)/600._EB
              ELSE
                 T1=REAL(I,EB)*300._EB
                 TT=(TTEMP-T1)/300._EB
                 IF(I>=4) I=I-1
              ENDIF
           ENDIF
        ENDIF
  
        TW=TT*WW
        SDWEAK=SD15(I,J)*(1._EB-TT-WW+TW)+SD15(I+1,J)*(TT-TW) + SD15(I,J+1)*(WW-TW)+SD15(I+1,J+1)*TW
  
        IF(SDWEAK<=TINY_EB) THEN
           SDWEAK = 0.0_EB
           GDINV  = 1.0_EB
           GDDINV = 1.0_EB
        ELSE
     !CALCULATE LINE SPACING PARAMETER FOR 15.0 MICRON BAND
           DINV1 =  1.2_EB
           DINV2 =  8.0_EB
           DINV3 = 30.0_EB
  
           TEMP1 = 300.0_EB
           TEMP2 = 550.0_EB
           TEMP3 = 830.0_EB
  
           DINV   = DINV1*(TTEMP-TEMP2)*(TTEMP-TEMP3)/(TEMP1-TEMP2) / (TEMP1-TEMP3)+DINV2*(TTEMP-TEMP1)*(TTEMP-TEMP3)&
                    /(TEMP2-TEMP1)/(TEMP2-TEMP3)+DINV3*(TTEMP-TEMP1) * (TTEMP-TEMP2)/(TEMP3-TEMP1)/(TEMP3-TEMP2)
           GDINV  = GC1*DINV
           GDDINV = GD*DINV
        ENDIF
  
     ELSE
        SDWEAK = 0.0_EB
        GDINV  = 1.0_EB
        GDDINV = 1.0_EB
     ENDIF
  ENDIF
  
  !------------------------------------------------------------------------------
  RETURN
  END SUBROUTINE CO2
  
  !==============================================================================
  ELEMENTAL SUBROUTINE H2O(OMEGA,TEMP,GC2,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  !! THIS SUBROUTINE RETURNS THE MEAN SPECTRAL ABSORPTION COEFFICIENT (SDWEAK),
  !! THE COLLISION BROADENING FINE STRUCTURE PARAMETER (GDINV),
  !! THE DOPPLER BROADENING FINE STRUCTURE PARAMETER (GDDINV), AND THE
  !! NARROW BAND MODEL TO BE USED (I_MODEL)
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  !------------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN
  
  REAL(EB), INTENT(IN) :: OMEGA ! WAVENUMBER,  IN CM-1
  REAL(EB), INTENT(IN) :: TEMP  ! TEMPERATURE, IN KELVIN
  REAL(EB), INTENT(IN) :: GC2   ! HALF WIDTH AT HALF HEIGHT, IN CM-1
  
  ! VARIABLES PASSED OUT
  
  REAL(EB), INTENT(OUT) :: SDWEAK  ! SPECTRAL ABSORPTION COEFFICIENT, IN CM-1
  REAL(EB), INTENT(OUT) :: GDDINV  ! LINE WIDTH TO LINE SPACING RATION FOR DOPPLER
  REAL(EB), INTENT(OUT) :: GDINV   ! LINE WIDTH TO LINE SPACING RATIO FOR LORENTZ BORADENING
  INTEGER,  INTENT(OUT) :: I_MODEL ! MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCAL VARIABLES
  
  INTEGER  :: I,J
  REAL(EB) :: W1, WW, T1, TT, TW, D, B, DINV, TTEMP, GD
  REAL(EB), PARAMETER :: WM_H2O = 18._EB
  
  I_MODEL = I_MODEL_H2O
  
  SDWEAK = 0._EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  IF (OMEGA>=50._EB.AND.OMEGA<9300) THEN
  ! COMPUTE DOPLLER HALF-WIDTH. EQ 5-35
  GD   = 5.94E-6_EB*OMEGA*SQRT(TEMP/(273._EB*WM_H2O))
  
  J    = INT((OMEGA-25._EB)/25._EB)
  TTEMP= TEMP
  
  IF(TEMP>=2500._EB) TTEMP = 2499.99_EB
  IF(TEMP<300._EB)   TTEMP = 300._EB
  
  I = FLOOR(TTEMP/500._EB) + 1
  
  IF (I==2.AND.TTEMP<600._EB) I = 1
  
  W1 = 25._EB+25._EB*REAL(J,EB)
  WW = (OMEGA-W1)/25._EB
  
  IF(I>2) THEN
     T1=REAL(I-1,EB)*500._EB
     TT=(TTEMP-T1)/500._EB
  ELSE
     IF(I==1) TT = (TTEMP-300._EB)/300._EB
     IF(I==2) TT = (TTEMP-600._EB)/400._EB
  ENDIF
  
  TW     = TT*WW
  ! PERFORM INTERPOLATION
  SDWEAK = SD(I,J)*(1._EB-TT-WW+TW)+SD(I+1,J)*(TT-TW)+SD(I,J+1) *(WW-TW)+SD(I+1,J+1)*TW
  
  D      = -2.294_EB+.3004E-02_EB*TTEMP-.366E-06_EB*TEMP**2
  B      = SIN(.0036_EB*OMEGA-8.043_EB)
  DINV   = EXP(.7941_EB*B+D) ! FROM NASA IR HANDBOOK)
  
  !     DINV=EXP(0.00106*TEMP-1.21)
  
  ! UPDATE ARGUMENT OUT VARIABLES
  GDINV  = GC2*DINV
  GDDINV = GD*DINV
  
  ENDIF
  
  !------------------------------------------------------------------------------
  RETURN
  END SUBROUTINE H2O
  
  
  !==============================================================================
  SUBROUTINE CO(OMEGA,TEMP,GC4,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  INTEGER J
  REAL(EB) OMEGA,TEMP,GC4,SDWEAK,GDINV,GDDINV,AA,BB,CC,QQ,EE,FF,GG, &
        SMINUS,SPLUS,SDSTRG,B,ALPHA,A,OME,WX,WY,OMPRIM,T0, &
        Q2,WM,GD,V,GAM,OMV,DELTA,D,OMVBAR,F1,F2,TEST,DINV,Q2OT,TOAZ
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  I_MODEL = I_MODEL_CO
  
  IF(OMEGA<1600._EB .OR. OMEGA>2400._EB) THEN
  SDWEAK = 0._EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  ELSE
  B     = 1.93139_EB
  ALPHA = 260._EB
  A     = .017485_EB
  OME   = 2170.21_EB
  WX    = 13.461_EB
  WY    = .0308_EB
  OMPRIM= OME-2._EB*WX+3.25_EB*WY
  
  T0 = 300._EB
  Q2 = 1.4388_EB
  
  TOAZ = TEMP/273._EB
  Q2OT = Q2/TEMP
  
  WM     = 28._EB
  ! DOPPLER BROADENING HALF-WIDTH
  GD     = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM)
  SDWEAK = 1.E-99_EB
  SDSTRG = 1.E-99_EB
  
  AA = ALPHA*B*Q2/(A*(1._EB-EXP(-OMPRIM*Q2/T0))**2)
  BB = (1._EB-EXP(-OMEGA*Q2OT))*(1._EB-EXP(-OMPRIM*Q2OT))**2
  CC = AA*BB*OMEGA*T0/TEMP**2
  
  L101: DO J=1,20
     V    = REAL(J-1,EB)
     QQ   = (V+1._EB)*EXP(-V*OME*Q2OT)
     GAM  = B-A*(V+1._EB)
     OMV  = OME-2._EB*(V+1._EB)*WX+(3._EB*(V+1._EB)*(V+1._EB)+.25_EB)*WY
     DELTA= A*(OMEGA-OMV)
  
     IF(GAM**2<=DELTA) EXIT L101
  
     D      = 2._EB*SQRT(GAM*GAM-DELTA)
     OMVBAR = OMV*(1._EB-EXP(-OMV*Q2OT))
     F1     = GAM-0.5_EB*D
     F2     = GAM+0.5_EB*D
     EE     = Q2*GAM/(A*A*TEMP)
  
     FF     = EXP(EE*DELTA*(1._EB+.5_EB*A/GAM))
     SMINUS = CC*QQ/OMVBAR*ABS(F1)*FF*EXP(-EE*2._EB*GAM*F1)
     SPLUS  = CC*QQ/OMVBAR*ABS(F2)*FF*EXP(-EE*2._EB*GAM*F2)
     GG     = SDWEAK
     SDWEAK = (SMINUS+SPLUS)/D+SDWEAK
     TEST   = (SDWEAK-GG)/SDWEAK
  
     IF(TEST<.0001_EB) EXIT L101
  
     SDSTRG=(SQRT(SMINUS)+SQRT(SPLUS))/D+SDSTRG
  ENDDO L101
  
  DINV   = SDSTRG*SDSTRG/SDWEAK
  GDINV  = GC4*DINV
  GDDINV = GD*DINV
  !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
  SDWEAK = SDWEAK*TOAZ
  ENDIF
  !------------------------------------------------------------------------------
  END SUBROUTINE CO
  
  
  !==============================================================================
  !ELEMENTAL SUBROUTINE POD(OMEGA,SOOT_VOLUME_FRAC,PATH_LENGTH_CM,X_PARTICLE)
  SUBROUTINE POD(OMEGA,SOOT_VOLUME_FRAC,PATH_LENGTH_CM,X_PARTICLE,TEMP)
  !==============================================================================
  !! POD CALCULATES PARTICLE OPTICAL DEPTH, X_PARTICLE, OF THE VOLUME FRACTION OF
  !! SOOT PARTICLES IN GAS CLOUD.  RIN AND RIK ARE
  !! THE REAL AND IMAGINARY PARTS OF THE INDEX OF REFRACTION. THE PARTICLES ARE
  !! ASSUMED TO BE IN THE RAYLEIGH LIMIT.
  !
  ! ARGUMENT IN:
  ! OMEGA: WAVENUMBER, UNITS: CM-1
  ! SOOT_VOLUME_FRAC: SOOT VOLUME FRACTION. NO UNITS
  ! PATH_LENGTH_CM: PHYSICAL PATH LENGTH. UNITS IN CM
  ! TEMP: TEMPERATURE IN KELVIN
  !
  ! ARGUMENT OUT:
  ! X_PARTICLE: OPTICLE DEPTH DUE TO THE PRESENCE OF SOOT PARTICLE. NO UNITS.
  !*-----------------------------------------------------------------------------
  
  IMPLICIT NONE (TYPE,EXTERNAL)
  
  ! VARIABLES PASSED IN:
  
  REAL(EB), INTENT(IN) :: OMEGA, PATH_LENGTH_CM, SOOT_VOLUME_FRAC, TEMP
  
  ! VARIBLES PASSED OUT: X_PARTICLE: PARTICLE OPTICAL DEPTH
  
  REAL(EB), INTENT(OUT) :: X_PARTICLE
  
  ! LOCALS
  
  REAL(EB) :: ABCO,FF,LAMBDA,RIN,RIK
  
  LAMBDA = 10000._EB/OMEGA
  
  ! H. CHANG, T. T. CHARALAMPOPOULOS, DETERMINATION OF THE WAVELENGTH DEPENDENCE OF REFRACTIVE INDICES OF FLAME SOOT,
  ! PROCEEDINGS: MATHEMATICAL AND PHYSICAL SCIENCES 430 (1880) (1990) 577591
  RIN=1.811_EB + 0.1263_EB*log(LAMBDA) + 0.0270_EB*(log(LAMBDA))**2 + 0.0417_EB*(log(LAMBDA))**3;
  RIK=0.5821_EB + 0.1213_EB*log(LAMBDA) + 0.2309_EB*(log(LAMBDA))**2 + 0.0100_EB*(log(LAMBDA))**3;
  
  ! ABSORPTION COEF. IS BASED UPON MEASUREMENTS OF DALZELL AND
  ! SAROFIM
  IF (AEROSOL_AL2O3) THEN
     IF (TEMP > 2570._EB) THEN
        FF = 0.017_EB
     ELSEIF (TEMP < 500._EB) THEN
        FF = 5.E-6_EB
     ELSE
        FF = 0.00073_EB
     ENDIF
  ELSE
      FF = 36.0_EB*PI*RIN*RIK/LAMBDA/((RIN**2-RIK**2+2.0_EB)**2+(2.0_EB*RIN*RIK)**2)
  ENDIF
  ABCO       = FF*SOOT_VOLUME_FRAC*1.E6_EB
  X_PARTICLE = ABCO*PATH_LENGTH_CM*CM_TO_M
  
  
  !------------------------------------------------------------------------------
  RETURN
  END SUBROUTINE POD
  
  
  !==============================================================================
  SUBROUTINE CH4_OLD(OMEGA,TEMP,PCH4,PTOT,GC3,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  INTEGER I,J
  REAL(EB) OMEGA,TEMP,PCH4,PTOT,GC3,SDWEAK,GDINV,GDDINV,BE,Q2, &
     WM,GD,OM1,OM2,OM3,OM4,COM1,COM2,COM3,COM4,DINV,PE,W1,SDB, &
     SDA,SDC,Q2OT,AZOT,TOAZ
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB), DIMENSION(4) :: ATOT, BCNT
  
  I_MODEL = I_MODEL_CH4
  
  IF(OMEGA>5000._EB .OR. OMEGA<1125._EB) THEN
  
  SDWEAK=0.0_EB
  GDINV=1._EB
  GDDINV=1._EB
  
  ELSE
  
  BE=5.2412_EB
  Q2=1.4388_EB
  WM=16._EB
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  GD=5.94E-6_EB*OMEGA*SQRT(TOAZ)/4._EB
  
  IF(OMEGA>=3400._EB) THEN
  
  ! CONTRIBUTION TO 2.4 MICRON BAND FROM (0000)-(0110), (0000)-(0011),
  ! (0000)-(1001), AND (0000)-(0102) TRANS.  THE INTEGRATED BAND INTENSITIES
  ! OF VINCENT-GEISSE (ANNALES DE PHYSIQUE SER.12, V. 10, 1955) HAVE
  ! BEEN MULTIPLIED BY A FACTOR OF 4 AND THE LINE SPACING IS THAT
  ! OF V4 FROM GRAY AND PENNER (JQSRT V. 5, 1965).
  
     OM1=2914.2_EB
     OM2=1526.0_EB
     OM3=3020.3_EB
     OM4=1306.2_EB
  
     BCNT(1) = 4123.0_EB
     BCNT(2) = 4216.3_EB
     BCNT(3) = 4313.2_EB
     BCNT(4) = 4546.0_EB
  
     COM1=OM2+2._EB*OM4
     COM2=OM1+OM4
     COM3=OM3+OM4
     COM4=OM2+OM3
  
     ATOT(1)=0.64_EB*AZOT*(1._EB-EXP(Q2OT*COM1))/((1._EB-EXP(Q2OT*OM2))*(1._EB-EXP(Q2OT*OM4))**2)
     ATOT(2)=17.6_EB*AZOT*(1._EB-EXP(Q2OT*COM2))/((1._EB-EXP(Q2OT*OM1))*(1._EB-EXP(Q2OT*OM4)))
     ATOT(3)=14.8_EB*AZOT*(1._EB-EXP(Q2OT*COM3))/((1._EB-EXP(Q2OT*OM3))*(1._EB-EXP(Q2OT*OM4)))
     ATOT(4)=5.04_EB*AZOT*(1._EB-EXP(Q2OT*COM4))/((1._EB-EXP(Q2OT*OM2))*(1._EB-EXP(Q2OT*OM3)))
  
     DINV=1._EB/5.74_EB
     GDINV=GC3*DINV
     GDDINV=GD*DINV
     SDWEAK=0.0_EB
  
     DO I=1,4
        SDWEAK=SDWEAK+2._EB*(OMEGA-BCNT(I))**2*(-Q2OT*BE)**1.5_EB*ATOT(I)/SQRTPI*DINV**3*EXP(Q2OT*BE*DINV**2 &
        *(OMEGA-BCNT(I))**2)
     ENDDO
     SDWEAK=SDWEAK*TOAZ
  ELSE
     PE=PTOT+.3_EB*PCH4
  
     IF(OMEGA>=2625._EB) THEN
  ! CONTRIBUTION TO 3.3 MICRON BAND FROM (0000)-(0010) TRANS.
  ! REFER TO BROSMER AND TIEN, JQSRT V. 33, P. 521
  
        GDINV  = .00734_EB*PE*SQRT(AZOT)*EXP(1.02_EB*(TOAZ-1._EB))
        GDDINV = GD/9.4_EB
  
        J  = INT((OMEGA-2600._EB)/25._EB)
        W1 = 2600._EB+25._EB*REAL(J,EB)
        SDB= SD3(2,J)+(OMEGA-W1)/25._EB*(SD3(2,J+1)-SD3(2,J))
  
        IF(TEMP>600._EB) THEN
           SDC=SD3(3,J)+(OMEGA-W1)/25._EB*(SD3(3,J+1)-SD3(3,J))
           SDWEAK=SDB+(TEMP-600._EB)/250._EB*(SDC-SDB)
           IF(SDWEAK<0._EB)SDWEAK=0._EB
        ELSE
           SDA=SD3(1,J)+(OMEGA-W1)/25._EB*(SD3(1,J+1)-SD3(1,J))
           SDWEAK=SDA+(TEMP-290._EB)/310._EB*(SDB-SDA)
           IF(SDWEAK<0._EB)SDWEAK=0._EB
        ENDIF
  
     ELSEIF(OMEGA>1450._EB) THEN
  
        SDWEAK=0.0_EB
        GDINV=1._EB
        GDDINV=1._EB
  
     ELSE
  ! CONTRIBUTION TO 7.7 MICRON BAND FROM (0000)-(0001) TRANS.
  ! REFER TO BROSMER AND TIEN, JQSRT V. 33, P. 521.
        GDINV  = .0243_EB*PE*(TOAZ)**.8_EB
        GDDINV = GD/5.1_EB
  
        J   = INT((OMEGA-1100._EB)/25._EB)
        W1  = 1100._EB+25._EB*REAL(J,EB)
        SDB = SD7(2,J)+(OMEGA-W1)/25._EB*(SD7(2,J+1)-SD7(2,J))
  
        IF(TEMP>600._EB) THEN
           SDC = SD7(3,J)+(OMEGA-W1)/25._EB*(SD7(3,J+1)-SD7(3,J))
           SDWEAK = SDB+(TEMP-600._EB)/250._EB*(SDC-SDB)
           IF(SDWEAK<0._EB)SDWEAK=0._EB
        ELSE
           SDA = SD7(1,J)+(OMEGA-W1)/25._EB*(SD7(1,J+1)-SD7(1,J))
           SDWEAK = SDA+(TEMP-290._EB)/310._EB*(SDB-SDA)
           IF(SDWEAK<0._EB)SDWEAK=0._EB
        ENDIF
     ENDIF
  ENDIF
  ENDIF
  !------------------------------------------------------------------------------
  END SUBROUTINE CH4_OLD
  
  
  !==============================================================================
  SUBROUTINE CH4(OMEGA,TEMP,PCH4,PTOT,GC3,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  !! COMPUTE METHANE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !!
  !! BAND #1: 1150 CM-1 - 1600 CM-1
  !! BAND #2: 2700 CM-1 - 3250 CM-1
  !! BAND #3: 3400 CM-1 - 5000 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA: (REAL) WAVENUMBER IN CM-1
  ! TEMP : (REAL) TEMPERATURE IN K
  ! PCH4 : (REAL) PARTIAL PRESSURE OF METHANE IN ATM
  ! PTOT : (REAL) TOTAL PRESSURE IN ATM
  ! GC3  : (REAL) COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGH
  !
  ! VRAIBLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! BE_CH4             : (REAL) ROTATIONAL CONSTANT FOR CH4 [CM^-1]
  ! DINV_CH4           : INVERSE LINE SPACING [CM]
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PCH4, PTOT, GC3
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT)  :: I_MODEL
  
  REAL(EB) :: GD, PRESSURE_EFFECTIVE, Q2OT, AZOT, TOAZ, FACT1
  
  REAL(EB), PARAMETER :: Q2     = 1.4388_EB ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_CH4 = 16.0425_EB
  
  !LINE SPACING D2_CH4=5.74 CM^-1 FOR THE V4 FUNDAMENTAL OF METHANE GRAY & PENNER,612
  !FOOTNOTE AT BOTTOM
  REAL(EB), PARAMETER :: BE_CH4 = 5.248_EB   ! ROTATIONAL CONSTANTS [CM^-1]
  REAL(EB), DIMENSION(3), PARAMETER :: DINV_CH4 = (/1._EB/5.1_EB,1._EB/9.4_EB,1._EB/5.74_EB/)
  
  REAL(EB), DIMENSION(4), PARAMETER :: &
                 OM_CH4  = (/2914.2_EB, 1526.0_EB, 3020.3_EB, 1306.2_EB/),                                               &
                 COM_CH4 = (/1526.0_EB+2._EB*1306.2_EB, 2914.2_EB+1306.2_EB, 3020.3_EB+1306.2_EB, 1526.0_EB+3020.3_EB/), &
                 S2_CH4  = (/0.64_EB,17.6_EB,14.8_EB,5.04_EB/)
  
  REAL(EB), DIMENSION(4) :: ATOT
  
  INTEGER I
  
  I_MODEL = I_MODEL_CH4
  
  ! INITIALIZE OUTPUT
  
  SDWEAK = 0.0_EB  !SPECTRAL ABSORPTION COEFFICIENT.
  GDINV  = 1._EB   !LINE WIDTH TO LINE SPACING RATIO: FINE STRUCTURE PARAMETER
  GDDINV = 1._EB   !LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING FINE STRUCTURE PARAMETER
  
  ! INITIALIZE SOME COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPLLER HALF-WIDTH. EQ 5-35
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_CH4) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE EFFECTIVE PRESSURE. BROSMER & TIEN,524 EQ. 7 (SPECIFIC TO METHANE)
  PRESSURE_EFFECTIVE = PTOT+.3_EB*PCH4
  
  !------------------------------------------------------------------------------
  ! COMPUTED PROPERTIES 2.4 MICRON BAND, BAND #3: 3400 CM-1 - 5000 CM-1
  IF((OM_BND_CH4(N_BAND_CH4,1)<=OMEGA).AND.(OMEGA<=OM_BND_CH4(N_BAND_CH4,2))) THEN
  
     ! CONTRIBUTION OF THE V1+V4 COMBINAISON BAND (2.4 MICRON)
     ! CONTRIBUTION TO 2.4 MICRON BAND FROM
     ! (0000)-(0102)
     ! (0000)-(1001)
     ! (0000)-(0011)
     ! (0000)-(0110) TRANSITIONS
     ! THE INTEGRATED BAND INTENSITIES (S2_CH4)
     ! OF VINCENT-GEISSE (ANNALES DE PHYSIQUE SER.12, V. 10, 1955) HAVE
     ! BEEN MULTIPLIED BY A FACTOR OF 4
     ! THE LINE SPACING (1/DINV_CH4) IS THAT
     ! OF V4 FROM GRAY AND PENNER (JQSRT V. 5, 1965).
  
     ATOT(1) = S2_CH4(1)*AZOT*(1._EB-EXP(Q2OT*COM_CH4(1)))/((1._EB-EXP(Q2OT*OM_CH4(2)))*(1._EB-EXP(Q2OT*OM_CH4(4)))**2)
     ATOT(2) = S2_CH4(2)*AZOT*(1._EB-EXP(Q2OT*COM_CH4(2)))/((1._EB-EXP(Q2OT*OM_CH4(1)))*(1._EB-EXP(Q2OT*OM_CH4(4))))
     ATOT(3) = S2_CH4(3)*AZOT*(1._EB-EXP(Q2OT*COM_CH4(3)))/((1._EB-EXP(Q2OT*OM_CH4(3)))*(1._EB-EXP(Q2OT*OM_CH4(4))))
     ATOT(4) = S2_CH4(4)*AZOT*(1._EB-EXP(Q2OT*COM_CH4(4)))/((1._EB-EXP(Q2OT*OM_CH4(2)))*(1._EB-EXP(Q2OT*OM_CH4(3))))
  
  
     FACT1  = Q2OT*BE_CH4*DINV_CH4(3)**2
  
     DO I=1,4
        SDWEAK = SDWEAK+(OMEGA-COM_CH4(I))**2*ATOT(I)*EXP(FACT1*(OMEGA-COM_CH4(I))**2)
     ENDDO
  
     ! EQ 6 IN GRAY AND PENNER JQSRT, VOL 5, PAGE 611-620, 1965
     SDWEAK=SDWEAK*2._EB*(-Q2OT*BE_CH4)**1.5_EB/SQRTPI*DINV_CH4(3)**3
  
     !***EXPRESS S/D AT STANDARD TEMPERATURE AND PRESSURE, AS IS IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  
     GDINV  = GC3*DINV_CH4(3)
     GDDINV = GD*DINV_CH4(3)
  
  !------------------------------------------------------------------------------
  ! TABULATED PROPERTIES
  ELSE IF((OM_BND_CH4(2,1)<=OMEGA).AND.(OMEGA<OM_BND_CH4(2,2))) THEN
  
     !------------------------------------------------------------------------------
     ! CONTRIBUTION TO 3.3 MICRON BAND, BAND #2: 2700 CM-1 - 3250 CM-1
     ! (0000)-(0010) TRANSITION (V3 FUNDAMENTAL)
     ! 9.4 IS THE AVERAGE LINE POSITION FOR THE 3.3 MICRON BAND (CM^-1)
     ! SOURCE: BROSMER & TIEN, JQSRT V. 33, P. 525 (SPECIFIC TO METHANE)
  
     SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH4_TEMP,OM_BND_CH4(2,:),SD2_CH4)
     ! LINE SHAPE PARAMETER BROSMER & TIEN, JQSRT V. 33, P. 525 EQ. 10 (SPECIFIC TO METHANE)
     GDINV  = .00734_EB*PRESSURE_EFFECTIVE*SQRT(AZOT)*EXP(1.02_EB*(TOAZ-1._EB))
     GDDINV = GD*DINV_CH4(2)
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  
  ELSE IF((OM_BND_CH4(1,1)<=OMEGA).AND.(OMEGA<OM_BND_CH4(1,2))) THEN
     !------------------------------------------------------------------------------
     ! CONTRIBUTION TO 7.7 MICRON BAND, BAND #1: 1150 CM-1 - 1600 CM-1
     ! (0000)-(0001) TRANSITION (V4 FUNDAMENTAL)
     ! 5.1 (CM-1) IS THE AVERAGE LINE POSITION FOR THE 7.7 MICRON BAND
     ! SOURCE: BROSMER & TIEN, JQSRT V. 33, P. 525 (SPECIFIC TO METHANE)
  
     SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH4_TEMP,OM_BND_CH4(1,:),SD1_CH4)
     ! LINE SHAPE PARAMETER BROSMER & TIEN, JQSRT V. 33, 525 EQ. 11 (SPECIFIC TO METHANE)
     GDINV  = .0243_EB*PRESSURE_EFFECTIVE*(TOAZ)**.8_EB
     GDDINV = GD*DINV_CH4(1)
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  !------------------------------------------------------------------------------
  END SUBROUTINE CH4
  
  !==============================================================================
  SUBROUTINE C3H6(OMEGA,TEMP,PC3H6,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  !! COMPUTE PROPYLENE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !!
  !! ABSORPTION BANDS:
  !! THERE ARE 3 BANDS FOR PROPYLENE
  !!
  !! BAND #1: 1250 CM-1 - 1950 CM-1
  !! BAND #2: 2700 CM-1 - 3200 CM-1
  !! BAND #3: 700 CM-1 - 1150 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA  : (REAL) WAVENUMBER IN CM-1
  ! TEMP   : (REAL) TEMPERATURE IN K
  ! PC3H6 : (REAL) PARTIAL PRESSURE OF PROPYLENE
  ! PTOT   : (REAL) TOTAL PRESSURE
  ! GC3    : (REAL) COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGH
  !
  ! VRAIBLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C3H6         : INVERSE LINE SPACING [CM] FOR PROPYLENE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC3H6, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C3H6
  
  REAL(EB), PARAMETER :: Q2       = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C3H6  = 42.0797_EB ! NIST WEBBOOK DATA
  
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C3H6
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C3H6) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! MODEL PROPYLENE AS A PROLATE SYMMETRIC TOP. THE LINE SPACING IS APPROXIMATED TO
  ! 2*ROTATIONAL_CONSTANT B. RECALL THAT ROTATIONAL_CONSTANT B = ROTATIONAL_CONSTANT C
  ! ROTATIONAL_CONSTANT_B OBTAINED FROM CCCBDV WEBSITE, USING EXPERIMENTAL VALUES
  ! PROPYLENE BELONGS TO GROUP CS
  DINV_C3H6 = 1._EB/(2._EB*0.312_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! PROPYLENE HAS THREE BANDS
  ! BAND #1: 775 CM-1 - 1150 CM-1
  ! BAND #2: 1225 CM-1 - 1975 CM-1
  ! BAND #3: 2650 CM-1 - 3275 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C3H6
     IF ((OM_BND_C3H6(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C3H6(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C3H6(I_BAND)-1.0_EB)*PC3H6
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 775 CM-1 - 1150 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,SD1_C3H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,GAMMAD1_C3H6)
        CASE (2) ! BAND #2: 1225 CM-1 - 1975 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,SD2_C3H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,GAMMAD2_C3H6)
        CASE (3) ! BAND #3: 2650 CM-1 - 3275 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,SD3_C3H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H6_TEMP,OM_BND_C3H6(I_BAND,:) ,GAMMAD3_C3H6)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C3H6
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C3H6
  
  !==============================================================================
  SUBROUTINE C3H8(OMEGA,TEMP,PC3H8,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE PROPANE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 2 BANDS FOR PROPANE
  
  ! BAND #1: 1175 CM-1 - 1675 CM-1
  ! BAND #2: 2550 CM-1 - 3375 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA  : (REAL) WAVENUMBER IN CM-1
  ! TEMP   : (REAL) TEMPERATURE IN K
  ! PC3H8 : (REAL) PARTIAL PRESSURE OF PROPANE
  ! PTOT   : (REAL) TOTAL PRESSURE
  ! GC3    : (REAL) COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGH
  !
  ! VRAIBLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C3H8         : INVERSE LINE SPACING [CM] FOR PROPANE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC3H8, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C3H8
  
  REAL(EB), PARAMETER :: Q2       = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C3H8  = 44.0956_EB ! NIST WEBBOOK DATA
  
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C3H8
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C3H8) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! PROPANE IS A PROLATE SYMMETRIC TOP. THE LINE SPACING IS APPROXIMATED TO
  ! 2*ROTATIONAL_CONSTANT B. RECALL THAT ROTATIONAL_CONSTANT B = ROTATIONAL_CONSTANT C
  ! ROTATIONAL_CONSTANT_B OBTAINED FROM CCCBDV WEBSITE, USING EXPERIMENTAL VALUES
  ! PROPANE BELONGS TO GROUP C2V
  DINV_C3H8 = 1._EB/(2._EB*0.28173_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! PROPANE HAS THREE BANDS
  ! BAND #1: 1175 CM-1 - 1675 CM-1
  ! BAND #2: 2550 CM-1 - 3375 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C3H8
     IF ((OM_BND_C3H8(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C3H8(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C3H8(I_BAND)-1.0_EB)*PC3H8
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 1175 CM-1 - 1675 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H8_TEMP,OM_BND_C3H8(I_BAND,:) ,SD1_C3H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H8_TEMP,OM_BND_C3H8(I_BAND,:) ,GAMMAD1_C3H8)
        CASE (2) ! BAND #2: 2550 CM-1 - 3375 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H8_TEMP,OM_BND_C3H8(I_BAND,:) ,SD2_C3H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C3H8_TEMP,OM_BND_C3H8(I_BAND,:) ,GAMMAD2_C3H8)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C3H8
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C3H8
  
  !==============================================================================
  SUBROUTINE C7H16(OMEGA,TEMP,PC7H16,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE HEPTANE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 2 BANDS FOR HEPTANE
  
  ! BAND #1: 1100 CM-1 - 1800 CM-1
  ! BAND #2: 2550 CM-1 - 3275 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA  : (REAL) WAVENUMBER IN CM-1
  ! TEMP   : (REAL) TEMPERATURE IN K
  ! PC7H16 : (REAL) PARTIAL PRESSURE OF HEPTANE
  ! PTOT   : (REAL) TOTAL PRESSURE
  ! GC3    : (REAL) COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGH
  !
  ! VRAIBLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C7H16         : INVERSE LINE SPACING [CM] FOR HEPTANE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC7H16, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C7H16
  
  REAL(EB), PARAMETER :: Q2       = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C7H16 = 100.2019_EB ! NIST WEBBOOK DATA
  
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C7H16
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C7H16) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! N_HEPTANE IS A PROLATE SYMMETRIC TOP. THE LINE SPACING IS APPROXIMATED TO
  ! 2*ROTATIONAL_CONSTANT B. RECALL THAT ROTATIONAL_CONSTANT B = ROTATIONAL_CONSTANT C
  ! ROTATIONAL_CONSTANT_B OBTAINED FROM CCCBDV WEBSITE, USING EXPERIMENTAL VALUES
  ! N-HEPTANE BELONGS TO GROUP C2V
  DINV_C7H16=1._EB/(2.0_EB*0.024_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! HEPTANE HAS THREE BANDS
  ! BAND #1: 1100 CM-1 - 1800 CM-1
  ! BAND #2: 2550 CM-1 - 3275 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C7H16
     IF ((OM_BND_C7H16(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C7H16(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C7H16(I_BAND)-1.0_EB)*PC7H16
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 1175 CM-1 - 1675 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H16_TEMP,OM_BND_C7H16(I_BAND,:),SD1_C7H16)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H16_TEMP,OM_BND_C7H16(I_BAND,:),GAMMAD1_C7H16)
        CASE (2) ! BAND #2: 2550 CM-1 - 3375 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H16_TEMP,OM_BND_C7H16(I_BAND,:),SD2_C7H16)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H16_TEMP,OM_BND_C7H16(I_BAND,:),GAMMAD2_C7H16)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C7H16
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C7H16
  
  !==============================================================================
  SUBROUTINE C7H8(OMEGA,TEMP,PC7H8,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE TOLUENE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 5 BANDS FOR TOLUENE
  
  ! BAND #1: 700 CM-1 - 825 CM-1
  ! BAND #2: 975 CM-1 - 1175 CM-1
  ! BAND #3: 1275 CM-1 - 1675 CM-1
  ! BAND #4: 1650 CM-1 - 2075 CM-1
  ! BAND #5: 2675 CM-1 - 3225 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA  : (REAL) WAVENUMBER IN CM-1
  ! TEMP   : (REAL) TEMPERATURE IN K
  ! PC7H8 : (REAL) PARTIAL PRESSURE OF TOLUENE
  ! PTOT   : (REAL) TOTAL PRESSURE
  ! GC3    : (REAL) COLLISIONAL BROADENING HALF-WIDTH AT HALF HEIGH
  !
  ! VRAIBLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C7H8         : INVERSE LINE SPACING [CM] FOR TOLUENE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC7H8, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C7H8
  
  REAL(EB), PARAMETER :: Q2       = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C7H8  = 92.1384_EB ! NIST WEBBOOK DATA
  
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C7H8
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C7H8) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! TOLUENE BELONGS TO GROUP CS
  ! TOLUENE IS MODEL AS A PROLATE SYMMETRIC TOP. THE LINE SPACING IS APPROXIMATED TO
  ! 2*ROTATIONAL_CONSTANT B. RECALL THAT ROTATIONAL_CONSTANT B = ROTATIONAL_CONSTANT C
  ! ROTATIONAL_CONSTANT_B OBTAINED FROM CCCBDV WEBSITE.  USING EXPERIMENTAL VALUES
  
  DINV_C7H8=1._EB/(2.0_EB*0.084_EB)
  
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! TOLUENE HAS 5 BANDS
  ! BAND #1: 700 CM-1 - 825 CM-1
  ! BAND #2: 975 CM-1 - 1175 CM-1
  ! BAND #3: 1275 CM-1 - 1675 CM-1
  ! BAND #4: 1650 CM-1 - 2075 CM-1
  ! BAND #5: 2675 CM-1 - 3225 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C7H8
     IF ((OM_BND_C7H8(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C7H8(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C7H8(I_BAND)-1.0_EB)*PC7H8
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 700 CM-1 - 825 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),SD1_C7H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),GAMMAD1_C7H8)
        CASE (2) ! BAND #2: 975 CM-1 - 1175 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),SD2_C7H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),GAMMAD2_C7H8)
        CASE (3) ! BAND #3: 1275 CM-1 - 1675 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),SD3_C7H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),GAMMAD3_C7H8)
        CASE (4) ! BAND #4: 1650 CM-1 - 2075 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),SD4_C7H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),GAMMAD4_C7H8)
        CASE (5) ! BAND #5: 2675 CM-1 - 3225 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),SD5_C7H8)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C7H8_TEMP,OM_BND_C7H8(I_BAND,:),GAMMAD5_C7H8)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C7H8
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C7H8
  
  
  !==============================================================================
  SUBROUTINE CH3OH(OMEGA,TEMP,PCH3OH,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE METHANOL OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 4 BANDS FOR METHANOL
  
  ! BAND #1: 825 CM-1 - 1150 CM-1
  ! BAND #2: 1125 CM-1 - 1700 CM-1
  ! BAND #3: 2600 CM-1 - 3225 CM-1
  ! BAND #4: 3525 CM-1 - 3850 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA  : (REAL) WAVENUMBER IN CM-1
  ! TEMP   : (REAL) TEMPERATURE IN K
  ! PCH3OH : (REAL) PARTIAL PRESSURE OF METHANOL
  ! PTOT   : (REAL) TOTAL PRESSURE
  !
  ! VARIABLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_CH3OH         : INVERSE LINE SPACING [CM] FOR METHANOL
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PCH3OH, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_CH3OH
  
  REAL(EB), PARAMETER :: Q2       = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_CH3OH = 32.0419_EB ! NIST WEBBOOK DATA
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_CH3OH
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_CH3OH) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! METHANOL BELONGS TO POINT GROUP CS. FOR NOW THE LINE SPACING IS APPROXIMATED TO
  ! 2*ROTATIONAL_CONSTANT B SINCE ROTATIONAL_CONSTANT B ~ ROTATIONAL_CONSTANT C
  ! ROTATIONAL_CONSTANT_B OBTAINED FROM CCCBDV WEBSITE, USING EXPERIMENTAL VALUES
  DINV_CH3OH=1._EB/(2.0_EB*0.82338_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! METHANOL HAS 4 BANDS
  ! BAND #1: 825 CM-1 - 1150 CM-1
  ! BAND #2: 1125 CM-1 - 1700 CM-1
  ! BAND #3: 2600 CM-1 - 3225 CM-1
  ! BAND #4: 3525 CM-1 - 3850 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_CH3OH
     IF ((OM_BND_CH3OH(I,1)<=OMEGA).AND.(OMEGA<OM_BND_CH3OH(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_CH3OH(I_BAND)-1.0_EB)*PCH3OH
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 825 CM-1 - 1150 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,SD1_CH3OH)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,GAMMAD1_CH3OH)
        CASE (2) ! BAND #2: 1125 CM-1 - 1700 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,SD2_CH3OH)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,GAMMAD2_CH3OH)
        CASE (3) ! BAND #3: 2600 CM-1 - 3225 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,SD3_CH3OH)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,GAMMAD3_CH3OH)
        CASE (4) ! BAND #4: 3525 CM-1 - 3850 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,SD4_CH3OH)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_CH3OH_TEMP,OM_BND_CH3OH(I_BAND,:) ,GAMMAD4_CH3OH)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_CH3OH
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE CH3OH
  
  !==============================================================================
  SUBROUTINE C5H8O2(OMEGA,TEMP,PC5H8O2,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE MMA OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 6 BANDS FOR MMA
  ! BAND #1: 750 CM-1 - 900 CM-1
  ! BAND #2: 875 CM-1 - 1075 CM-1
  ! BAND #3: 1050 CM-1 - 1275 CM-1
  ! BAND #4: 1250 CM-1 - 1575 CM-1
  ! BAND #5: 1550 CM-1 - 1975 CM-1
  ! BAND #6: 2650 CM-1 - 3275 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA   : (REAL) WAVENUMBER IN CM-1
  ! TEMP    : (REAL) TEMPERATURE IN K
  ! PC5H8O2 : (REAL) PARTIAL PRESSURE OF MMA
  ! PTOT    : (REAL) TOTAL PRESSURE
  !
  ! VARIABLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C5H8O2         : INVERSE LINE SPACING [CM] FOR MMA
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC5H8O2, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C5H8O2
  
  REAL(EB), PARAMETER :: Q2        = 1.4388_EB   ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C5H8O2 = 100.1158_EB ! NIST WEBBOOK DATA
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C5H8O2
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C5H8O2) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! MMA BELONGS TO POINT GROUP ? FOR NOW USING DATA FROM ACETYLACETONE (C5H8O2)
  DINV_C5H8O2=1._EB/(2.0_EB*0.067_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! THERE ARE 6 BANDS FOR MMA
  ! BAND #1: 750 CM-1 - 900 CM-1
  ! BAND #2: 875 CM-1 - 1075 CM-1
  ! BAND #3: 1050 CM-1 - 1275 CM-1
  ! BAND #4: 1250 CM-1 - 1575 CM-1
  ! BAND #5: 1550 CM-1 - 1975 CM-1
  ! BAND #6: 2650 CM-1 - 3275 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C5H8O2
     IF ((OM_BND_C5H8O2(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C5H8O2(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C5H8O2(I_BAND)-1.0_EB)*PC5H8O2
  
     SELECT CASE (I_BAND)
        CASE (1) ! BAND #1: 750 CM-1 - 900 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD1_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD1_C5H8O2)
        CASE (2) ! BAND #2: 875 CM-1 - 1075 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD2_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD2_C5H8O2)
        CASE (3) ! BAND #3: 1050 CM-1 - 1275 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD3_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD3_C5H8O2)
        CASE (4) ! BAND #4: 1250 CM-1 - 1575 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD4_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD4_C5H8O2)
        CASE (5) ! BAND #5: 1550 CM-1 - 1975 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD5_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD5_C5H8O2)
        CASE (6) ! BAND #6: 2650 CM-1 - 3275 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),SD6_C5H8O2)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C5H8O2_TEMP,OM_BND_C5H8O2(I_BAND,:),GAMMAD6_C5H8O2)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C5H8O2
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C5H8O2
  
  
  !==============================================================================
  SUBROUTINE C2H6(OMEGA,TEMP,PC2H6,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE ETHANE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 3 BANDS FOR ETHANE
  ! BAND #1: 750 CM-1 - 1100 CM-1
  ! BAND #2: 1250 CM-1 - 1700 CM-1
  ! BAND #3: 2550 CM-1 - 3375 CM-1
  
  !
  ! VARIABLES PASSED IN
  ! OMEGA   : (REAL) WAVENUMBER IN CM-1
  ! TEMP    : (REAL) TEMPERATURE IN K
  ! PC2H6 : (REAL) PARTIAL PRESSURE OF ETHANE
  ! PTOT    : (REAL) TOTAL PRESSURE
  !
  ! VARIABLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C2H6         : INVERSE LINE SPACING [CM] FOR ETHANE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC2H6, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C2H6
  
  REAL(EB), PARAMETER :: Q2      = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C2H6 = 30.0690_EB ! NIST WEBBOOK DATA
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C2H6
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C2H6) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! ETHANE BELONGS TO POINT GROUP D3D WITH ROTATIONAL CONSTANT A = 2.51967 CM-1
  ! B = 0.68341 CM-1, AND C = 0.68341 CM-1.
  DINV_C2H6=1._EB/(2.0_EB*0.68341_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! THERE ARE 3 BANDS FOR ETHANE
  ! BAND #1: 750 CM-1 - 1100 CM-1
  ! BAND #2: 1250 CM-1 - 1700 CM-1
  ! BAND #3: 2550 CM-1 - 3375 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C2H6
     IF ((OM_BND_C2H6(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C2H6(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C2H6(I_BAND)-1.0_EB)*PC2H6
  
     SELECT CASE (I_BAND)
        CASE (1)  ! BAND #1:  750 CM-1 - 1100 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),SD1_C2H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),GAMMAD1_C2H6)
        CASE (2) ! BAND #2: 1250 CM-1 - 1700 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),SD2_C2H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),GAMMAD2_C2H6)
        CASE (3) ! BAND #3: 2550 CM-1 - 3375 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),SD3_C2H6)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H6_TEMP,OM_BND_C2H6(I_BAND,:),GAMMAD3_C2H6)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C2H6
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C2H6
  
  
  !==============================================================================
  SUBROUTINE C2H4(OMEGA,TEMP,PC2H4,PTOT,SDWEAK,GDINV,GDDINV,I_MODEL)
  !==============================================================================
  ! COMPUTE ETHYLENE OPTICAL PROPERTIES USING SINGLE LINE GROUP
  !
  ! ABSORPTION BANDS:
  ! THERE ARE 4 BANDS FOR ETHYLENE
  ! BAND #1: 800 CM-1  - 1250 CM-1
  ! BAND #2: 1325 CM-1 - 1575 CM-1
  ! BAND #3: 1775 CM-1 - 2050 CM-1
  ! BAND #4: 2825 CM-1 - 3350 CM-1
  !
  ! VARIABLES PASSED IN
  ! OMEGA   : (REAL) WAVENUMBER IN CM-1
  ! TEMP    : (REAL) TEMPERATURE IN K
  ! PC2H4 : (REAL) PARTIAL PRESSURE OF ETHYLENE
  ! PTOT    : (REAL) TOTAL PRESSURE
  !
  ! VARIABLES PASSED OUT
  ! SDWEAK : (REAL) SPECTRAL ABSORPTION COEFFICIENT
  ! GDINV  : (REAL) LINE WIDTH TO LINE SPACING RATIO, FINE STRUCTURE PARAMETER
  ! GDDINV : (REAL) LINE WIDTH TO LINE SPACING RATIO FOR DOPPLER BORADENING,
  !                 FINE STRUCTURE PARAMETER
  ! I_MODEL: (INTEGER) MODEL USED FOR SNB FITTING: 1: GOODY, 2 MALKMUS, 3 ELSASSER
  
  ! LOCALS
  ! PRESSURE_EFFECTIVE : (REAL) EFFECTIVE PRESSURE, (FORMELY PE)
  ! DINV_C2H4          : INVERSE LINE SPACING [CM] FOR ETHYLENE
  
  REAL(EB), INTENT(IN)  :: OMEGA, TEMP, PC2H4, PTOT
  REAL(EB), INTENT(OUT) :: SDWEAK, GDINV, GDDINV
  
  INTEGER, INTENT(OUT) :: I_MODEL
  
  REAL(EB) :: Q2OT, AZOT, TOAZ
  REAL(EB) :: GD, PRESSURE_EFFECTIVE
  REAL(EB) :: DINV_C2H4
  
  REAL(EB), PARAMETER :: Q2      = 1.4388_EB  ! Q2 = SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL(EB), PARAMETER :: WM_C2H4 = 28.0532_EB ! NIST WEBBOOK DATA
  INTEGER :: I_BAND, I
  
  LOGICAL :: IN_BAND ! TRUE IF OMEGA IS WITHIN SOME TABULATED BAND, FALSE OTHERWISE
  
  ! GET MODEL FOR SNB FITTING
  
  I_MODEL = I_MODEL_C2H4
  I_BAND  = 0
  IN_BAND = .FALSE.
  
  ! SET INITIAL VALUES TO SDWEAK, GDINV, GDDINV - VALUES ARE RETURNED IF OMEGA IS NOT
  ! WITHIN ABSORPTION BANDS
  SDWEAK = 0.0_EB
  GDINV  = 1._EB
  GDDINV = 1._EB
  
  ! COMPUTE THERMAL COEFFICIENTS
  Q2OT = -Q2/TEMP
  AZOT = 273._EB/TEMP
  TOAZ = TEMP/273._EB
  
  ! COMPUTE DOPPLER BROADENING HALF WIDTH GD
  GD   = 5.94E-6_EB*OMEGA*SQRT(TOAZ/WM_C2H4) !DOPPLER HALF WIDTH [CM^-1]. NASA,222
  
  ! COMPUTE AVERAGE LINE SPACING
  ! ETHYLENE BELONGS TO POINT GROUP D2H WITH ROTATIONAL CONSTANT A = 4.828 CM-1
  ! B = 1.0012 CM-1, AND C = 0.8282 CM-1. WE MAKE THE ASSUMPTION B ~ C
  DINV_C2H4=1._EB/(2.0_EB*1.0012_EB)
  
  ! IF OMEGA IS WITHIN ABSORPTION BAND, THEN COMPUTE SDWEAK FROM TABULATED DATA
  ! THERE ARE 4 BANDS FOR ETHYLENE
  ! BAND #1: 800 CM-1  - 1250 CM-1
  ! BAND #2: 1325 CM-1 - 1575 CM-1
  ! BAND #3: 1775 CM-1 - 2050 CM-1
  ! BAND #4: 2825 CM-1 - 3350 CM-1
  
  ! GET THE INDEX OF THE BAND
  BAND: DO I = 1, N_BAND_C2H4
     IF ((OM_BND_C2H4(I,1)<=OMEGA).AND.(OMEGA<OM_BND_C2H4(I,2))) THEN
        IN_BAND = .TRUE.
        I_BAND  = I
        EXIT BAND
     ENDIF
  ENDDO BAND
  
  IF (IN_BAND) THEN
  
     PRESSURE_EFFECTIVE = PTOT+(BE_C2H4(I_BAND)-1.0_EB)*PC2H4
  
     SELECT CASE (I_BAND)
        CASE (1)  ! BAND #1: 800 CM-1  - 1250 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),SD1_C2H4)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),GAMMAD1_C2H4)
        CASE (2) ! BAND #2: 1325 CM-1 - 1575 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),SD2_C2H4)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),GAMMAD2_C2H4)
        CASE (3) ! BAND #3: 1775 CM-1 - 2050 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),SD3_C2H4)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),GAMMAD3_C2H4)
        CASE (4) ! BAND #4: 2825 CM-1 - 3350 CM-1
           SDWEAK = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),SD4_C2H4)
           GDINV  = GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_C2H4_TEMP,OM_BND_C2H4(I_BAND,:),GAMMAD4_C2H4)
     END SELECT
  
     ! COMPUTE PROPERTIES
     GDINV  = GDINV*PRESSURE_EFFECTIVE
     GDDINV = GD*DINV_C2H4
     !***EXPRESS S/D AT STP, AS IS K IN NASA SP-3080
     SDWEAK = SDWEAK*TOAZ
  ENDIF
  
  RETURN
  !------------------------------------------------------------------------------
  END SUBROUTINE C2H4
  
  !==============================================================================
  PURE REAL(EB) FUNCTION GET_SPECTRAL_ABSORPTION(OMEGA,TEMP,SD_TEMP,BOUNDS,ABSORPTION_DATA)
  !==============================================================================
  ! RETURNS INTERPOLATED VALUES OF SPECTRAL ABSORPTION
  ! NOTE ASSUMED SHAPE
  !
  ! INPUT:
  ! OMEGA  : WAVENUMBER, UNIT = 1/CM
  ! TEMP   : GAS TEMPERATURE, UNIT = KELVIN
  ! SD_TEMP: VECTOR OF TEMPERATURE MEASUREMENTS, DIMENSION(*) UNIT = KELVIN
  ! BOUNDS : VECTOR OF WAVENUMBER BOUNDS AND SPACING FOR A GIVEN BAND, DIMENSIONS(3)
  ! ABSORPTION_DATA: ARRAY OF SPECIES SPECTRAL MEASUREMENTS, DIMENSIONS(*,*)
  !                 NOTE = FIRST DIMENSION EQUALS TO DIMENSION OF SD_TEMP
  !
  ! ACTION PERFORMED: BILINEAR INTERPOLATION OF ABSORPTION_DATA
  !------------------------------------------------------------------------------
  ! VARIABLES PASSED IN
  
  REAL(EB), INTENT(IN) :: OMEGA
  REAL(EB), INTENT(IN) :: TEMP
  REAL(EB), DIMENSION(:), INTENT(IN)   :: SD_TEMP, BOUNDS
  REAL(EB), DIMENSION(:,:), INTENT(IN) :: ABSORPTION_DATA
  
  REAL(EB) :: DELTA_T
  REAL(EB) :: DELTA_W
  REAL(EB) :: W1
  REAL(EB) :: OMEGA_MIN, OMEGA_MAX, DELTA_OMEGA
  REAL(EB) :: TTEMP
  REAL(EB) :: INTERPOLATED_VALUE
  
  INTEGER :: N_TEMP, N_BOUNDS, N_ABS_DATA1, N_ABS_DATA2
  INTEGER :: I_OMEGA, I_TEMP, I_OMEGA1, I_OMEGA2
  
  LOGICAL :: CROSS
  
  CROSS = .FALSE.
  
  ! CVL NEED TO LINK MODULE THAT DEFINES ERRMSG
  ! PART OF THE CODE COMMENTED FOR NOW
  !  CHARACTER(255) MESSAG
  !  LOGICAL FATAL
  
  N_TEMP      = UBOUND(SD_TEMP,1)  ! GET NUMBER OF TEMPERATURE MEASUREMENTS
  N_BOUNDS    = UBOUND(BOUNDS,1)   ! GET NUMBER OF ELEMENTS IN BOUNDS. SHOULD BE 3
  N_ABS_DATA1 = UBOUND(ABSORPTION_DATA,1) ! GET NUMBER OF TEMPERATURE DATA
  N_ABS_DATA2 = UBOUND(ABSORPTION_DATA,2) ! GET NUMBER OF WAVENUMBER DATA
  
  ! ! CVL NEED TO LINK MODULE THAT DEFINES ERRMSG
  ! ! PART OF THE CODE COMMENTED FOR NOW
  ! !-----------------------------TEST DIMENSIONS OF BOUNDS AND ABSORPTION_DATA----
  ! ! N_BOUNDS SHOULD BE 3
  !
  !  IF (N_BOUNDS/=3) THEN
  !     MESSAG='ERROR IN RADCAL. N_BOUNDS SHOULD BE EQUAL TO 3'
  !     FATAL = .TRUE.
  !     CALL ERRMSG( TRIM(MESSAG), FATAL )
  !  ENDIF
  !
  ! ! N_ABS_DATA1 SHOULD BE EQUAL TO N_TEMP
  !
  !  IF (N_ABS_DATA1/=N_TEMP) THEN
  !     MESSAG='ERROR IN RADCAL. FIRST DIMENSION OF ABSORPTION_DATA SHOULD BE EQUAL TO N_TEMP'
  !     FATAL = .TRUE.
  !     CALL ERRMSG( TRIM(MESSAG), FATAL )
  !  ENDIF
  
  !------------------------------------------------------------------------------
  OMEGA_MIN   = BOUNDS(1)
  OMEGA_MAX   = BOUNDS(2)
  DELTA_OMEGA = BOUNDS(3)
  
  ! TREAT SPECIAL CASE WHEN BAND CROSSES THE 1100 CM-1 MARK.
  ! CHANGES OF STRIDE
  ! BELOW 1100 CM-1, DELTA_OMEGA = 5 CM-1
  ! ABOVE 1100 CM-1, DELTA_OMEGA = 25 CM-1
  
  IF ((OMEGA_MIN<=1100.0_EB).AND.(OMEGA_MAX>1100.0_EB)) THEN
  CROSS = .TRUE.
  IF (OMEGA>1100._EB) DELTA_OMEGA = 25.0_EB
  ENDIF
  
  ! BOUNDS TTEMP SO THAT MIN(SD_TEMP) <= TTEMP <= MAX(SD_TEMP)
  ! IF TTEMP < MIN(SD_TEMP) THEN TTEMP := MIN(SD_TEMP)
  ! IF MAX(SD_TEMP) < TTEMP THEN TTEMP := MAX(SD_TEMP)
  TTEMP       = MIN(MAXVAL(SD_TEMP),MAX(TEMP,MINVAL(SD_TEMP)))
  
  IF (TTEMP <= MINVAL(SD_TEMP)) THEN
     I_TEMP  = 1
     DELTA_T = 0._EB
  ELSE IF (TTEMP >= MAXVAL(SD_TEMP)) THEN
     I_TEMP  = N_TEMP-1
     DELTA_T = 1.0_EB
  ELSE
  ! FIND INDEX I_TEMP SUCH THAT SD_TEMP(I_TEMP)<TTEMP<=SD_TEMP(I_TEMP+1)
     DO I_TEMP = 1, N_TEMP-1
        IF ((SD_TEMP(I_TEMP)<TTEMP).AND.(TTEMP<=SD_TEMP(I_TEMP+1))) EXIT
     ENDDO
  
     DELTA_T = (TTEMP-SD_TEMP(I_TEMP))/(SD_TEMP(I_TEMP+1)-SD_TEMP(I_TEMP))
  ENDIF
  
  IF ((OMEGA_MIN<=OMEGA).AND.(OMEGA<=OMEGA_MAX)) THEN
  
     IF(.NOT.(CROSS)) THEN ! THE BAND IS ON EITHER SIDE OF THE 1100 CM-1 MARK
  
        IF(OMEGA<OMEGA_MAX) THEN
  ! FIND I_OMEGA SUCH THAT OMEGA(I_OMEGA)<=OMEGA<OMEGA(I_OMEGA+1)
           I_OMEGA = FLOOR((OMEGA-OMEGA_MIN)/DELTA_OMEGA)+1
           I_OMEGA = MIN(I_OMEGA,N_ABS_DATA2-1)
           W1      = OMEGA_MIN+DELTA_OMEGA*(REAL(I_OMEGA-1,EB))
           DELTA_W = (OMEGA-W1)/DELTA_OMEGA
        ELSE
  ! CASE I_OMEGA = OMEGA_MAX => ASSUME THEN THAT I_OMEGA = N_ABS_DATA2 -1
           I_OMEGA = N_ABS_DATA2 - 1
           W1      = OMEGA_MIN+DELTA_OMEGA*(REAL(I_OMEGA-1,EB))
           DELTA_W = (OMEGA-W1)/DELTA_OMEGA
        ENDIF
  
     ELSE ! THE BAND IS ON BOTH SIDE OF 1100 CM-1
        ! TEST IF OMEGA <= 1100
        IF(OMEGA<=1100) THEN
  ! FIND I_OMEGA SUCH THAT OMEGA(I_OMEGA)<=OMEGA<OMEGA(I_OMEGA+1)
           I_OMEGA = FLOOR((OMEGA-OMEGA_MIN)/DELTA_OMEGA)+1
           I_OMEGA = MIN(I_OMEGA,N_ABS_DATA2-1)
           W1      = OMEGA_MIN+DELTA_OMEGA*(REAL(I_OMEGA-1,EB))
           DELTA_W = (OMEGA-W1)/DELTA_OMEGA
        ELSE
  ! CASE OMEGA > 1100 CM-1
           I_OMEGA1 = FLOOR((1100-OMEGA_MIN)/5.0_EB)+1
           I_OMEGA2 = FLOOR((OMEGA-1100)/DELTA_OMEGA)
           I_OMEGA  = MIN(I_OMEGA1+I_OMEGA2-1,N_ABS_DATA2-1)
           W1      = OMEGA_MIN+5.0_EB*(REAL(I_OMEGA1,EB))+DELTA_OMEGA*(REAL(I_OMEGA2-1,EB))
           DELTA_W = (OMEGA-W1)/DELTA_OMEGA
        ENDIF
  
     ENDIF
  
  ! PERFORM BILINEAR INTERPOLATION TO OBTAIN VALUES OF SDWEAK
     INTERPOLATED_VALUE = (1._EB-DELTA_W)*((1._EB-DELTA_T)*ABSORPTION_DATA(I_TEMP,I_OMEGA)+ &
                          ABSORPTION_DATA(I_TEMP+1,I_OMEGA)*DELTA_T) +                      &
                          DELTA_W*(ABSORPTION_DATA(I_TEMP,I_OMEGA+1)*(1._EB-DELTA_T)+       &
                          ABSORPTION_DATA(I_TEMP+1,I_OMEGA+1)*DELTA_T)
  
  ELSE
     INTERPOLATED_VALUE = 0._EB
  ENDIF
  
  ! ENSURE POSITIVITY
  GET_SPECTRAL_ABSORPTION = MAX(0._EB,INTERPOLATED_VALUE)
  !------------------------------------------------------------------------------
  END FUNCTION GET_SPECTRAL_ABSORPTION
  
  !> \brief Computes blackbody function (W/m2/um/sr)
  !>
  !> \param TEMP Temperature (K)
  !> \param LAMBDA Wavelength (um)
  
  ELEMENTAL REAL(EB) FUNCTION PLANCK(TEMP,LAMBDA)
  
  REAL (EB), INTENT(IN):: TEMP, LAMBDA
  
  REAL (EB), PARAMETER :: Q1 = 1.19088E8_EB !< 2*SPEED_OF_LIGHT^2*PLANCK_CNST
  REAL (EB), PARAMETER :: Q2 = 14388._EB    !< SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL (EB) :: C                            !< LAMBDA*TEMP
  
  IF(ABS(TEMP)<TWO_EPSILON_EB) THEN
     PLANCK = 0._EB
  ELSE
     C = TEMP * LAMBDA
     IF (Q2/C > 38._EB) THEN
        PLANCK = 0._EB
     ELSE
        PLANCK=Q1*(LAMBDA**(-5))/(EXP(Q2/C)-1._EB)
  END IF
  ENDIF
  !------------------------------------------------------------------------------
  END FUNCTION PLANCK
  
  !> \brief Computes blackbody function (W/m2/cm/sr)
  !>
  !> \param TEMP Temperature (K)
  !> \param OMEGA Wavenumber (1/cm)
  
  ELEMENTAL REAL(EB) FUNCTION PLANCK_WN(TEMP,OMEGA)
  
  REAL (EB), INTENT(IN):: TEMP, OMEGA
  
  REAL (EB), PARAMETER :: Q1 = 1.19088E-8_EB !< 2*SPEED_OF_LIGHT^2*PLANCK_CNST
  REAL (EB), PARAMETER :: Q2 = 1.4388_EB     !< SPEED_OF_LIGHT*PLANCK_CNS/BOLTZMANN
  REAL (EB) :: C                             !< TEMP/OMEGA
  
  IF(ABS(TEMP)<TWO_EPSILON_EB) THEN
     PLANCK_WN = 0._EB
  ELSE
     C = TEMP/OMEGA
     IF (Q2/C > 38._EB) THEN
        PLANCK_WN = 0._EB
     ELSE
        PLANCK_WN=Q1*(OMEGA**3)/(EXP(Q2/C)-1._EB)
  END IF
  ENDIF
  !------------------------------------------------------------------------------
  END FUNCTION PLANCK_WN
  
  !> \brief Numerical integration of y(x)
  !>
  !> \details Does not assume any regularity of x. Integration based on Simpson Rule over
  ! non regular abscissa based on Lagrangian interpolation using 3 points (quadratic interpolation).
  !>
  !> \param Y array of y(x)
  !> \param X array of x
  
  REAL(EB) FUNCTION INTEGRATION(X,Y)
  
  REAL(EB), INTENT(IN), DIMENSION(:) :: X,Y
  
  REAL(EB) :: ALPHA, BETA, GAMMA, B, A, SEGMENT_INT
  INTEGER  :: I_POINT, N_POINTS, I, J ,K
  
  ! GET NUMBER OF ELEMENTS CONTAINS IN X AND Y
  
  N_POINTS = SIZE(Y)
  
  ! TEST WHETHER SIZE(X) = SIZE(Y). STOP IF CONDITION NOT MET
  IF (SIZE(X)/=N_POINTS) THEN
     WRITE(MESSAGE, '(A)') 'ERROR 2: (INTERNAL) VECTOR X AND Y FOR INTEGRATION SHOULD HAVE SAME SIZE(.'
     CALL SHUTDOWN(MESSAGE)
  ENDIF
  
  ! TEST WHETHER N_POINTS IS GREATER OR EQUAL TO 3. IF NOT, PRINT ERROR MSG AND STOP RADCAL
  IF (N_POINTS.LT.2) THEN
     WRITE(MESSAGE, '(A)') 'ERROR 3: (INTERNAL) NOT ENOUGH POINTS FOR INTEGRATION.'
     CALL SHUTDOWN(MESSAGE)
  ENDIF
  ! STARTS INTEGRATION
  INTEGRATION = 0.0_EB
  
  ! TREAT FIRST AND LAST SEGMENT IN THE LOOP
  DO I_POINT = 1,N_POINTS
  
     IF (I_POINT == 1) THEN
        I = I_POINT
        J = I_POINT+1
        K = I_POINT+2
  
        A = X(I)
        B = 0.5_EB*(X(I)+X(J))
     ELSEIF(I_POINT == N_POINTS) THEN
        I = I_POINT-2
        J = I_POINT-1
        K = I_POINT
  
        A = 0.5_EB*(X(J)+X(K))
        B = X(K)
     ELSE
        I = I_POINT-1
        J = I_POINT
        K = I_POINT+1
  
        A = 0.5_EB*(X(I)+X(J))
        B = 0.5_EB*(X(J)+X(K))
     ENDIF
  
     ALPHA = Y(I)/((X(I)-X(J))*(X(I)-X(K)))
     BETA  = Y(J)/((X(J)-X(I))*(X(J)-X(K)))
     GAMMA = Y(K)/((X(K)-X(I))*(X(K)-X(J)))
  
     SEGMENT_INT = 1.0_EB/3.0_EB*(B**3-A**3)*(ALPHA+BETA+GAMMA)
     SEGMENT_INT = SEGMENT_INT - 0.5_EB*(B**2-A**2)*((X(J)+X(K))*ALPHA+BETA*(X(I)+X(K))+GAMMA*(X(I)+X(J)))
     SEGMENT_INT = SEGMENT_INT + (B-A)*(ALPHA*X(J)*X(K)+BETA*X(K)*X(I)+GAMMA*X(J)*X(I))
  
     INTEGRATION = INTEGRATION + SEGMENT_INT
  
  END DO
  
  ! FINALLY INTEGRATION = SIGN(B-A)*INTEGRATION. THIS ACCOUNTS FOR
  ! DESCENDING ORDER VECTOR X.
  
  INTEGRATION = SIGN(1.0_EB,B-A)*INTEGRATION
  
  RETURN
  
  END FUNCTION INTEGRATION
  
  
  !> \brief Initializes species band data
  
  SUBROUTINE RCALLOC
  
  ! OLD RADCAL VARIABLES
  ALLOCATE(GAMMA(4,7))
  ALLOCATE(SD15(6,80))
  ALLOCATE(SD(6,376))
  ALLOCATE(SD7(3,16))
  ALLOCATE(SD3(3,32))
  
  !-------------------------METHANE DATA-------------------
  
  
  ! THERE ARE 3 BANDS FOR METHANE
  
  ! BAND #1: 1150 CM-1 - 1600 CM-1
  ! BAND #2: 2700 CM-1 - 3250 CM-1
  ! BAND #3: 3400 CM-1 - 5000 CM-1
  
  ALLOCATE(SD_CH4_TEMP(N_TEMP_CH4))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR METHANE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., THEN THE BAND IS CALCULATED AND NOT TABULATED.
  
  ALLOCATE(OM_BND_CH4(N_BAND_CH4,3))
  
  OM_BND_CH4 = RESHAPE((/ &
     1150._EB, 2700._EB, 3400._EB,&
     1600._EB, 3250._EB, 5000._EB,&
     25._EB,   25._EB,    0._EB/),(/N_BAND_CH4,3/))
  
  SD_CH4_TEMP = (/ &
     300._EB, 350._EB, 400._EB, 450._EB, 500._EB, 550._EB,&
     600._EB, 650._EB, 700._EB, 750._EB, 800._EB, 850._EB,&
     900._EB, 950._EB, 1000._EB, 1050._EB, 1100._EB, 1150._EB,&
     1200._EB, 1250._EB, 1300._EB, 1350._EB, 1400._EB/)
  
  ALLOCATE(SD1_CH4(N_TEMP_CH4,19))
  
  ! BAND #1: 1150 CM-1 - 1600 CM-1
  
  SD1_CH4(1:23,1:8) = RESHAPE((/ &  ! 1150-1325 CM-1
     2.674955E-03_EB, 4.122616E-03_EB, 6.116504E-03_EB, 8.394889E-03_EB, 1.066588E-02_EB, 1.270929E-02_EB, &
     1.431368E-02_EB, 1.543500E-02_EB, 1.607798E-02_EB, 1.623394E-02_EB, 1.594103E-02_EB, 1.537005E-02_EB, &
     1.456109E-02_EB, 1.356591E-02_EB, 1.253062E-02_EB, 1.145338E-02_EB, 1.037156E-02_EB, 9.319748E-03_EB, &
     8.296535E-03_EB, 7.359273E-03_EB, 6.512254E-03_EB, 5.764075E-03_EB, 5.034367E-03_EB,  &
     1.056047E-02_EB, 1.689522E-02_EB, 2.382293E-02_EB, 3.013931E-02_EB, 3.518013E-02_EB, 3.873081E-02_EB, &
     4.056505E-02_EB, 4.099451E-02_EB, 4.031689E-02_EB, 3.867720E-02_EB, 3.630281E-02_EB, 3.360423E-02_EB, &
     3.072697E-02_EB, 2.769650E-02_EB, 2.480529E-02_EB, 2.203561E-02_EB, 1.945492E-02_EB, 1.710571E-02_EB, &
     1.490918E-02_EB, 1.297063E-02_EB, 1.127359E-02_EB, 9.806206E-03_EB, 8.433200E-03_EB,  &
     6.535368E-02_EB, 8.634735E-02_EB, 1.035285E-01_EB, 1.149338E-01_EB, 1.211259E-01_EB, 1.231160E-01_EB, &
     1.212403E-01_EB, 1.167139E-01_EB, 1.104665E-01_EB, 1.027695E-01_EB, 9.409726E-02_EB, 8.537322E-02_EB, &
     7.679556E-02_EB, 6.836183E-02_EB, 6.060003E-02_EB, 5.339354E-02_EB, 4.679438E-02_EB, 4.089038E-02_EB, &
     3.545789E-02_EB, 3.072468E-02_EB, 2.660506E-02_EB, 2.306236E-02_EB, 1.979016E-02_EB,  &
     2.797310E-01_EB, 2.878774E-01_EB, 2.844637E-01_EB, 2.718418E-01_EB, 2.544158E-01_EB, 2.351542E-01_EB, &
     2.144282E-01_EB, 1.940107E-01_EB, 1.744123E-01_EB, 1.554283E-01_EB, 1.374171E-01_EB, 1.210226E-01_EB, &
     1.060935E-01_EB, 9.238361E-02_EB, 8.033186E-02_EB, 6.960028E-02_EB, 6.015950E-02_EB, 5.186871E-02_EB, &
     4.448682E-02_EB, 3.815557E-02_EB, 3.272683E-02_EB, 2.816055E-02_EB, 2.399102E-02_EB,  &
     6.055294E-01_EB, 5.085203E-01_EB, 4.314546E-01_EB, 3.661128E-01_EB, 3.120083E-01_EB, 2.675996E-01_EB, &
     2.295433E-01_EB, 1.976798E-01_EB, 1.706085E-01_EB, 1.470613E-01_EB, 1.263463E-01_EB, 1.086762E-01_EB, &
     9.339644E-02_EB, 7.991483E-02_EB, 6.850499E-02_EB, 5.859531E-02_EB, 5.007218E-02_EB, 4.275497E-02_EB, &
     3.636644E-02_EB, 3.094626E-02_EB, 2.637845E-02_EB, 2.255529E-02_EB, 1.911152E-02_EB,  &
     7.291248E-01_EB, 6.247580E-01_EB, 5.567927E-01_EB, 5.047634E-01_EB, 4.622435E-01_EB, 4.253591E-01_EB, &
     3.901550E-01_EB, 3.566718E-01_EB, 3.248608E-01_EB, 2.936112E-01_EB, 2.628808E-01_EB, 2.344160E-01_EB, &
     2.078641E-01_EB, 1.829068E-01_EB, 1.606407E-01_EB, 1.403181E-01_EB, 1.221762E-01_EB, 1.060864E-01_EB, &
     9.154534E-02_EB, 7.892764E-02_EB, 6.808643E-02_EB, 5.882322E-02_EB, 5.031768E-02_EB,  &
     1.503577E+00_EB, 1.216438E+00_EB, 1.009787E+00_EB, 8.445781E-01_EB, 7.110515E-01_EB, 6.021463E-01_EB, &
     5.099874E-01_EB, 4.327438E-01_EB, 3.680691E-01_EB, 3.125303E-01_EB, 2.644163E-01_EB, 2.242054E-01_EB, &
     1.897708E-01_EB, 1.602130E-01_EB, 1.354708E-01_EB, 1.143770E-01_EB, 9.654761E-02_EB, 8.152145E-02_EB, &
     6.854917E-02_EB, 5.774320E-02_EB, 4.875464E-02_EB, 4.129146E-02_EB, 3.467888E-02_EB,  &
     1.113787E+00_EB, 8.666106E-01_EB, 6.937600E-01_EB, 5.636603E-01_EB, 4.651973E-01_EB, 3.899245E-01_EB, &
     3.293625E-01_EB, 2.804438E-01_EB, 2.403481E-01_EB, 2.062563E-01_EB, 1.767199E-01_EB, 1.518103E-01_EB, &
     1.304026E-01_EB, 1.116263E-01_EB, 9.571162E-02_EB, 8.192030E-02_EB, 7.003835E-02_EB, 5.986022E-02_EB, &
     5.092725E-02_EB, 4.337782E-02_EB, 3.700459E-02_EB, 3.164349E-02_EB, 2.682395E-02_EB/),(/23,8/))
  
  SD1_CH4(1:23,9:16) = RESHAPE((/ &  ! 1350-1525 CM-1
     5.859637E-01_EB, 5.741640E-01_EB, 5.446284E-01_EB, 5.016955E-01_EB, 4.533548E-01_EB, 4.052375E-01_EB, &
     3.578427E-01_EB, 3.138042E-01_EB, 2.741405E-01_EB, 2.379703E-01_EB, 2.050667E-01_EB, 1.765003E-01_EB, &
     1.515652E-01_EB, 1.294551E-01_EB, 1.106049E-01_EB, 9.430003E-02_EB, 8.028460E-02_EB, 6.831086E-02_EB, &
     5.788843E-02_EB, 4.905327E-02_EB, 4.167658E-02_EB, 3.549325E-02_EB, 2.997796E-02_EB,  &
     5.143640E-02_EB, 7.394302E-02_EB, 9.480931E-02_EB, 1.108135E-01_EB, 1.211319E-01_EB, 1.262273E-01_EB, &
     1.262909E-01_EB, 1.227527E-01_EB, 1.167145E-01_EB, 1.087709E-01_EB, 9.943737E-02_EB, 9.002538E-02_EB, &
     8.060527E-02_EB, 7.137067E-02_EB, 6.299760E-02_EB, 5.512164E-02_EB, 4.801455E-02_EB, 4.169764E-02_EB, &
     3.593587E-02_EB, 3.095498E-02_EB, 2.664278E-02_EB, 2.295572E-02_EB, 1.959682E-02_EB,  &
     7.616134E-03_EB, 9.957002E-03_EB, 1.281279E-02_EB, 1.589717E-02_EB, 1.894916E-02_EB, 2.174268E-02_EB, &
     2.395920E-02_EB, 2.555557E-02_EB, 2.648904E-02_EB, 2.671274E-02_EB, 2.629477E-02_EB, 2.540283E-02_EB, &
     2.418621E-02_EB, 2.265546E-02_EB, 2.101542E-02_EB, 1.928221E-02_EB, 1.752831E-02_EB, 1.582992E-02_EB, &
     1.416926E-02_EB, 1.261250E-02_EB, 1.121041E-02_EB, 9.951538E-03_EB, 8.728757E-03_EB,  &
     1.277402E-02_EB, 1.327177E-02_EB, 1.322108E-02_EB, 1.267471E-02_EB, 1.186190E-02_EB, 1.093562E-02_EB, &
     9.920972E-03_EB, 8.920419E-03_EB, 7.971129E-03_EB, 7.057028E-03_EB, 6.197372E-03_EB, 5.429023E-03_EB, &
     4.732635E-03_EB, 4.092017E-03_EB, 3.548360E-03_EB, 3.062048E-03_EB, 2.633809E-03_EB, 2.263255E-03_EB, &
     1.935254E-03_EB, 1.656795E-03_EB, 1.416023E-03_EB, 1.215289E-03_EB, 1.031774E-03_EB,  &
     8.014464E-03_EB, 7.194752E-03_EB, 6.553713E-03_EB, 6.000398E-03_EB, 5.531684E-03_EB, 5.121393E-03_EB, &
     4.722456E-03_EB, 4.343916E-03_EB, 3.983544E-03_EB, 3.621247E-03_EB, 3.268422E-03_EB, 2.936068E-03_EB, &
     2.617151E-03_EB, 2.322363E-03_EB, 2.051315E-03_EB, 1.804840E-03_EB, 1.578471E-03_EB, 1.378963E-03_EB, &
     1.197596E-03_EB, 1.036958E-03_EB, 9.007021E-04_EB, 7.820103E-04_EB, 6.693842E-04_EB,  &
     2.792665E-03_EB, 2.575454E-03_EB, 2.537125E-03_EB, 2.578233E-03_EB, 2.648059E-03_EB, 2.713453E-03_EB, &
     2.741224E-03_EB, 2.722787E-03_EB, 2.662395E-03_EB, 2.559402E-03_EB, 2.415338E-03_EB, 2.254521E-03_EB, &
     2.077537E-03_EB, 1.891657E-03_EB, 1.708933E-03_EB, 1.533948E-03_EB, 1.367874E-03_EB, 1.212162E-03_EB, &
     1.064882E-03_EB, 9.339250E-04_EB, 8.169687E-04_EB, 7.180516E-04_EB, 6.220503E-04_EB,  &
     8.239408E-04_EB, 8.207289E-04_EB, 8.769232E-04_EB, 9.471812E-04_EB, 1.013068E-03_EB, 1.072041E-03_EB, &
     1.109555E-03_EB, 1.125480E-03_EB, 1.120373E-03_EB, 1.094883E-03_EB, 1.043855E-03_EB, 9.887558E-04_EB, &
     9.221581E-04_EB, 8.517148E-04_EB, 7.786200E-04_EB, 7.086512E-04_EB, 6.363394E-04_EB, 5.709486E-04_EB, &
     5.037963E-04_EB, 4.478632E-04_EB, 3.933607E-04_EB, 3.461225E-04_EB, 3.036065E-04_EB,  &
     1.787674E-02_EB, 1.651301E-02_EB, 1.538618E-02_EB, 1.427021E-02_EB, 1.321135E-02_EB, 1.220556E-02_EB, &
     1.120017E-02_EB, 1.022271E-02_EB, 9.293408E-03_EB, 8.381487E-03_EB, 7.491250E-03_EB, 6.673691E-03_EB, &
     5.914957E-03_EB, 5.201979E-03_EB, 4.566356E-03_EB, 3.988961E-03_EB, 3.472458E-03_EB, 3.017625E-03_EB, &
     2.605493E-03_EB, 2.248445E-03_EB, 1.941774E-03_EB, 1.676885E-03_EB, 1.438512E-03_EB/),(/23,8/))
  
  SD1_CH4(1:23,17:19) = RESHAPE((/ &  ! 1550-1600 CM-1
     3.842192E-03_EB, 4.909077E-03_EB, 5.876585E-03_EB, 6.637230E-03_EB, 7.159498E-03_EB, 7.449619E-03_EB, &
     7.502474E-03_EB, 7.374704E-03_EB, 7.105819E-03_EB, 6.720456E-03_EB, 6.241450E-03_EB, 5.729337E-03_EB, &
     5.213056E-03_EB, 4.685851E-03_EB, 4.183214E-03_EB, 3.714659E-03_EB, 3.276286E-03_EB, 2.879051E-03_EB, &
     2.508044E-03_EB, 2.182116E-03_EB, 1.899894E-03_EB, 1.653926E-03_EB, 1.423668E-03_EB,  &
     1.587677E-03_EB, 1.446538E-03_EB, 1.552901E-03_EB, 1.804439E-03_EB, 2.128742E-03_EB, 2.458565E-03_EB, &
     2.743898E-03_EB, 2.955974E-03_EB, 3.088835E-03_EB, 3.134690E-03_EB, 3.095698E-03_EB, 3.002805E-03_EB, &
     2.862955E-03_EB, 2.683299E-03_EB, 2.486550E-03_EB, 2.282038E-03_EB, 2.073847E-03_EB, 1.873143E-03_EB, &
     1.674361E-03_EB, 1.489429E-03_EB, 1.321804E-03_EB, 1.173554E-03_EB, 1.026702E-03_EB,  &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB/),(/23,3/))
  
  ALLOCATE(SD2_CH4(N_TEMP_CH4,23))
  
  ! BAND #2: 2700 CM-1 - 3250 CM-1
  
  SD2_CH4(1:23,1:8) = RESHAPE((/ &  ! 2700-2875 CM-1
     1.217530E-02_EB, 1.117112E-02_EB, 1.018335E-02_EB, 9.113159E-03_EB, 8.069237E-03_EB, 7.089143E-03_EB, &
     6.164984E-03_EB, 5.339743E-03_EB, 4.605161E-03_EB, 3.952813E-03_EB, 3.369126E-03_EB, 2.873535E-03_EB, &
     2.442004E-03_EB, 2.069306E-03_EB, 1.752468E-03_EB, 1.483929E-03_EB, 1.255931E-03_EB, 1.056565E-03_EB, &
     8.920522E-04_EB, 7.508758E-04_EB, 6.317838E-04_EB, 5.352971E-04_EB, 4.530464E-04_EB,  &
     2.513916E-02_EB, 2.114376E-02_EB, 1.780513E-02_EB, 1.491293E-02_EB, 1.247243E-02_EB, 1.043356E-02_EB, &
     8.698933E-03_EB, 7.256269E-03_EB, 6.066735E-03_EB, 5.057876E-03_EB, 4.209670E-03_EB, 3.508303E-03_EB, &
     2.922322E-03_EB, 2.428483E-03_EB, 2.028794E-03_EB, 1.689558E-03_EB, 1.409261E-03_EB, 1.176715E-03_EB, &
     9.788265E-04_EB, 8.167162E-04_EB, 6.823326E-04_EB, 5.730157E-04_EB, 4.786727E-04_EB,  &
     2.557782E-02_EB, 2.133345E-02_EB, 1.832454E-02_EB, 1.586992E-02_EB, 1.378920E-02_EB, 1.202910E-02_EB, &
     1.045539E-02_EB, 9.073223E-03_EB, 7.878108E-03_EB, 6.813401E-03_EB, 5.858711E-03_EB, 5.036798E-03_EB, &
     4.322566E-03_EB, 3.689893E-03_EB, 3.157259E-03_EB, 2.690401E-03_EB, 2.292743E-03_EB, 1.951361E-03_EB, &
     1.658405E-03_EB, 1.405787E-03_EB, 1.195120E-03_EB, 1.018165E-03_EB, 8.624014E-04_EB,  &
     3.267234E-02_EB, 2.794974E-02_EB, 2.414894E-02_EB, 2.075791E-02_EB, 1.780983E-02_EB, 1.531517E-02_EB, &
     1.312860E-02_EB, 1.127375E-02_EB, 9.704346E-03_EB, 8.352011E-03_EB, 7.159191E-03_EB, 6.165400E-03_EB, &
     5.304681E-03_EB, 4.552437E-03_EB, 3.918329E-03_EB, 3.371374E-03_EB, 2.897155E-03_EB, 2.490584E-03_EB, &
     2.139129E-03_EB, 1.834560E-03_EB, 1.579448E-03_EB, 1.362473E-03_EB, 1.164728E-03_EB,  &
     4.729257E-02_EB, 4.020146E-02_EB, 3.655117E-02_EB, 3.486375E-02_EB, 3.451183E-02_EB, 3.486976E-02_EB, &
     3.526911E-02_EB, 3.549943E-02_EB, 3.539419E-02_EB, 3.477334E-02_EB, 3.359574E-02_EB, 3.209631E-02_EB, &
     3.033091E-02_EB, 2.826035E-02_EB, 2.617425E-02_EB, 2.398793E-02_EB, 2.182750E-02_EB, 1.975692E-02_EB, &
     1.770980E-02_EB, 1.581216E-02_EB, 1.409330E-02_EB, 1.256203E-02_EB, 1.106706E-02_EB,  &
     3.967221E-02_EB, 3.764359E-02_EB, 3.949747E-02_EB, 4.277841E-02_EB, 4.623172E-02_EB, 4.903094E-02_EB, &
     5.058120E-02_EB, 5.097742E-02_EB, 5.029388E-02_EB, 4.863988E-02_EB, 4.605751E-02_EB, 4.308689E-02_EB, &
     3.983596E-02_EB, 3.638363E-02_EB, 3.298206E-02_EB, 2.967115E-02_EB, 2.650179E-02_EB, 2.356866E-02_EB, &
     2.077236E-02_EB, 1.827032E-02_EB, 1.605444E-02_EB, 1.411180E-02_EB, 1.226114E-02_EB,  &
     7.223868E-02_EB, 8.544183E-02_EB, 9.962661E-02_EB, 1.104863E-01_EB, 1.171420E-01_EB, 1.196787E-01_EB, &
     1.182118E-01_EB, 1.139658E-01_EB, 1.078438E-01_EB, 1.002471E-01_EB, 9.161471E-02_EB, 8.298437E-02_EB, &
     7.452297E-02_EB, 6.622584E-02_EB, 5.857678E-02_EB, 5.147962E-02_EB, 4.505849E-02_EB, 3.932179E-02_EB, &
     3.408714E-02_EB, 2.948172E-02_EB, 2.551286E-02_EB, 2.211846E-02_EB, 1.897647E-02_EB,  &
     1.759866E-01_EB, 2.015363E-01_EB, 2.180490E-01_EB, 2.232613E-01_EB, 2.203020E-01_EB, 2.118597E-01_EB, &
     1.990075E-01_EB, 1.841205E-01_EB, 1.683887E-01_EB, 1.521963E-01_EB, 1.360646E-01_EB, 1.209307E-01_EB, &
     1.069128E-01_EB, 9.382435E-02_EB, 8.206146E-02_EB, 7.155641E-02_EB, 6.219310E-02_EB, 5.392479E-02_EB, &
     4.648837E-02_EB, 4.008493E-02_EB, 3.458414E-02_EB, 2.988156E-02_EB, 2.558176E-02_EB/),(/23,8/))
  
  SD2_CH4(1:23,9:16) = RESHAPE((/ &  ! 2900-3075 CM-1
     3.311709E-01_EB, 3.344762E-01_EB, 3.267663E-01_EB, 3.099531E-01_EB, 2.886161E-01_EB, 2.659881E-01_EB, &
     2.423456E-01_EB, 2.191913E-01_EB, 1.973904E-01_EB, 1.764196E-01_EB, 1.564157E-01_EB, 1.382986E-01_EB, &
     1.218590E-01_EB, 1.067421E-01_EB, 9.331013E-02_EB, 8.132822E-02_EB, 7.068471E-02_EB, 6.139407E-02_EB, &
     5.297295E-02_EB, 4.571219E-02_EB, 3.948284E-02_EB, 3.416733E-02_EB, 2.931231E-02_EB,  &
     8.235613E-01_EB, 7.238968E-01_EB, 6.324968E-01_EB, 5.466365E-01_EB, 4.712117E-01_EB, 4.058971E-01_EB, &
     3.486088E-01_EB, 2.993153E-01_EB, 2.575278E-01_EB, 2.209771E-01_EB, 1.890168E-01_EB, 1.618217E-01_EB, &
     1.384064E-01_EB, 1.180022E-01_EB, 1.008139E-01_EB, 8.601549E-02_EB, 7.332027E-02_EB, 6.253544E-02_EB, &
     5.308446E-02_EB, 4.515135E-02_EB, 3.847721E-02_EB, 3.288247E-02_EB, 2.786602E-02_EB,  &
     6.821008E-01_EB, 5.401363E-01_EB, 4.353503E-01_EB, 3.533680E-01_EB, 2.892836E-01_EB, 2.389427E-01_EB, &
     1.981961E-01_EB, 1.653239E-01_EB, 1.387030E-01_EB, 1.163771E-01_EB, 9.777404E-02_EB, 8.236369E-02_EB, &
     6.949908E-02_EB, 5.853014E-02_EB, 4.942064E-02_EB, 4.176497E-02_EB, 3.531768E-02_EB, 2.985698E-02_EB, &
     2.516886E-02_EB, 2.128060E-02_EB, 1.802439E-02_EB, 1.532867E-02_EB, 1.292454E-02_EB,  &
     5.823907E-01_EB, 4.331161E-01_EB, 3.353248E-01_EB, 2.655224E-01_EB, 2.144294E-01_EB, 1.761169E-01_EB, &
     1.472744E-01_EB, 1.241615E-01_EB, 1.057407E-01_EB, 9.045740E-02_EB, 7.745806E-02_EB, 6.667193E-02_EB, &
     5.744892E-02_EB, 4.942743E-02_EB, 4.263289E-02_EB, 3.676096E-02_EB, 3.166692E-02_EB, 2.731256E-02_EB, &
     2.343114E-02_EB, 2.014747E-02_EB, 1.734533E-02_EB, 1.497211E-02_EB, 1.281431E-02_EB,  &
     3.210821E+00_EB, 2.793045E+00_EB, 2.475891E+00_EB, 2.198508E+00_EB, 1.954455E+00_EB, 1.740419E+00_EB, &
     1.543274E+00_EB, 1.366589E+00_EB, 1.208668E+00_EB, 1.063917E+00_EB, 9.309610E-01_EB, 8.135837E-01_EB, &
     7.091172E-01_EB, 6.150707E-01_EB, 5.334009E-01_EB, 4.611724E-01_EB, 3.980142E-01_EB, 3.431784E-01_EB, &
     2.944666E-01_EB, 2.526486E-01_EB, 2.171496E-01_EB, 1.870189E-01_EB, 1.596229E-01_EB,  &
     3.517151E-01_EB, 2.541996E-01_EB, 1.936159E-01_EB, 1.517283E-01_EB, 1.221750E-01_EB, 1.004308E-01_EB, &
     8.351777E-02_EB, 7.016371E-02_EB, 5.949379E-02_EB, 5.053966E-02_EB, 4.298934E-02_EB, 3.667062E-02_EB, &
     3.130112E-02_EB, 2.669085E-02_EB, 2.279490E-02_EB, 1.946235E-02_EB, 1.660600E-02_EB, 1.417075E-02_EB, &
     1.204697E-02_EB, 1.025668E-02_EB, 8.756988E-03_EB, 7.490243E-03_EB, 6.351877E-03_EB,  &
     7.921358E-01_EB, 6.055366E-01_EB, 4.798618E-01_EB, 3.867414E-01_EB, 3.174199E-01_EB, 2.642038E-01_EB, &
     2.216893E-01_EB, 1.874171E-01_EB, 1.594862E-01_EB, 1.359448E-01_EB, 1.159382E-01_EB, 9.908354E-02_EB, &
     8.473452E-02_EB, 7.233655E-02_EB, 6.187191E-02_EB, 5.286391E-02_EB, 4.518233E-02_EB, 3.863453E-02_EB, &
     3.288079E-02_EB, 2.803528E-02_EB, 2.394608E-02_EB, 2.051761E-02_EB, 1.743587E-02_EB,  &
     1.334409E+00_EB, 1.095178E+00_EB, 9.120448E-01_EB, 7.631562E-01_EB, 6.425576E-01_EB, 5.444728E-01_EB, &
     4.621443E-01_EB, 3.938260E-01_EB, 3.368579E-01_EB, 2.880892E-01_EB, 2.459378E-01_EB, 2.104005E-01_EB, &
     1.799327E-01_EB, 1.535802E-01_EB, 1.314063E-01_EB, 1.121907E-01_EB, 9.581696E-02_EB, 8.185813E-02_EB, &
     6.964125E-02_EB, 5.934825E-02_EB, 5.067442E-02_EB, 4.339843E-02_EB, 3.686411E-02_EB/),(/23,8/))
  
  SD2_CH4(1:23,17:23) = RESHAPE((/ &  ! 3100-3250 CM-1
     9.674073E-01_EB, 9.013091E-01_EB, 8.256467E-01_EB, 7.423397E-01_EB, 6.619262E-01_EB, 5.879801E-01_EB, &
     5.191373E-01_EB, 4.573467E-01_EB, 4.022801E-01_EB, 3.523929E-01_EB, 3.072101E-01_EB, 2.674592E-01_EB, &
     2.326179E-01_EB, 2.012004E-01_EB, 1.742107E-01_EB, 1.505433E-01_EB, 1.298551E-01_EB, 1.119451E-01_EB, &
     9.604141E-02_EB, 8.242372E-02_EB, 7.089244E-02_EB, 6.110245E-02_EB, 5.221546E-02_EB,  &
     3.658653E-01_EB, 4.184364E-01_EB, 4.441884E-01_EB, 4.457809E-01_EB, 4.319013E-01_EB, 4.088715E-01_EB, &
     3.793819E-01_EB, 3.474065E-01_EB, 3.151904E-01_EB, 2.830904E-01_EB, 2.516607E-01_EB, 2.228145E-01_EB, &
     1.964195E-01_EB, 1.718178E-01_EB, 1.502324E-01_EB, 1.307846E-01_EB, 1.135071E-01_EB, 9.842138E-02_EB, &
     8.481592E-02_EB, 7.309981E-02_EB, 6.307130E-02_EB, 5.451710E-02_EB, 4.669207E-02_EB,  &
     8.373191E-02_EB, 1.229238E-01_EB, 1.573970E-01_EB, 1.825905E-01_EB, 1.975753E-01_EB, 2.040052E-01_EB, &
     2.024706E-01_EB, 1.957505E-01_EB, 1.855755E-01_EB, 1.726368E-01_EB, 1.580202E-01_EB, 1.433211E-01_EB, &
     1.287520E-01_EB, 1.144879E-01_EB, 1.013973E-01_EB, 8.925648E-02_EB, 7.818868E-02_EB, 6.826146E-02_EB, &
     5.920229E-02_EB, 5.129713E-02_EB, 4.441206E-02_EB, 3.851923E-02_EB, 3.306979E-02_EB,  &
     1.457007E-02_EB, 2.736439E-02_EB, 4.340085E-02_EB, 6.002981E-02_EB, 7.506875E-02_EB, 8.727601E-02_EB, &
     9.581284E-02_EB, 1.007875E-01_EB, 1.027285E-01_EB, 1.017913E-01_EB, 9.839048E-02_EB, 9.365514E-02_EB, &
     8.789001E-02_EB, 8.123320E-02_EB, 7.449732E-02_EB, 6.766345E-02_EB, 6.100922E-02_EB, 5.470686E-02_EB, &
     4.865358E-02_EB, 4.309088E-02_EB, 3.810993E-02_EB, 3.369467E-02_EB, 2.945916E-02_EB,  &
     1.191095E-03_EB, 1.552045E-03_EB, 2.059789E-03_EB, 2.649547E-03_EB, 3.236595E-03_EB, 3.762561E-03_EB, &
     4.165025E-03_EB, 4.448429E-03_EB, 4.600555E-03_EB, 4.628224E-03_EB, 4.534948E-03_EB, 4.374710E-03_EB, &
     4.151710E-03_EB, 3.880527E-03_EB, 3.599880E-03_EB, 3.300161E-03_EB, 2.998249E-03_EB, 2.715486E-03_EB, &
     2.425276E-03_EB, 2.164309E-03_EB, 1.929373E-03_EB, 1.713087E-03_EB, 1.506010E-03_EB,  &
     4.538291E-04_EB, 4.599393E-04_EB, 4.587246E-04_EB, 4.526653E-04_EB, 4.375098E-04_EB, 4.167315E-04_EB, &
     3.918634E-04_EB, 3.644121E-04_EB, 3.335314E-04_EB, 3.072189E-04_EB, 2.753771E-04_EB, 2.453914E-04_EB, &
     2.183408E-04_EB, 1.968316E-04_EB, 1.704817E-04_EB, 1.507858E-04_EB, 1.319531E-04_EB, 1.134243E-04_EB, &
     9.801919E-05_EB, 8.900765E-05_EB, 7.481087E-05_EB, 6.511635E-05_EB, 5.390619E-05_EB,  &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, &
     0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB, 0.000000E+00_EB/),(/23,7/))
  
  !-------------------------ETHANE DATA-------------------
  
  
  ! THERE ARE 3 BANDS FOR ETHANE
  
  ! BAND #1: 730 CM-1 - 1095 CM-1
  ! BAND #2: 1250 CM-1 - 1700 CM-1
  ! BAND #3: 2550 CM-1 - 3375 CM-1
  
  ALLOCATE(SD_C2H6_TEMP(N_TEMP_C2H6))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR ETHANE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C2H6(N_BAND_C2H6,3))
  ALLOCATE(BE_C2H6(N_BAND_C2H6))
  
  OM_BND_C2H6 = RESHAPE((/ &
     730._EB, 1250._EB, 2550._EB, &
     1095._EB, 1700._EB, 3375._EB, &
     5._EB, 25._EB, 25._EB/),(/N_BAND_C2H6,3/))
  
  SD_C2H6_TEMP = (/ &
     296._EB, 400._EB, 450._EB, 500._EB, 600._EB, 800._EB,&
     1000._EB/)
  
  BE_C2H6 = (/ &
     1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C2H6(N_TEMP_C2H6,74))
  
  ! BAND #1: 730 CM-1 - 1095 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.69096 %
  
  SD1_C2H6(1:7,1:8) = RESHAPE((/ &  ! 730-765 CM-1
     2.794554E-04_EB, 3.019036E-04_EB, 3.080672E-04_EB, 2.762484E-04_EB, 2.579677E-04_EB, 3.235741E-04_EB, 3.596358E-04_EB, &
     3.869441E-04_EB, 3.054332E-04_EB, 4.065149E-04_EB, 3.649137E-04_EB, 3.706177E-04_EB, 3.794478E-04_EB, 3.418980E-04_EB, &
     3.961398E-04_EB, 3.859808E-04_EB, 4.060006E-04_EB, 3.536294E-03_EB, 3.591171E-04_EB, 3.754312E-04_EB, 3.669844E-04_EB, &
     7.822607E-04_EB, 3.453771E-04_EB, 2.262803E-02_EB, 1.021724E-02_EB, 1.653952E-02_EB, 6.505243E-03_EB, 3.164663E-04_EB, &
     1.410615E-02_EB, 3.210967E-04_EB, 6.360977E-02_EB, 1.166115E-02_EB, 1.932412E+00_EB, 1.575805E-02_EB, 3.405423E-04_EB, &
     1.497481E-02_EB, 3.592094E-04_EB, 1.309596E-02_EB, 7.475906E-03_EB, 1.892167E+00_EB, 1.483042E-02_EB, 2.983060E-04_EB, &
     4.020853E-02_EB, 4.386772E-04_EB, 7.714318E-01_EB, 2.671185E-02_EB, 1.498279E+00_EB, 5.703491E-03_EB, 4.203063E-04_EB, &
     5.124663E-02_EB, 1.551881E-01_EB, 3.195236E-01_EB, 2.525727E-02_EB, 1.027149E+00_EB, 1.160139E-02_EB, &
     3.688548E-04_EB/),(/7,8/))
  
  SD1_C2H6(1:7,9:16) = RESHAPE((/ &  ! 770-805 CM-1
     6.559937E-02_EB, 3.631953E-01_EB, 1.309011E-01_EB, 5.307552E-02_EB, 1.606841E-01_EB, 1.891214E-02_EB, 3.202870E-04_EB, &
     1.060830E-01_EB, 2.002917E-01_EB, 3.031810E-01_EB, 6.540746E-02_EB, 2.598325E-01_EB, 3.968316E-01_EB, 3.244087E-04_EB, &
     1.068733E-01_EB, 2.931690E-01_EB, 1.405611E-01_EB, 5.788228E-02_EB, 8.277802E-01_EB, 9.351959E-01_EB, 3.515174E-04_EB, &
     1.515345E-01_EB, 2.276208E-01_EB, 1.256607E-01_EB, 4.591616E-01_EB, 2.628483E+00_EB, 8.399321E-01_EB, 3.078236E-04_EB, &
     1.710208E-01_EB, 7.250193E-01_EB, 9.620347E-02_EB, 1.004229E-01_EB, 1.608952E+00_EB, 9.263801E-01_EB, 4.007032E-04_EB, &
     2.129896E-01_EB, 3.313998E-01_EB, 1.381292E-01_EB, 2.290180E-01_EB, 1.075200E+00_EB, 7.619251E-01_EB, 4.125753E-04_EB, &
     2.536966E-01_EB, 2.974149E-01_EB, 1.376301E-01_EB, 2.140445E-01_EB, 1.112248E+00_EB, 1.347530E+00_EB, 3.626265E-04_EB, &
     2.932385E-01_EB, 2.623213E-01_EB, 1.391961E-01_EB, 1.394845E-01_EB, 4.998654E-01_EB, 1.363158E+00_EB, &
     3.577957E-04_EB/),(/7,8/))
  
  SD1_C2H6(1:7,17:24) = RESHAPE((/ &  ! 810-845 CM-1
     3.183925E-01_EB, 2.940497E-01_EB, 1.942798E-01_EB, 1.955972E-01_EB, 2.139000E-01_EB, 1.687942E+00_EB, 4.048250E-04_EB, &
     3.562908E-01_EB, 2.514123E-01_EB, 1.948319E-01_EB, 2.290250E-01_EB, 6.104920E-01_EB, 1.456760E+00_EB, 3.298797E-04_EB, &
     3.457713E-01_EB, 2.350119E-01_EB, 2.001751E-01_EB, 3.161435E-01_EB, 5.531987E-01_EB, 1.962497E-01_EB, 3.488040E-04_EB, &
     3.720387E-01_EB, 2.431526E-01_EB, 2.192578E-01_EB, 1.640348E-01_EB, 9.663389E-01_EB, 6.727370E-02_EB, 3.578073E-04_EB, &
     3.527769E-01_EB, 2.743749E-01_EB, 2.170241E-01_EB, 1.992689E-01_EB, 6.608995E-01_EB, 6.062421E-02_EB, 3.421209E-04_EB, &
     3.345994E-01_EB, 2.376781E-01_EB, 2.379620E-01_EB, 2.238005E-01_EB, 1.419365E-01_EB, 6.753641E-02_EB, 2.941644E-04_EB, &
     3.110441E-01_EB, 2.342208E-01_EB, 1.884871E-01_EB, 2.033274E-01_EB, 3.626503E-01_EB, 7.846996E-02_EB, 3.468572E-03_EB, &
     2.854259E-01_EB, 2.338848E-01_EB, 2.014852E-01_EB, 1.903667E-01_EB, 4.180199E-01_EB, 1.112186E-01_EB, &
     1.298106E-02_EB/),(/7,8/))
  
  SD1_C2H6(1:7,25:32) = RESHAPE((/ &  ! 850-885 CM-1
     2.751807E-01_EB, 2.333134E-01_EB, 1.748430E-01_EB, 1.437778E-01_EB, 2.133839E-01_EB, 1.309889E-01_EB, 2.178703E-02_EB, &
     2.593350E-01_EB, 2.501009E-01_EB, 1.770492E-01_EB, 1.695213E-01_EB, 1.244732E-01_EB, 1.113414E-01_EB, 4.564412E-02_EB, &
     2.216701E-01_EB, 1.761779E-01_EB, 1.650476E-01_EB, 1.312825E-01_EB, 1.553354E-01_EB, 1.429574E-01_EB, 3.560235E-02_EB, &
     2.022044E-01_EB, 1.510443E-01_EB, 2.176619E-01_EB, 1.572246E-01_EB, 1.135620E-01_EB, 7.703252E-02_EB, 2.142633E-02_EB, &
     1.812600E-01_EB, 1.353210E-01_EB, 1.613117E-01_EB, 2.734768E-01_EB, 3.022567E-01_EB, 6.876571E-02_EB, 2.406288E-02_EB, &
     1.343889E-01_EB, 1.259396E-01_EB, 1.578672E-01_EB, 1.373682E-01_EB, 2.232547E-01_EB, 6.066181E-02_EB, 5.509858E-02_EB, &
     1.095603E-01_EB, 8.840111E-02_EB, 1.614927E-01_EB, 1.024326E-01_EB, 4.054561E-01_EB, 5.622874E-02_EB, 8.081915E-02_EB, &
     8.280573E-02_EB, 1.072322E-01_EB, 1.083568E-01_EB, 8.976527E-02_EB, 7.891590E-02_EB, 8.667161E-02_EB, &
     1.032621E-01_EB/),(/7,8/))
  
  SD1_C2H6(1:7,33:40) = RESHAPE((/ &  ! 890-925 CM-1
     6.315700E-02_EB, 1.839109E-01_EB, 9.563206E-02_EB, 1.558355E-01_EB, 1.009801E-01_EB, 4.350811E-01_EB, 2.056632E-01_EB, &
     4.243703E-02_EB, 1.021804E-01_EB, 5.212402E-02_EB, 1.014279E-01_EB, 1.625632E-01_EB, 6.953883E-01_EB, 7.419429E-02_EB, &
     3.637108E-02_EB, 3.530674E-01_EB, 3.834881E-02_EB, 4.227429E-01_EB, 1.077391E-01_EB, 6.239971E-01_EB, 2.133274E-01_EB, &
     2.862217E-02_EB, 6.251917E-02_EB, 2.879530E-02_EB, 3.363107E-02_EB, 3.988006E-02_EB, 8.289923E-01_EB, 2.326386E-01_EB, &
     5.105750E-02_EB, 2.945599E-03_EB, 2.656328E-02_EB, 2.709003E-01_EB, 7.963168E-01_EB, 9.731125E-01_EB, 2.237348E-01_EB, &
     2.094406E-02_EB, 2.532325E-04_EB, 8.603313E-02_EB, 1.258408E-01_EB, 6.987088E-02_EB, 9.704437E-01_EB, 7.049559E-01_EB, &
     1.382001E-02_EB, 2.164374E-04_EB, 5.300388E-03_EB, 4.040185E-01_EB, 5.065259E-01_EB, 1.779278E+00_EB, 9.229669E-02_EB, &
     1.013101E-02_EB, 3.460394E-04_EB, 2.566832E-03_EB, 6.388567E-02_EB, 2.147372E-01_EB, 1.237580E+00_EB, &
     1.062539E-01_EB/),(/7,8/))
  
  SD1_C2H6(1:7,41:48) = RESHAPE((/ &  ! 930-965 CM-1
     2.805218E-03_EB, 3.631322E-04_EB, 2.361065E-03_EB, 2.853649E-03_EB, 1.391981E-02_EB, 1.135302E+00_EB, 1.345327E-01_EB, &
     2.616753E-03_EB, 3.519962E-04_EB, 2.459903E-04_EB, 2.436123E-01_EB, 3.966290E-03_EB, 1.048639E+00_EB, 5.178554E-02_EB, &
     5.158410E-04_EB, 3.832391E-04_EB, 2.145139E-04_EB, 4.559609E-02_EB, 7.809468E-04_EB, 1.207831E+00_EB, 8.442327E-02_EB, &
     2.986755E-04_EB, 3.753807E-04_EB, 2.668659E-04_EB, 2.070056E-02_EB, 2.165559E-04_EB, 1.341963E+00_EB, 1.118404E-01_EB, &
     4.009616E-04_EB, 3.667449E-04_EB, 3.857376E-04_EB, 2.884928E-04_EB, 2.499297E-04_EB, 1.164307E+00_EB, 1.179168E-01_EB, &
     3.855251E-04_EB, 4.011809E-04_EB, 4.248678E-04_EB, 4.035946E-04_EB, 9.176744E-04_EB, 1.155933E+00_EB, 1.250155E-01_EB, &
     2.767518E-04_EB, 3.807194E-04_EB, 3.312430E-04_EB, 3.468054E-04_EB, 3.815901E-04_EB, 5.697397E-01_EB, 1.342966E-01_EB, &
     3.522300E-04_EB, 3.241922E-04_EB, 2.938979E-04_EB, 3.128230E-04_EB, 3.702311E-04_EB, 1.288695E-01_EB, &
     1.274616E-01_EB/),(/7,8/))
  
  SD1_C2H6(1:7,49:56) = RESHAPE((/ &  ! 970-1005 CM-1
     3.734602E-04_EB, 3.927916E-04_EB, 3.867028E-04_EB, 3.488727E-04_EB, 3.129810E-04_EB, 5.653561E-03_EB, 1.114115E-01_EB, &
     3.090640E-04_EB, 3.182551E-04_EB, 3.234946E-04_EB, 3.977928E-04_EB, 3.092056E-04_EB, 3.223704E-04_EB, 2.110842E-01_EB, &
     3.694516E-04_EB, 3.386979E-04_EB, 3.942745E-04_EB, 4.268219E-04_EB, 4.823033E-04_EB, 3.062293E-04_EB, 1.371742E-01_EB, &
     3.449803E-04_EB, 3.878879E-04_EB, 4.122692E-04_EB, 3.550996E-04_EB, 3.586092E-04_EB, 3.305017E-04_EB, 4.857086E-01_EB, &
     3.341938E-04_EB, 4.611333E-04_EB, 2.824504E-04_EB, 3.440987E-04_EB, 3.632731E-04_EB, 3.190974E-04_EB, 1.036874E-01_EB, &
     3.732784E-04_EB, 3.561815E-04_EB, 3.078580E-04_EB, 4.006334E-04_EB, 3.049231E-04_EB, 3.978448E-04_EB, 4.974197E-02_EB, &
     2.979406E-04_EB, 3.116971E-04_EB, 3.889874E-04_EB, 3.786843E-04_EB, 3.072701E-04_EB, 2.867540E-04_EB, 4.862621E-02_EB, &
     3.325163E-04_EB, 3.138932E-04_EB, 4.250213E-04_EB, 3.119730E-04_EB, 3.732476E-04_EB, 3.717123E-04_EB, &
     4.454824E-02_EB/),(/7,8/))
  
  SD1_C2H6(1:7,57:64) = RESHAPE((/ &  ! 1010-1045 CM-1
     3.350681E-04_EB, 3.530821E-04_EB, 4.528042E-04_EB, 3.516044E-04_EB, 3.923830E-04_EB, 3.532259E-04_EB, 6.542840E-02_EB, &
     3.204957E-04_EB, 3.836292E-04_EB, 3.138970E-04_EB, 3.100875E-04_EB, 3.990551E-04_EB, 3.191793E-04_EB, 7.406912E-02_EB, &
     3.472691E-04_EB, 3.920082E-04_EB, 3.234488E-04_EB, 4.026391E-04_EB, 3.384464E-04_EB, 2.968447E-04_EB, 2.322588E-01_EB, &
     3.347127E-04_EB, 3.546956E-04_EB, 2.920812E-04_EB, 4.081782E-04_EB, 3.386853E-04_EB, 3.307871E-04_EB, 4.463887E-01_EB, &
     3.248741E-04_EB, 4.609033E-04_EB, 3.231879E-04_EB, 3.456361E-04_EB, 3.298612E-04_EB, 3.329381E-04_EB, 1.035782E+00_EB, &
     4.690522E-04_EB, 3.215237E-04_EB, 4.686739E-04_EB, 3.787632E-04_EB, 3.650086E-04_EB, 3.038461E-04_EB, 6.376563E-01_EB, &
     3.712414E-04_EB, 3.428482E-04_EB, 3.459720E-04_EB, 3.001890E-04_EB, 3.653620E-04_EB, 3.093595E-04_EB, 1.783476E-01_EB, &
     3.413817E-04_EB, 3.624958E-04_EB, 3.637267E-04_EB, 3.228750E-04_EB, 2.920456E-04_EB, 3.181545E-04_EB, &
     2.620076E-01_EB/),(/7,8/))
  
  SD1_C2H6(1:7,65:72) = RESHAPE((/ &  ! 1050-1085 CM-1
     3.325905E-04_EB, 3.330314E-04_EB, 3.617122E-04_EB, 3.505622E-04_EB, 3.869601E-04_EB, 3.838024E-04_EB, 5.425202E-01_EB, &
     3.314643E-04_EB, 3.409742E-04_EB, 2.922515E-04_EB, 2.908445E-04_EB, 3.423906E-04_EB, 2.970385E-04_EB, 6.238502E-01_EB, &
     3.492482E-04_EB, 3.606574E-04_EB, 3.274995E-04_EB, 3.213303E-04_EB, 3.179339E-04_EB, 3.480095E-04_EB, 4.163639E-02_EB, &
     3.199232E-04_EB, 3.955618E-04_EB, 2.798966E-04_EB, 3.155772E-04_EB, 2.916205E-04_EB, 3.756559E-04_EB, 1.227547E-02_EB, &
     3.705657E-04_EB, 3.404134E-04_EB, 3.590301E-04_EB, 3.440815E-04_EB, 3.347934E-04_EB, 3.248160E-04_EB, 1.130962E-02_EB, &
     3.884066E-04_EB, 3.017404E-04_EB, 3.954654E-04_EB, 3.017435E-04_EB, 2.609871E-04_EB, 2.759450E-04_EB, 2.756706E-03_EB, &
     3.676700E-04_EB, 3.019733E-04_EB, 3.533386E-04_EB, 3.287691E-04_EB, 4.033519E-04_EB, 3.370772E-04_EB, 3.213983E-04_EB, &
     3.262600E-04_EB, 3.615855E-04_EB, 3.142415E-04_EB, 3.309319E-04_EB, 4.228572E-04_EB, 3.478703E-04_EB, &
     3.234945E-04_EB/),(/7,8/))
  
  SD1_C2H6(1:7,73:74) = RESHAPE((/ &  ! 1090-1095 CM-1
     2.711945E-04_EB, 2.496329E-04_EB, 3.150593E-04_EB, 2.603387E-04_EB, 2.992890E-04_EB, 3.589836E-04_EB, 2.656451E-04_EB, &
     2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, &
     2.145139E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C2H6(N_TEMP_C2H6,74))
  
  ! BAND #1: 730 CM-1 - 1095 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.69096 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C2H6(1:7,1:8) = RESHAPE((/ &  ! 730-765 CM-1
     2.006565E-04_EB, 2.337401E-04_EB, 2.177856E-04_EB, 2.048546E-04_EB, 1.869983E-04_EB, 2.713666E-04_EB, 2.905961E-04_EB, &
     2.306868E-04_EB, 2.167323E-04_EB, 3.350447E-04_EB, 2.526474E-04_EB, 2.261799E-04_EB, 2.480626E-04_EB, 2.521419E-04_EB, &
     2.854020E-04_EB, 3.329316E-04_EB, 1.598485E-04_EB, 3.267121E-02_EB, 2.234431E-04_EB, 2.957501E-04_EB, 2.173206E-04_EB, &
     2.137117E-04_EB, 2.266418E-04_EB, 4.728511E-05_EB, 2.245423E-01_EB, 3.064851E-05_EB, 8.222848E-03_EB, 1.859738E-04_EB, &
     3.462857E-03_EB, 2.519057E-04_EB, 3.480152E-05_EB, 3.925807E-02_EB, 1.572683E-05_EB, 3.101866E-01_EB, 1.995997E-04_EB, &
     9.741100E-03_EB, 2.710087E-04_EB, 2.101240E-03_EB, 7.469797E-02_EB, 2.264929E-05_EB, 1.275440E-01_EB, 1.730011E-04_EB, &
     7.831446E-03_EB, 2.356564E-04_EB, 2.537222E-05_EB, 5.290921E-02_EB, 3.544110E-05_EB, 1.081723E-01_EB, 2.635023E-04_EB, &
     1.830629E-02_EB, 5.427184E-06_EB, 1.638831E-04_EB, 1.590424E-02_EB, 4.986288E-05_EB, 2.169141E-01_EB, &
     2.505642E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,9:16) = RESHAPE((/ &  ! 770-805 CM-1
     3.746173E-02_EB, 1.736644E-05_EB, 6.085991E-04_EB, 4.704301E-01_EB, 6.606423E-04_EB, 7.502293E-02_EB, 2.108317E-04_EB, &
     2.746203E-02_EB, 1.840834E-04_EB, 5.921780E-04_EB, 2.043773E-02_EB, 6.107989E-04_EB, 1.388557E-04_EB, 1.893995E-04_EB, &
     2.420680E-01_EB, 4.191667E-04_EB, 3.132099E-03_EB, 1.886145E+00_EB, 3.070676E-04_EB, 1.079068E-04_EB, 2.691653E-04_EB, &
     8.925252E-02_EB, 1.124913E-03_EB, 8.738915E-03_EB, 1.559750E-03_EB, 2.395539E-04_EB, 1.072791E-04_EB, 1.752395E-04_EB, &
     1.067081E-01_EB, 6.895830E-04_EB, 4.690182E-02_EB, 4.174376E-02_EB, 4.527850E-04_EB, 2.137964E-04_EB, 2.588101E-04_EB, &
     8.746003E-02_EB, 2.440063E-03_EB, 2.130236E-02_EB, 6.354666E-03_EB, 6.671299E-04_EB, 3.378605E-04_EB, 2.343097E-04_EB, &
     9.852102E-02_EB, 4.561646E-03_EB, 3.949280E-02_EB, 1.123806E-02_EB, 8.233218E-04_EB, 2.522466E-04_EB, 2.226954E-04_EB, &
     1.207618E-01_EB, 8.941124E-03_EB, 1.085484E-01_EB, 3.349804E-02_EB, 1.725479E-03_EB, 3.076476E-04_EB, &
     1.938371E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,17:24) = RESHAPE((/ &  ! 810-845 CM-1
     1.241365E-01_EB, 9.920833E-03_EB, 2.540899E-02_EB, 1.887039E-02_EB, 6.826400E-03_EB, 2.126909E-04_EB, 2.773335E-04_EB, &
     1.417207E-01_EB, 2.020016E-02_EB, 3.589721E-02_EB, 1.758195E-02_EB, 1.968415E-03_EB, 2.289210E-04_EB, 2.228792E-04_EB, &
     1.684374E-01_EB, 2.315876E-02_EB, 3.432510E-02_EB, 1.023915E-02_EB, 2.040480E-03_EB, 2.528208E-03_EB, 2.461503E-04_EB, &
     2.993636E-01_EB, 4.679863E-02_EB, 4.993611E-02_EB, 5.799012E-01_EB, 1.375382E-03_EB, 5.540907E+00_EB, 2.729510E-04_EB, &
     3.763363E-01_EB, 3.147273E-02_EB, 5.066712E-02_EB, 5.649368E-02_EB, 2.734156E-03_EB, 8.088974E+00_EB, 2.352079E-04_EB, &
     3.923696E-01_EB, 4.535395E-02_EB, 3.848111E-02_EB, 2.837120E-02_EB, 3.903926E-02_EB, 4.193583E+00_EB, 1.708561E-04_EB, &
     6.116601E-01_EB, 3.911633E-02_EB, 9.404679E-02_EB, 3.598464E-02_EB, 4.985811E-03_EB, 2.536374E+00_EB, 1.671554E-02_EB, &
     6.488105E-01_EB, 3.434365E-02_EB, 5.620492E-02_EB, 4.579674E-02_EB, 3.831981E-03_EB, 2.040147E-02_EB, &
     1.535947E-01_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,25:32) = RESHAPE((/ &  ! 850-885 CM-1
     2.185282E-01_EB, 2.624089E-02_EB, 8.281180E-02_EB, 1.337021E-01_EB, 1.164389E-02_EB, 1.441667E-02_EB, 1.326192E+00_EB, &
     1.054436E-01_EB, 1.564415E-02_EB, 4.232910E-02_EB, 2.542335E-02_EB, 9.182689E-02_EB, 2.979608E-02_EB, 3.412059E+00_EB, &
     1.037085E-01_EB, 2.307616E-02_EB, 2.791608E-02_EB, 7.390912E-02_EB, 1.792121E-02_EB, 8.709794E-03_EB, 9.123564E-01_EB, &
     6.557347E-02_EB, 2.400623E-02_EB, 1.184967E-02_EB, 1.759675E-02_EB, 4.025549E-02_EB, 1.650755E-01_EB, 4.126380E-01_EB, &
     3.854672E-02_EB, 1.545381E-02_EB, 1.176956E-02_EB, 5.353178E-03_EB, 3.790587E-03_EB, 2.857260E+00_EB, 4.896543E-02_EB, &
     3.823510E-02_EB, 1.163165E-02_EB, 7.527145E-03_EB, 1.044536E-02_EB, 4.277846E-03_EB, 2.782661E+00_EB, 9.862962E-03_EB, &
     2.698248E-02_EB, 1.682716E-02_EB, 4.532103E-03_EB, 2.286498E-02_EB, 1.772522E-03_EB, 2.075720E+00_EB, 2.124687E-02_EB, &
     2.066380E-02_EB, 4.723103E-03_EB, 6.343220E-03_EB, 2.397806E-02_EB, 2.607826E-02_EB, 7.702274E-03_EB, &
     1.637205E-02_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,33:40) = RESHAPE((/ &  ! 890-925 CM-1
     1.658402E-02_EB, 9.717357E-04_EB, 4.999287E-03_EB, 3.360172E-03_EB, 7.640958E-03_EB, 5.866049E-04_EB, 4.203039E-03_EB, &
     9.306719E-03_EB, 1.059841E-03_EB, 1.554113E-02_EB, 4.017085E-03_EB, 1.562439E-03_EB, 2.629554E-04_EB, 2.723941E-02_EB, &
     6.324845E-03_EB, 1.323745E-04_EB, 2.015294E-02_EB, 4.021824E-04_EB, 2.200845E-03_EB, 1.909660E-04_EB, 2.384092E-03_EB, &
     6.442116E-03_EB, 1.976663E-04_EB, 1.301740E-02_EB, 7.108478E-03_EB, 9.667620E-03_EB, 1.093856E-04_EB, 1.651473E-03_EB, &
     6.177417E-04_EB, 5.252625E-04_EB, 3.292456E-03_EB, 9.638064E-05_EB, 1.157061E-04_EB, 9.272832E-05_EB, 1.772000E-03_EB, &
     3.119150E-03_EB, 1.688032E-04_EB, 1.157769E-04_EB, 4.344200E-05_EB, 6.951343E-04_EB, 9.547409E-05_EB, 5.716592E-04_EB, &
     3.033519E-03_EB, 1.700977E-04_EB, 1.923551E-03_EB, 1.441479E-05_EB, 9.010921E-05_EB, 4.649518E-05_EB, 3.993180E-03_EB, &
     4.505246E-03_EB, 2.206088E-04_EB, 4.709851E-04_EB, 4.044407E-05_EB, 9.427052E-05_EB, 4.271051E-05_EB, &
     4.728030E-03_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,41:48) = RESHAPE((/ &  ! 930-965 CM-1
     8.515529E-04_EB, 2.523157E-04_EB, 3.215017E-03_EB, 8.896712E-05_EB, 2.653323E-03_EB, 2.395564E-05_EB, 5.128282E-03_EB, &
     1.598460E-03_EB, 2.391773E-04_EB, 2.024249E-04_EB, 4.570502E-06_EB, 1.197295E-03_EB, 2.420553E-05_EB, 7.176382E-01_EB, &
     5.405162E-04_EB, 2.754095E-04_EB, 1.688326E-04_EB, 1.901197E-05_EB, 1.882451E-04_EB, 2.561929E-05_EB, 1.225580E+00_EB, &
     2.092858E-04_EB, 2.662552E-04_EB, 2.026153E-04_EB, 1.070822E-05_EB, 1.684702E-04_EB, 2.442314E-05_EB, 2.444828E+01_EB, &
     2.529925E-04_EB, 2.765314E-04_EB, 2.642207E-04_EB, 2.200703E-04_EB, 1.995939E-04_EB, 2.380865E-05_EB, 2.685955E+01_EB, &
     2.173973E-04_EB, 2.813395E-04_EB, 2.874743E-04_EB, 3.035869E-04_EB, 6.183918E-04_EB, 2.202463E-05_EB, 2.519809E+00_EB, &
     1.980501E-04_EB, 2.678571E-04_EB, 2.137226E-04_EB, 2.556760E-04_EB, 2.222342E-04_EB, 1.634015E-05_EB, 3.727180E-02_EB, &
     2.678728E-04_EB, 2.424340E-04_EB, 1.979944E-04_EB, 2.135470E-04_EB, 2.146239E-04_EB, 1.781477E-05_EB, &
     7.049181E-03_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,49:56) = RESHAPE((/ &  ! 970-1005 CM-1
     2.364062E-04_EB, 2.712640E-04_EB, 2.842134E-04_EB, 2.567382E-04_EB, 2.256683E-04_EB, 2.498984E-05_EB, 4.004321E-03_EB, &
     2.157659E-04_EB, 2.064345E-04_EB, 2.288569E-04_EB, 2.738793E-04_EB, 2.050141E-04_EB, 2.197032E-04_EB, 1.028210E-03_EB, &
     2.197468E-04_EB, 2.679068E-04_EB, 2.304862E-04_EB, 2.905492E-04_EB, 2.725375E-04_EB, 2.159399E-04_EB, 1.419923E-03_EB, &
     2.335319E-04_EB, 2.681889E-04_EB, 3.239557E-04_EB, 2.569741E-04_EB, 2.238526E-04_EB, 2.007748E-04_EB, 2.537471E-04_EB, &
     2.263569E-04_EB, 3.026600E-04_EB, 2.089141E-04_EB, 2.243273E-04_EB, 2.228419E-04_EB, 2.279698E-04_EB, 7.317457E-04_EB, &
     2.753690E-04_EB, 2.292202E-04_EB, 2.318102E-04_EB, 2.597276E-04_EB, 2.082393E-04_EB, 2.415048E-04_EB, 2.144539E-03_EB, &
     2.130814E-04_EB, 2.160667E-04_EB, 3.005135E-04_EB, 2.457929E-04_EB, 2.262402E-04_EB, 2.271924E-04_EB, 1.982460E-03_EB, &
     2.260545E-04_EB, 2.078552E-04_EB, 2.252198E-04_EB, 2.292910E-04_EB, 2.617146E-04_EB, 2.719938E-04_EB, &
     9.539658E-03_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,57:64) = RESHAPE((/ &  ! 1010-1045 CM-1
     2.185131E-04_EB, 2.784174E-04_EB, 2.724240E-04_EB, 2.166217E-04_EB, 2.454826E-04_EB, 2.343101E-04_EB, 4.681303E-03_EB, &
     2.140851E-04_EB, 2.908903E-04_EB, 2.238573E-04_EB, 1.936346E-04_EB, 2.929472E-04_EB, 1.997998E-04_EB, 5.199463E-03_EB, &
     2.704701E-04_EB, 2.762782E-04_EB, 2.520038E-04_EB, 2.774566E-04_EB, 2.294524E-04_EB, 1.897369E-04_EB, 1.101146E-03_EB, &
     2.261254E-04_EB, 2.439262E-04_EB, 2.109405E-04_EB, 2.752945E-04_EB, 2.380712E-04_EB, 2.219084E-04_EB, 4.729845E-04_EB, &
     2.442952E-04_EB, 3.469938E-04_EB, 2.322461E-04_EB, 2.311834E-04_EB, 2.364839E-04_EB, 2.042171E-04_EB, 2.219015E-04_EB, &
     2.634592E-04_EB, 2.110525E-04_EB, 3.161689E-04_EB, 2.414846E-04_EB, 2.423626E-04_EB, 2.110280E-04_EB, 3.145896E-04_EB, &
     2.659955E-04_EB, 2.470635E-04_EB, 2.700914E-04_EB, 2.258166E-04_EB, 2.553061E-04_EB, 2.172449E-04_EB, 8.521657E-04_EB, &
     2.210763E-04_EB, 2.410264E-04_EB, 2.690630E-04_EB, 2.296574E-04_EB, 1.980775E-04_EB, 2.236759E-04_EB, &
     5.582951E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,65:72) = RESHAPE((/ &  ! 1050-1085 CM-1
     2.066800E-04_EB, 2.209692E-04_EB, 2.738395E-04_EB, 2.085763E-04_EB, 2.168987E-04_EB, 2.377505E-04_EB, 1.629293E-04_EB, &
     2.355869E-04_EB, 2.212229E-04_EB, 2.006984E-04_EB, 2.157291E-04_EB, 2.203006E-04_EB, 2.060948E-04_EB, 9.639746E-05_EB, &
     2.268691E-04_EB, 2.800409E-04_EB, 1.984453E-04_EB, 2.045951E-04_EB, 1.977593E-04_EB, 2.051878E-04_EB, 9.621759E-04_EB, &
     2.273679E-04_EB, 2.692054E-04_EB, 2.117256E-04_EB, 2.039894E-04_EB, 1.777981E-04_EB, 2.609597E-04_EB, 1.607451E-03_EB, &
     2.293047E-04_EB, 2.421597E-04_EB, 2.833909E-04_EB, 2.164108E-04_EB, 2.199777E-04_EB, 2.398280E-04_EB, 1.282936E-03_EB, &
     2.497990E-04_EB, 2.311811E-04_EB, 2.716080E-04_EB, 2.074448E-04_EB, 1.857482E-04_EB, 1.792751E-04_EB, 9.092886E-04_EB, &
     2.440601E-04_EB, 2.141159E-04_EB, 2.414717E-04_EB, 2.388990E-04_EB, 2.516826E-04_EB, 2.158533E-04_EB, 2.049667E-04_EB, &
     2.220025E-04_EB, 2.592544E-04_EB, 1.988151E-04_EB, 1.978750E-04_EB, 2.337158E-04_EB, 2.300715E-04_EB, &
     1.991380E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H6(1:7,73:74) = RESHAPE((/ &  ! 1090-1095 CM-1
     1.847719E-04_EB, 1.895118E-04_EB, 2.362824E-04_EB, 1.933361E-04_EB, 2.035927E-04_EB, 2.735696E-04_EB, 2.160458E-04_EB, &
     1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, &
     1.688326E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C2H6(N_TEMP_C2H6,19))
  
  ! BAND #2: 1250 CM-1 - 1700 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.536 %
  
  SD2_C2H6(1:7,1:8) = RESHAPE((/ &  ! 1250-1425 CM-1
     2.890736E-04_EB, 2.831224E-04_EB, 2.500860E-04_EB, 2.757140E-04_EB, 3.408382E-04_EB, 8.798483E-04_EB, 9.996940E-04_EB, &
     3.173085E-04_EB, 3.511457E-04_EB, 3.615941E-04_EB, 3.532323E-04_EB, 3.063903E-03_EB, 5.665886E-01_EB, 6.009682E-01_EB, &
     7.762194E-03_EB, 3.886970E-04_EB, 3.445713E-04_EB, 3.346007E-04_EB, 9.791971E-03_EB, 3.101724E-01_EB, 3.854181E-01_EB, &
     5.755406E-03_EB, 2.965005E-03_EB, 3.003864E-03_EB, 2.921568E-02_EB, 2.167033E-02_EB, 2.481666E-01_EB, 4.975186E-01_EB, &
     2.729491E-02_EB, 4.272374E-02_EB, 4.078658E-02_EB, 5.957540E-02_EB, 5.312857E-02_EB, 7.121161E-02_EB, 4.478193E-02_EB, &
     1.116554E-01_EB, 1.211306E-01_EB, 1.109669E-01_EB, 1.148103E-01_EB, 9.457225E-02_EB, 9.397124E-02_EB, 6.487302E-02_EB, &
     2.433578E-01_EB, 2.251434E-01_EB, 1.980541E-01_EB, 1.663919E-01_EB, 1.429235E-01_EB, 1.679094E-01_EB, 1.043870E-01_EB, &
     3.085264E-01_EB, 2.668615E-01_EB, 2.316373E-01_EB, 1.816814E-01_EB, 1.675634E-01_EB, 1.397869E-01_EB, &
     9.888312E-02_EB/),(/7,8/))
  
  SD2_C2H6(1:7,9:16) = RESHAPE((/ &  ! 1450-1625 CM-1
     4.739873E-01_EB, 3.630012E-01_EB, 2.939668E-01_EB, 2.366840E-01_EB, 2.000756E-01_EB, 1.538908E-01_EB, 1.749130E-01_EB, &
     5.226241E-01_EB, 3.793992E-01_EB, 3.109342E-01_EB, 2.476162E-01_EB, 1.999044E-01_EB, 1.438092E-01_EB, 3.486559E-01_EB, &
     4.230308E-01_EB, 3.178107E-01_EB, 2.777402E-01_EB, 1.894468E-01_EB, 1.805602E-01_EB, 1.554106E-01_EB, 1.422521E-01_EB, &
     2.761096E-01_EB, 2.597293E-01_EB, 2.257682E-01_EB, 1.514748E-01_EB, 1.401495E-01_EB, 1.253687E-01_EB, 7.720757E-02_EB, &
     1.111228E-01_EB, 1.672047E-01_EB, 1.760444E-01_EB, 8.528705E-02_EB, 1.082694E-01_EB, 9.903350E-02_EB, 6.563257E-02_EB, &
     3.538374E-02_EB, 1.038124E-01_EB, 5.979240E-02_EB, 7.230511E-02_EB, 5.579668E-02_EB, 6.549601E-02_EB, 1.002546E-01_EB, &
     4.798824E-03_EB, 1.584507E-02_EB, 1.391213E-02_EB, 7.436389E-01_EB, 2.920638E-02_EB, 1.145160E-01_EB, 1.008028E-01_EB, &
     3.514365E-04_EB, 3.078667E-04_EB, 6.289715E-04_EB, 7.024049E-03_EB, 1.079463E-02_EB, 2.595491E-01_EB, &
     1.608240E-02_EB/),(/7,8/))
  
  SD2_C2H6(1:7,17:19) = RESHAPE((/ &  ! 1650-1700 CM-1
     3.438068E-04_EB, 3.506371E-04_EB, 3.282171E-04_EB, 3.346269E-04_EB, 1.558845E-03_EB, 6.506371E-02_EB, 2.338883E-01_EB, &
     2.659394E-04_EB, 3.048186E-04_EB, 2.844540E-04_EB, 2.662972E-04_EB, 3.138724E-04_EB, 3.077023E-03_EB, 7.859120E-03_EB, &
     2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, &
     2.145139E-04_EB/),(/7,3/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C2H6(N_TEMP_C2H6,19))
  
  ! BAND #2: 1250 CM-1 - 1700 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.536 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C2H6(1:7,1:8) = RESHAPE((/ &  ! 1250-1425 CM-1
     2.119975E-04_EB, 2.146327E-04_EB, 1.903252E-04_EB, 2.022541E-04_EB, 2.602782E-04_EB, 4.275791E-04_EB, 2.592334E-04_EB, &
     2.197390E-04_EB, 2.683644E-04_EB, 2.472885E-04_EB, 2.304333E-04_EB, 8.267459E-03_EB, 1.628893E-05_EB, 3.112078E-05_EB, &
     1.421119E-02_EB, 2.763312E-04_EB, 2.321580E-04_EB, 2.291520E-04_EB, 1.958198E-02_EB, 6.419678E-05_EB, 1.177209E-04_EB, &
     5.134518E-02_EB, 1.180015E-03_EB, 5.665049E-03_EB, 9.959465E-05_EB, 7.884425E-02_EB, 2.789112E-04_EB, 2.062441E-04_EB, &
     6.493055E-01_EB, 8.533910E-03_EB, 1.523050E-02_EB, 5.127453E-03_EB, 6.635840E-01_EB, 1.697909E-02_EB, 1.007998E+00_EB, &
     6.644469E+00_EB, 5.703315E-02_EB, 7.526340E-02_EB, 3.982739E-02_EB, 2.373472E+00_EB, 2.681325E-02_EB, 6.481877E-01_EB, &
     4.838580E+01_EB, 1.082873E-01_EB, 1.011916E-01_EB, 2.605553E-01_EB, 2.237840E+00_EB, 1.611963E-02_EB, 3.893042E-01_EB, &
     7.997133E+01_EB, 1.230787E-01_EB, 1.231629E-01_EB, 3.381738E+00_EB, 2.828329E-01_EB, 5.186004E-02_EB, &
     4.989001E-02_EB/),(/7,8/))
  
  GAMMAD2_C2H6(1:7,9:16) = RESHAPE((/ &  ! 1450-1625 CM-1
     7.999999E+01_EB, 1.520030E-01_EB, 1.960215E-01_EB, 3.752618E-01_EB, 2.469986E-01_EB, 4.882190E-02_EB, 1.110526E-02_EB, &
     7.998354E+01_EB, 1.855013E-01_EB, 1.836005E-01_EB, 2.792553E-01_EB, 2.412743E-01_EB, 4.914911E-02_EB, 2.585712E-03_EB, &
     8.000000E+01_EB, 1.653039E-01_EB, 1.276875E-01_EB, 4.450008E+01_EB, 1.282813E-01_EB, 1.923521E-02_EB, 9.527892E-03_EB, &
     8.000000E+01_EB, 7.676701E-02_EB, 7.528859E-02_EB, 3.303007E+01_EB, 3.079957E-01_EB, 2.422473E-02_EB, 3.925627E-02_EB, &
     7.999946E+01_EB, 2.618451E-02_EB, 2.459894E-02_EB, 1.811547E+01_EB, 7.028942E-02_EB, 2.413638E-02_EB, 3.482649E-02_EB, &
     3.034575E+00_EB, 3.670718E-03_EB, 3.712350E-02_EB, 1.721291E-02_EB, 2.149261E+00_EB, 1.626810E-02_EB, 2.799184E-03_EB, &
     2.512595E-02_EB, 8.026413E-04_EB, 5.409205E-02_EB, 1.139540E-04_EB, 7.373019E-01_EB, 1.105238E-03_EB, 1.244382E-03_EB, &
     2.370622E-04_EB, 2.109883E-04_EB, 4.709529E-04_EB, 1.239090E-03_EB, 2.096932E-01_EB, 1.101878E-04_EB, &
     6.601257E-03_EB/),(/7,8/))
  
  GAMMAD2_C2H6(1:7,17:19) = RESHAPE((/ &  ! 1650-1700 CM-1
     2.490089E-04_EB, 2.329594E-04_EB, 2.331607E-04_EB, 2.360833E-04_EB, 1.239584E-03_EB, 1.730171E-04_EB, 6.965657E-05_EB, &
     1.969514E-04_EB, 2.180366E-04_EB, 2.121351E-04_EB, 1.905845E-04_EB, 2.199848E-04_EB, 9.700224E-04_EB, 1.623935E-03_EB, &
     1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, &
     1.688326E-04_EB/),(/7,3/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_C2H6(N_TEMP_C2H6,34))
  
  ! BAND #3: 2550 CM-1 - 3375 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.3765 %
  
  SD3_C2H6(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     1.273212E-03_EB, 2.818357E-04_EB, 2.919712E-04_EB, 2.725676E-04_EB, 3.224456E-04_EB, 1.576641E-03_EB, 7.098264E-02_EB, &
     1.760425E-02_EB, 2.470202E-03_EB, 6.517460E-04_EB, 1.488758E-03_EB, 2.133431E-03_EB, 7.058130E-03_EB, 5.189907E-01_EB, &
     1.544358E-02_EB, 7.033132E-03_EB, 6.497614E-03_EB, 7.444432E-03_EB, 7.481133E-03_EB, 9.709862E-03_EB, 1.866477E-01_EB, &
     2.776353E-02_EB, 1.788161E-02_EB, 1.440452E-02_EB, 1.497498E-02_EB, 1.098338E-02_EB, 1.398847E-02_EB, 1.830505E-01_EB, &
     4.053879E-02_EB, 2.592830E-02_EB, 1.797176E-02_EB, 1.619226E-02_EB, 1.327884E-02_EB, 1.766187E-02_EB, 1.018847E-02_EB, &
     4.388545E-02_EB, 3.290936E-02_EB, 2.841386E-02_EB, 1.850778E-02_EB, 1.703843E-02_EB, 2.108276E-02_EB, 2.254688E-02_EB, &
     3.693893E-02_EB, 3.278040E-02_EB, 3.020784E-02_EB, 2.524477E-02_EB, 2.353619E-02_EB, 2.930089E-02_EB, 3.312656E-02_EB, &
     5.710175E-02_EB, 5.583766E-02_EB, 4.445106E-02_EB, 4.789108E-02_EB, 3.783170E-02_EB, 4.950327E-02_EB, &
     5.137114E-02_EB/),(/7,8/))
  
  SD3_C2H6(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     9.437750E-02_EB, 7.826799E-02_EB, 6.481721E-02_EB, 7.020402E-02_EB, 6.017769E-02_EB, 7.963757E-02_EB, 9.068663E-02_EB, &
     1.449953E-01_EB, 1.110552E-01_EB, 9.612305E-02_EB, 1.060636E-01_EB, 8.633211E-02_EB, 1.043293E-01_EB, 1.280871E-01_EB, &
     1.001382E-01_EB, 8.904423E-02_EB, 8.899341E-02_EB, 1.080298E-01_EB, 9.748937E-02_EB, 1.507712E-01_EB, 2.152193E-01_EB, &
     1.789013E-01_EB, 1.576201E-01_EB, 1.688876E-01_EB, 1.893222E-01_EB, 2.046234E-01_EB, 2.778477E-01_EB, 3.326868E-01_EB, &
     4.519875E-01_EB, 4.722980E-01_EB, 5.002552E-01_EB, 5.176398E-01_EB, 5.259894E-01_EB, 5.581873E-01_EB, 5.217227E-01_EB, &
     1.942344E+00_EB, 1.479985E+00_EB, 1.319915E+00_EB, 1.189402E+00_EB, 1.020515E+00_EB, 8.684235E-01_EB, 7.596269E-01_EB, &
     2.588837E+00_EB, 1.924667E+00_EB, 1.726463E+00_EB, 1.589788E+00_EB, 1.374889E+00_EB, 1.152320E+00_EB, 9.331464E-01_EB, &
     4.349487E+00_EB, 3.315472E+00_EB, 2.890903E+00_EB, 2.568487E+00_EB, 2.077789E+00_EB, 1.524372E+00_EB, &
     1.129152E+00_EB/),(/7,8/))
  
  SD3_C2H6(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     4.686779E+00_EB, 3.462217E+00_EB, 2.991646E+00_EB, 2.656886E+00_EB, 2.157561E+00_EB, 1.584726E+00_EB, 1.167425E+00_EB, &
     5.661792E+00_EB, 4.018616E+00_EB, 3.411886E+00_EB, 2.975545E+00_EB, 2.380752E+00_EB, 1.690561E+00_EB, 1.242062E+00_EB, &
     4.918064E+00_EB, 3.441837E+00_EB, 2.903757E+00_EB, 2.525786E+00_EB, 2.015014E+00_EB, 1.429458E+00_EB, 1.053831E+00_EB, &
     3.342233E+00_EB, 2.430853E+00_EB, 2.070409E+00_EB, 1.791861E+00_EB, 1.453571E+00_EB, 1.041375E+00_EB, 8.022528E-01_EB, &
     1.298165E+00_EB, 1.255308E+00_EB, 1.160176E+00_EB, 1.048498E+00_EB, 9.329619E-01_EB, 7.444407E-01_EB, 5.802852E-01_EB, &
     2.926016E-01_EB, 4.494914E-01_EB, 4.813448E-01_EB, 4.684675E-01_EB, 5.012802E-01_EB, 4.679462E-01_EB, 4.003903E-01_EB, &
     6.131343E-02_EB, 1.274991E-01_EB, 1.601441E-01_EB, 1.663262E-01_EB, 2.229073E-01_EB, 2.672821E-01_EB, 2.381398E-01_EB, &
     4.322732E-02_EB, 6.015505E-02_EB, 6.743728E-02_EB, 6.674353E-02_EB, 1.110929E-01_EB, 1.464795E-01_EB, &
     1.569146E-01_EB/),(/7,8/))
  
  SD3_C2H6(1:7,25:32) = RESHAPE((/ &  ! 3150-3325 CM-1
     3.604160E-02_EB, 1.194845E-01_EB, 4.058106E-02_EB, 4.315323E-02_EB, 9.519510E-02_EB, 8.917098E-02_EB, 1.405300E-01_EB, &
     4.315334E-02_EB, 4.712174E-01_EB, 4.312845E-02_EB, 3.219296E-02_EB, 3.525944E-01_EB, 1.060124E-01_EB, 5.046058E-01_EB, &
     1.257731E-01_EB, 8.432473E-01_EB, 9.486353E-02_EB, 2.860309E-01_EB, 4.209545E-01_EB, 1.897258E-01_EB, 1.586487E+00_EB, &
     5.478996E-02_EB, 5.751983E-01_EB, 1.238009E-01_EB, 1.250768E-01_EB, 9.468278E-01_EB, 3.490872E-01_EB, 1.256817E+00_EB, &
     7.050923E-02_EB, 6.595339E-01_EB, 1.143623E-01_EB, 3.234956E-01_EB, 7.050330E-01_EB, 3.260248E-01_EB, 5.549485E-01_EB, &
     4.360067E-02_EB, 5.450163E-01_EB, 1.152844E-01_EB, 2.285287E-01_EB, 6.637506E-01_EB, 2.501009E-01_EB, 3.535923E-01_EB, &
     1.872369E-01_EB, 3.564558E-01_EB, 4.090535E-02_EB, 1.306462E-01_EB, 4.246963E-01_EB, 7.148910E-02_EB, 1.438647E-01_EB, &
     5.015709E-03_EB, 1.912379E-01_EB, 9.285764E-03_EB, 1.392927E-03_EB, 2.040005E-01_EB, 9.061367E-02_EB, &
     9.395617E-04_EB/),(/7,8/))
  
  SD3_C2H6(1:7,33:34) = RESHAPE((/ &  ! 3350-3375 CM-1
     2.644024E-04_EB, 1.032051E-02_EB, 3.153028E-03_EB, 3.073098E-04_EB, 1.028061E-02_EB, 1.242207E-03_EB, 2.965961E-04_EB, &
     2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, 2.145139E-04_EB, &
     2.145139E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_C2H6(N_TEMP_C2H6,34))
  
  ! BAND #3: 2550 CM-1 - 3375 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.3765 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_C2H6(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     5.906363E-04_EB, 2.102426E-04_EB, 2.132346E-04_EB, 2.065179E-04_EB, 2.655299E-04_EB, 8.306361E-04_EB, 3.355503E-05_EB, &
     2.516050E-04_EB, 3.355121E-03_EB, 4.172370E-04_EB, 1.011463E-03_EB, 2.596114E-02_EB, 1.182928E-03_EB, 2.503340E-05_EB, &
     4.163269E-03_EB, 1.125552E-01_EB, 4.980295E-03_EB, 2.696283E-03_EB, 3.105873E-02_EB, 4.712694E-03_EB, 6.033084E-05_EB, &
     2.623691E-02_EB, 1.923864E-02_EB, 3.655389E-02_EB, 4.141023E-03_EB, 3.609314E-02_EB, 3.824795E-03_EB, 1.219453E-04_EB, &
     5.265718E-02_EB, 8.436915E-03_EB, 1.960254E-02_EB, 1.875421E-03_EB, 2.111866E-02_EB, 3.776296E-03_EB, 3.441962E-02_EB, &
     3.937315E-02_EB, 8.289911E-03_EB, 4.840661E-03_EB, 4.421232E-03_EB, 7.814993E-02_EB, 1.662021E-02_EB, 1.455835E-01_EB, &
     3.720731E-02_EB, 8.723819E-03_EB, 7.153107E-03_EB, 7.013544E-03_EB, 7.319968E-02_EB, 1.767570E-01_EB, 8.122963E-01_EB, &
     4.868277E-02_EB, 1.269629E-02_EB, 3.095084E-02_EB, 1.285202E-02_EB, 3.311119E-01_EB, 4.745323E-02_EB, &
     5.448600E-01_EB/),(/7,8/))
  
  GAMMAD3_C2H6(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     7.027332E-02_EB, 3.651191E-02_EB, 1.128884E-01_EB, 2.630950E-02_EB, 2.289043E-01_EB, 3.168499E-02_EB, 2.263308E-02_EB, &
     1.007340E-01_EB, 9.210111E-02_EB, 1.687337E-01_EB, 2.959829E-02_EB, 1.810977E-01_EB, 9.553982E-02_EB, 3.918733E-02_EB, &
     4.509352E-02_EB, 1.086112E-01_EB, 7.647679E-02_EB, 2.814778E-02_EB, 8.981709E-01_EB, 1.273344E-01_EB, 4.408137E-02_EB, &
     9.590449E-02_EB, 2.770484E-01_EB, 1.477733E-01_EB, 1.049910E-01_EB, 3.105849E-01_EB, 2.918868E-01_EB, 1.291524E-01_EB, &
     3.138946E-01_EB, 5.413508E-01_EB, 3.949461E-01_EB, 3.999787E-01_EB, 6.266594E-01_EB, 4.691785E-01_EB, 3.754321E-01_EB, &
     1.106384E+00_EB, 1.162295E+00_EB, 1.094260E+00_EB, 1.051491E+00_EB, 1.215748E+00_EB, 7.154832E-01_EB, 4.545049E-01_EB, &
     1.517339E+00_EB, 1.415673E+00_EB, 1.368748E+00_EB, 1.312400E+00_EB, 1.453900E+00_EB, 9.649236E-01_EB, 7.807490E-01_EB, &
     4.303118E+00_EB, 2.952375E+00_EB, 2.831306E+00_EB, 2.384206E+00_EB, 2.387748E+00_EB, 1.208513E+00_EB, &
     8.645917E-01_EB/),(/7,8/))
  
  GAMMAD3_C2H6(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     3.315145E+00_EB, 2.599752E+00_EB, 2.743646E+00_EB, 2.629391E+00_EB, 2.506127E+00_EB, 1.333128E+00_EB, 9.626906E-01_EB, &
     1.456169E+00_EB, 1.207547E+00_EB, 1.363886E+00_EB, 1.509996E+00_EB, 1.699983E+00_EB, 1.288544E+00_EB, 8.734672E-01_EB, &
     1.081840E+00_EB, 1.007445E+00_EB, 1.186416E+00_EB, 1.295045E+00_EB, 1.467006E+00_EB, 1.089437E+00_EB, 7.294066E-01_EB, &
     1.769766E+00_EB, 1.424872E+00_EB, 1.588295E+00_EB, 1.745279E+00_EB, 1.453194E+00_EB, 9.836635E-01_EB, 4.884795E-01_EB, &
     8.210794E-01_EB, 7.811090E-01_EB, 9.322482E-01_EB, 1.373898E+00_EB, 1.084482E+00_EB, 6.956616E-01_EB, 5.118669E-01_EB, &
     1.964022E-01_EB, 3.039042E-01_EB, 3.956607E-01_EB, 1.328063E+00_EB, 5.899273E-01_EB, 6.132437E-01_EB, 5.047836E-01_EB, &
     2.041406E-02_EB, 8.312137E-02_EB, 1.318700E-01_EB, 7.573599E+00_EB, 2.512530E-01_EB, 2.496958E-01_EB, 1.051791E+00_EB, &
     5.023107E-03_EB, 9.491129E-03_EB, 3.053563E-02_EB, 9.379598E-02_EB, 3.673982E-02_EB, 7.455316E-02_EB, &
     2.454365E-01_EB/),(/7,8/))
  
  GAMMAD3_C2H6(1:7,25:32) = RESHAPE((/ &  ! 3150-3325 CM-1
     6.352743E-03_EB, 7.943354E-04_EB, 1.083748E-02_EB, 9.588981E-03_EB, 4.904702E-03_EB, 1.679226E-02_EB, 1.304495E-02_EB, &
     6.766775E-03_EB, 1.596208E-04_EB, 6.130026E-03_EB, 7.152650E-03_EB, 3.279571E-04_EB, 1.794526E-03_EB, 4.823723E-04_EB, &
     1.510899E-03_EB, 1.196785E-04_EB, 1.094313E-03_EB, 1.868976E-04_EB, 1.950517E-04_EB, 3.851491E-04_EB, 8.135632E-05_EB, &
     1.592258E-02_EB, 2.062254E-04_EB, 8.766044E-04_EB, 4.062596E-04_EB, 1.031744E-04_EB, 1.363841E-04_EB, 4.489251E-05_EB, &
     5.336883E-03_EB, 1.621021E-04_EB, 8.122952E-04_EB, 9.938396E-05_EB, 1.057126E-04_EB, 8.283648E-05_EB, 2.421683E-05_EB, &
     7.894809E-03_EB, 1.025986E-04_EB, 4.657427E-04_EB, 6.874881E-05_EB, 6.535834E-05_EB, 3.906150E-05_EB, 4.299378E-05_EB, &
     1.168996E-04_EB, 6.996908E-05_EB, 5.712580E-04_EB, 3.973347E-05_EB, 4.446145E-05_EB, 8.103887E-05_EB, 3.469019E-05_EB, &
     1.835174E-04_EB, 4.182929E-05_EB, 1.449024E-03_EB, 6.981809E-04_EB, 3.965878E-05_EB, 3.732167E-05_EB, &
     1.777260E-02_EB/),(/7,8/))
  
  GAMMAD3_C2H6(1:7,33:34) = RESHAPE((/ &  ! 3350-3375 CM-1
     1.966771E-04_EB, 1.267047E-04_EB, 5.949690E-04_EB, 2.287935E-04_EB, 1.200025E-04_EB, 2.518698E-04_EB, 2.116261E-04_EB, &
     1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, 1.688326E-04_EB, &
     1.688326E-04_EB/),(/7,2/))
  
  !-------------------------ETHYLENE DATA-------------------
  
  
  ! THERE ARE 4 BANDS FOR ETHYLENE
  
  ! BAND #1: 750 CM-1 - 1250 CM-1
  ! BAND #2: 1300 CM-1 - 1600 CM-1
  ! BAND #3: 1750 CM-1 - 2075 CM-1
  ! BAND #4: 2800 CM-1 - 3400 CM-1
  
  ALLOCATE(SD_C2H4_TEMP(N_TEMP_C2H4))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR ETHYLENE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C2H4(N_BAND_C2H4,3))
  ALLOCATE(BE_C2H4(N_BAND_C2H4))
  
  OM_BND_C2H4 = RESHAPE((/ &
     750._EB, 1300._EB, 1750._EB, 2800._EB, &
     1250._EB, 1600._EB, 2075._EB, 3400._EB, &
     5._EB, 25._EB, 25._EB, 25._EB/),(/N_BAND_C2H4,3/))
  
  SD_C2H4_TEMP = (/ &
     296._EB, 400._EB, 450._EB, 500._EB, 601._EB, 801._EB,&
     1000._EB/)
  
  BE_C2H4 = (/ &
     1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C2H4(N_TEMP_C2H4,77))
  
  ! BAND #1: 750 CM-1 - 1250 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.6588 %
  
  SD1_C2H4(1:7,1:8) = RESHAPE((/ &  ! 750-785 CM-1
     3.061616E-04_EB, 2.767365E-04_EB, 2.573770E-04_EB, 3.123088E-04_EB, 2.802708E-04_EB, 3.214089E-04_EB, 1.645179E-04_EB, &
     3.863930E-04_EB, 3.214740E-04_EB, 3.599651E-04_EB, 2.875226E-04_EB, 3.220027E-04_EB, 3.442021E-04_EB, 3.429771E-04_EB, &
     3.479571E-04_EB, 3.988382E-04_EB, 5.410044E-04_EB, 3.711756E-04_EB, 4.049933E-04_EB, 3.780624E-04_EB, 1.581304E-04_EB, &
     3.363011E-04_EB, 4.180798E-04_EB, 3.197069E-04_EB, 3.653986E-04_EB, 4.187833E-04_EB, 7.101448E-03_EB, 3.809923E-04_EB, &
     3.533603E-04_EB, 3.413308E-04_EB, 3.254621E-04_EB, 4.091800E-04_EB, 3.812469E-04_EB, 2.897062E-01_EB, 2.857766E-04_EB, &
     3.471021E-04_EB, 3.981441E-04_EB, 3.391170E-04_EB, 3.788735E-04_EB, 3.733369E-04_EB, 7.154619E-01_EB, 2.973615E-04_EB, &
     3.515529E-04_EB, 3.867219E-04_EB, 3.372267E-04_EB, 4.293329E-04_EB, 3.549482E-03_EB, 2.273679E+00_EB, 2.916009E-04_EB, &
     4.086122E-04_EB, 3.034723E-04_EB, 3.481328E-04_EB, 4.240499E-04_EB, 2.168522E-02_EB, 8.658210E-01_EB, &
     2.764510E-04_EB/),(/7,8/))
  
  SD1_C2H4(1:7,9:16) = RESHAPE((/ &  ! 790-825 CM-1
     3.370619E-04_EB, 3.449516E-04_EB, 3.068753E-03_EB, 2.166061E-03_EB, 3.067872E-01_EB, 2.126871E+00_EB, 3.160891E-04_EB, &
     2.931244E-04_EB, 2.735279E-03_EB, 6.531861E-01_EB, 6.019424E-03_EB, 5.639027E-01_EB, 1.299202E+00_EB, 3.396657E-04_EB, &
     4.877063E-04_EB, 9.280827E-03_EB, 1.579979E-02_EB, 1.496897E-02_EB, 4.992397E-01_EB, 1.406058E+00_EB, 3.043444E-04_EB, &
     4.001483E-04_EB, 1.891644E-02_EB, 9.491147E-03_EB, 2.267553E-02_EB, 3.421534E-01_EB, 6.382093E-02_EB, 1.852766E-04_EB, &
     1.290823E-03_EB, 2.799153E-02_EB, 1.446431E-02_EB, 2.843022E-02_EB, 8.398144E-02_EB, 4.512817E-02_EB, 1.294866E-02_EB, &
     2.070200E-01_EB, 3.632895E-02_EB, 3.296335E-02_EB, 4.820045E-02_EB, 1.668313E-01_EB, 1.323383E-01_EB, 3.901722E+00_EB, &
     2.001955E-01_EB, 4.074161E-02_EB, 5.504791E-02_EB, 2.033738E-01_EB, 1.370229E-01_EB, 1.403502E+00_EB, 9.703462E-01_EB, &
     2.718536E-02_EB, 7.068372E-02_EB, 8.035231E-02_EB, 1.066961E-01_EB, 1.330522E-01_EB, 2.467964E-01_EB, &
     4.709421E+00_EB/),(/7,8/))
  
  SD1_C2H4(1:7,17:24) = RESHAPE((/ &  ! 830-865 CM-1
     8.016587E-02_EB, 1.232301E-01_EB, 1.080896E-01_EB, 1.876693E-01_EB, 1.436722E-01_EB, 1.806775E-01_EB, 1.955761E-01_EB, &
     8.134800E-02_EB, 1.769076E-01_EB, 1.680321E-01_EB, 1.930321E-01_EB, 1.757502E-01_EB, 2.398550E-01_EB, 2.039868E-01_EB, &
     1.441756E-01_EB, 2.209548E-01_EB, 2.092624E-01_EB, 2.537575E-01_EB, 2.144884E-01_EB, 2.788351E-01_EB, 7.848435E-01_EB, &
     1.963952E-01_EB, 2.703514E-01_EB, 2.622330E-01_EB, 3.903483E-01_EB, 3.265592E-01_EB, 3.009724E-01_EB, 6.260775E+00_EB, &
     2.991975E-01_EB, 3.352004E-01_EB, 3.564035E-01_EB, 3.796975E-01_EB, 4.082076E-01_EB, 3.402704E-01_EB, 2.111753E+00_EB, &
     3.860882E-01_EB, 4.216740E-01_EB, 4.053700E-01_EB, 4.209808E-01_EB, 5.214527E-01_EB, 5.131750E-01_EB, 3.472334E-01_EB, &
     4.648316E-01_EB, 4.632385E-01_EB, 4.893760E-01_EB, 5.410936E-01_EB, 5.227714E-01_EB, 3.928599E-01_EB, 3.841886E-01_EB, &
     6.022275E-01_EB, 5.990898E-01_EB, 5.570012E-01_EB, 6.192645E-01_EB, 6.317220E-01_EB, 4.457061E-01_EB, &
     4.504311E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,25:32) = RESHAPE((/ &  ! 870-905 CM-1
     7.041966E-01_EB, 6.621798E-01_EB, 6.254956E-01_EB, 6.363171E-01_EB, 6.107430E-01_EB, 5.497340E-01_EB, 5.235314E-01_EB, &
     8.729129E-01_EB, 7.949380E-01_EB, 7.594193E-01_EB, 7.573864E-01_EB, 6.279590E-01_EB, 5.238851E-01_EB, 6.195839E-01_EB, &
     1.076407E+00_EB, 9.480760E-01_EB, 8.612630E-01_EB, 8.823757E-01_EB, 7.150564E-01_EB, 6.412975E-01_EB, 5.713233E-01_EB, &
     1.149326E+00_EB, 9.164652E-01_EB, 8.407015E-01_EB, 7.805755E-01_EB, 7.361358E-01_EB, 4.885371E-01_EB, 6.246788E-01_EB, &
     1.285145E+00_EB, 1.001830E+00_EB, 9.098842E-01_EB, 8.665704E-01_EB, 7.069087E-01_EB, 5.784402E-01_EB, 5.420318E-01_EB, &
     1.656594E+00_EB, 1.243694E+00_EB, 1.132558E+00_EB, 1.004866E+00_EB, 8.573835E-01_EB, 6.721572E-01_EB, 5.651920E-01_EB, &
     1.512695E+00_EB, 1.063450E+00_EB, 9.534704E-01_EB, 8.623387E-01_EB, 7.340704E-01_EB, 5.647638E-01_EB, 5.138506E-01_EB, &
     1.503391E+00_EB, 1.046223E+00_EB, 9.264262E-01_EB, 8.216305E-01_EB, 7.214293E-01_EB, 4.921282E-01_EB, &
     9.505467E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,33:40) = RESHAPE((/ &  ! 910-945 CM-1
     2.136589E+00_EB, 1.441371E+00_EB, 1.265404E+00_EB, 1.131971E+00_EB, 8.629746E-01_EB, 5.974312E-01_EB, 6.931755E-01_EB, &
     1.937708E+00_EB, 1.292014E+00_EB, 1.117250E+00_EB, 9.960421E-01_EB, 7.945183E-01_EB, 6.856903E-01_EB, 6.607081E-01_EB, &
     1.854239E+00_EB, 1.153175E+00_EB, 9.838961E-01_EB, 9.179450E-01_EB, 6.997797E-01_EB, 5.900011E-01_EB, 1.136208E+00_EB, &
     1.823799E+00_EB, 1.165735E+00_EB, 1.007681E+00_EB, 9.292605E-01_EB, 7.896203E-01_EB, 5.208819E-01_EB, 1.763502E+00_EB, &
     1.757932E+00_EB, 1.135853E+00_EB, 9.853861E-01_EB, 9.026759E-01_EB, 7.075480E-01_EB, 6.179452E-01_EB, 6.802571E-01_EB, &
     1.474799E+00_EB, 1.023497E+00_EB, 9.336669E-01_EB, 8.778123E-01_EB, 8.131435E-01_EB, 6.616974E-01_EB, 7.567051E-01_EB, &
     2.289039E+00_EB, 1.607837E+00_EB, 1.440647E+00_EB, 1.347166E+00_EB, 1.239509E+00_EB, 1.038545E+00_EB, 1.100592E+00_EB, &
     3.685332E+00_EB, 2.419819E+00_EB, 2.144192E+00_EB, 1.965314E+00_EB, 1.747995E+00_EB, 1.497634E+00_EB, &
     1.667794E+00_EB/),(/7,8/))
  
  SD1_C2H4(1:7,41:48) = RESHAPE((/ &  ! 950-985 CM-1
     9.810246E+00_EB, 7.439967E+00_EB, 6.716823E+00_EB, 6.081792E+00_EB, 4.841636E+00_EB, 3.239145E+00_EB, 2.178622E+00_EB, &
     2.747963E+00_EB, 2.185259E+00_EB, 2.110959E+00_EB, 2.104012E+00_EB, 1.967093E+00_EB, 1.887167E+00_EB, 1.592410E+00_EB, &
     1.878302E+00_EB, 1.339111E+00_EB, 1.209909E+00_EB, 1.180489E+00_EB, 1.063613E+00_EB, 1.043418E+00_EB, 9.802449E-01_EB, &
     1.846689E+00_EB, 1.233103E+00_EB, 1.078269E+00_EB, 1.010819E+00_EB, 7.843025E-01_EB, 7.220401E-01_EB, 6.485561E-01_EB, &
     2.135746E+00_EB, 1.274099E+00_EB, 1.072632E+00_EB, 9.574284E-01_EB, 7.244360E-01_EB, 6.000363E-01_EB, 5.922618E-01_EB, &
     1.598509E+00_EB, 1.039908E+00_EB, 9.058024E-01_EB, 8.461204E-01_EB, 6.619076E-01_EB, 5.572688E-01_EB, 6.188948E-01_EB, &
     2.103202E+00_EB, 1.300976E+00_EB, 1.111634E+00_EB, 9.847661E-01_EB, 7.744278E-01_EB, 5.718997E-01_EB, 6.346134E-01_EB, &
     2.261675E+00_EB, 1.454471E+00_EB, 1.243161E+00_EB, 1.093485E+00_EB, 8.306949E-01_EB, 6.753502E-01_EB, &
     5.723775E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,49:56) = RESHAPE((/ &  ! 990-1025 CM-1
     2.079467E+00_EB, 1.263897E+00_EB, 1.076642E+00_EB, 9.600844E-01_EB, 7.479525E-01_EB, 5.904677E-01_EB, 5.384319E-01_EB, &
     1.966589E+00_EB, 1.324982E+00_EB, 1.148642E+00_EB, 1.030295E+00_EB, 8.285130E-01_EB, 6.028164E-01_EB, 5.615524E-01_EB, &
     1.704129E+00_EB, 1.136312E+00_EB, 1.028789E+00_EB, 9.378779E-01_EB, 7.696240E-01_EB, 6.407307E-01_EB, 5.740712E-01_EB, &
     2.099061E+00_EB, 1.480171E+00_EB, 1.279590E+00_EB, 1.150617E+00_EB, 8.965259E-01_EB, 6.108346E-01_EB, 5.651648E-01_EB, &
     1.532195E+00_EB, 1.072161E+00_EB, 9.586967E-01_EB, 8.739703E-01_EB, 7.409633E-01_EB, 5.463573E-01_EB, 5.543106E-01_EB, &
     1.449718E+00_EB, 1.130569E+00_EB, 1.010466E+00_EB, 9.314315E-01_EB, 8.044840E-01_EB, 5.741548E-01_EB, 5.103097E-01_EB, &
     1.361629E+00_EB, 1.048216E+00_EB, 9.484550E-01_EB, 8.875882E-01_EB, 7.583217E-01_EB, 6.224803E-01_EB, 5.104751E-01_EB, &
     1.215443E+00_EB, 9.557761E-01_EB, 8.676531E-01_EB, 8.218519E-01_EB, 6.763815E-01_EB, 5.340442E-01_EB, &
     4.917932E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,57:64) = RESHAPE((/ &  ! 1030-1065 CM-1
     1.134122E+00_EB, 9.472716E-01_EB, 8.758677E-01_EB, 8.193195E-01_EB, 7.086094E-01_EB, 5.766945E-01_EB, 6.808968E-01_EB, &
     8.950378E-01_EB, 7.770052E-01_EB, 7.253665E-01_EB, 7.245858E-01_EB, 6.204068E-01_EB, 5.655605E-01_EB, 6.332963E-01_EB, &
     6.844087E-01_EB, 6.493525E-01_EB, 6.230393E-01_EB, 6.224226E-01_EB, 5.363550E-01_EB, 4.974590E-01_EB, 7.583943E-01_EB, &
     7.556324E-01_EB, 7.049278E-01_EB, 6.726842E-01_EB, 6.598185E-01_EB, 5.886987E-01_EB, 5.424892E-01_EB, 5.990280E-01_EB, &
     6.289721E-01_EB, 6.069297E-01_EB, 6.011876E-01_EB, 5.779180E-01_EB, 5.326335E-01_EB, 4.750991E-01_EB, 4.588251E-01_EB, &
     4.745725E-01_EB, 4.627839E-01_EB, 4.803008E-01_EB, 4.911406E-01_EB, 4.593009E-01_EB, 3.894394E-01_EB, 4.927539E-01_EB, &
     4.243657E-01_EB, 4.444157E-01_EB, 4.520903E-01_EB, 4.522320E-01_EB, 4.526266E-01_EB, 3.758722E-01_EB, 4.237227E-01_EB, &
     2.905835E-01_EB, 3.554843E-01_EB, 3.584158E-01_EB, 3.801254E-01_EB, 4.065901E-01_EB, 4.115057E-01_EB, &
     5.026136E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,65:72) = RESHAPE((/ &  ! 1070-1125 CM-1
     3.642080E-01_EB, 4.087106E-01_EB, 4.100121E-01_EB, 4.077213E-01_EB, 4.343523E-01_EB, 3.642286E-01_EB, 4.076571E-01_EB, &
     2.285227E-01_EB, 2.715118E-01_EB, 2.835998E-01_EB, 3.085575E-01_EB, 3.428083E-01_EB, 2.858531E-01_EB, 3.538602E-01_EB, &
     2.072180E-01_EB, 2.508628E-01_EB, 2.687615E-01_EB, 3.061642E-01_EB, 3.126805E-01_EB, 3.288883E-01_EB, 3.309101E-01_EB, &
     1.485077E-01_EB, 1.994016E-01_EB, 2.138919E-01_EB, 2.352105E-01_EB, 2.665822E-01_EB, 2.680282E-01_EB, 4.173662E-01_EB, &
     1.233539E-01_EB, 1.739268E-01_EB, 2.005570E-01_EB, 2.264850E-01_EB, 2.387994E-01_EB, 2.855644E-01_EB, 3.039316E-01_EB, &
     1.208930E-01_EB, 1.604253E-01_EB, 1.886652E-01_EB, 1.954718E-01_EB, 2.106737E-01_EB, 2.480406E-01_EB, 2.674441E-01_EB, &
     9.300476E-02_EB, 1.298575E-01_EB, 1.529873E-01_EB, 1.727849E-01_EB, 2.062593E-01_EB, 2.191541E-01_EB, 2.754971E-01_EB, &
     2.843120E-02_EB, 4.750139E-02_EB, 6.454680E-02_EB, 7.833683E-02_EB, 1.007079E-01_EB, 1.334723E-01_EB, &
     1.952035E-01_EB/),(/7,8/))
  
  SD1_C2H4(1:7,73:77) = RESHAPE((/ &  ! 1150-1250 CM-1
     1.746127E-02_EB, 7.841172E-03_EB, 2.585562E-02_EB, 3.153723E-02_EB, 3.990568E-02_EB, 6.617133E-02_EB, 2.077741E-01_EB, &
     3.428479E-04_EB, 3.716895E-04_EB, 5.481270E-03_EB, 9.380871E-03_EB, 1.423446E-02_EB, 3.592881E-02_EB, 5.844943E-01_EB, &
     3.844693E-04_EB, 4.065786E-04_EB, 5.088321E-04_EB, 3.670823E-04_EB, 1.012681E-03_EB, 1.177143E-02_EB, 1.441741E+00_EB, &
     2.863454E-04_EB, 2.697429E-04_EB, 2.663683E-04_EB, 2.847322E-04_EB, 2.814940E-04_EB, 4.490652E-04_EB, 2.765929E-03_EB, &
     2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, &
     1.035699E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C2H4(N_TEMP_C2H4,77))
  
  ! BAND #1: 750 CM-1 - 1250 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.6588 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C2H4(1:7,1:8) = RESHAPE((/ &  ! 750-785 CM-1
     2.416099E-04_EB, 1.972502E-04_EB, 2.014288E-04_EB, 2.567319E-04_EB, 2.171052E-04_EB, 2.409977E-04_EB, 1.211331E-04_EB, &
     2.468780E-04_EB, 2.281487E-04_EB, 2.453616E-04_EB, 1.924299E-04_EB, 2.048382E-04_EB, 2.401308E-04_EB, 2.496562E-04_EB, &
     2.424362E-04_EB, 2.577800E-04_EB, 3.990244E-04_EB, 2.948000E-04_EB, 2.703709E-04_EB, 2.386217E-04_EB, 1.097937E-04_EB, &
     2.310838E-04_EB, 3.105661E-04_EB, 2.545394E-04_EB, 2.425587E-04_EB, 2.350566E-04_EB, 5.850300E-04_EB, 2.717545E-04_EB, &
     2.188209E-04_EB, 2.694507E-04_EB, 2.395597E-04_EB, 2.852713E-04_EB, 3.015723E-04_EB, 1.785307E-05_EB, 1.970987E-04_EB, &
     2.681455E-04_EB, 3.065002E-04_EB, 2.277458E-04_EB, 2.640085E-04_EB, 2.242100E-04_EB, 5.823579E-05_EB, 2.107112E-04_EB, &
     2.864384E-04_EB, 2.901989E-04_EB, 2.177055E-04_EB, 2.318611E-04_EB, 8.020695E-03_EB, 6.053782E-05_EB, 1.973837E-04_EB, &
     2.864942E-04_EB, 1.888603E-04_EB, 2.876981E-04_EB, 2.918797E-04_EB, 4.025819E-04_EB, 1.500744E-04_EB, &
     1.850902E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,9:16) = RESHAPE((/ &  ! 790-825 CM-1
     2.028540E-04_EB, 2.332145E-04_EB, 8.835388E-04_EB, 1.557804E-03_EB, 6.921471E-05_EB, 1.608572E-04_EB, 2.284767E-04_EB, &
     1.964413E-04_EB, 1.354319E-03_EB, 3.099296E-05_EB, 1.230936E-01_EB, 9.177521E-05_EB, 3.735015E-04_EB, 2.567094E-04_EB, &
     3.523993E-04_EB, 4.495628E-03_EB, 1.170244E-01_EB, 1.834956E-01_EB, 2.119215E-04_EB, 4.987881E-04_EB, 2.324660E-04_EB, &
     2.481552E-04_EB, 3.297622E-03_EB, 3.408731E-01_EB, 1.941870E-02_EB, 5.655524E-04_EB, 6.632397E+00_EB, 1.455497E-04_EB, &
     6.200957E-02_EB, 5.552681E-03_EB, 1.304796E+00_EB, 9.167035E-01_EB, 1.036969E-02_EB, 4.543832E+00_EB, 4.663762E-02_EB, &
     4.857487E-05_EB, 7.312172E-03_EB, 6.397405E-01_EB, 1.805633E+00_EB, 7.876697E-03_EB, 1.052298E+01_EB, 2.200552E-04_EB, &
     1.266088E-04_EB, 3.671828E-01_EB, 1.052101E+00_EB, 4.874822E-03_EB, 1.186820E-02_EB, 1.436321E-03_EB, 2.304645E-03_EB, &
     7.234540E-02_EB, 1.423099E-01_EB, 4.250396E+00_EB, 4.471836E-01_EB, 1.394765E-01_EB, 2.304974E-02_EB, &
     9.320014E-04_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,17:24) = RESHAPE((/ &  ! 830-865 CM-1
     5.320200E-03_EB, 3.524362E-02_EB, 1.338375E+01_EB, 2.690068E-02_EB, 2.237749E+01_EB, 3.550085E+01_EB, 4.352470E+01_EB, &
     1.362377E+00_EB, 4.799018E-02_EB, 3.645279E-01_EB, 1.401350E-01_EB, 2.192962E+01_EB, 1.052708E-01_EB, 4.352470E+01_EB, &
     4.653039E-02_EB, 8.421067E-02_EB, 1.759985E+00_EB, 1.658517E-01_EB, 5.613535E+01_EB, 4.860610E+01_EB, 9.812101E-03_EB, &
     2.321729E-01_EB, 2.414939E-01_EB, 1.567072E+01_EB, 7.788555E-02_EB, 1.585202E-01_EB, 2.057238E+01_EB, 2.123765E-03_EB, &
     1.555629E-01_EB, 8.669673E-01_EB, 5.965418E-01_EB, 3.491496E-01_EB, 1.276794E-01_EB, 4.796946E-01_EB, 7.827500E-03_EB, &
     2.604872E-01_EB, 5.734264E-01_EB, 3.245414E+01_EB, 2.473726E+00_EB, 1.188363E-01_EB, 8.314367E-02_EB, 4.352145E+01_EB, &
     3.170365E-01_EB, 1.356303E+00_EB, 6.470392E-01_EB, 2.532365E-01_EB, 1.744398E-01_EB, 7.021255E-01_EB, 4.352322E+01_EB, &
     5.909101E-01_EB, 1.099398E+00_EB, 4.090840E+00_EB, 4.223559E-01_EB, 2.001671E-01_EB, 4.828266E+01_EB, &
     4.352310E+01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,25:32) = RESHAPE((/ &  ! 870-905 CM-1
     6.696240E-01_EB, 9.061473E-01_EB, 1.096877E+00_EB, 6.942716E-01_EB, 5.833627E-01_EB, 7.942786E-01_EB, 3.236155E-01_EB, &
     7.130009E-01_EB, 9.362301E-01_EB, 7.015500E-01_EB, 5.223698E-01_EB, 6.248457E+00_EB, 4.863162E+01_EB, 1.544108E-01_EB, &
     1.043070E+00_EB, 7.601537E-01_EB, 8.543522E-01_EB, 5.009053E-01_EB, 8.115324E-01_EB, 2.773377E-01_EB, 1.734668E+00_EB, &
     9.830346E-01_EB, 1.107606E+00_EB, 7.646673E-01_EB, 7.719984E-01_EB, 3.261238E-01_EB, 2.851084E+00_EB, 2.517361E-01_EB, &
     1.198560E+00_EB, 1.081208E+00_EB, 7.434343E-01_EB, 6.010115E-01_EB, 9.163865E-01_EB, 3.554812E-01_EB, 2.317131E-01_EB, &
     9.814423E-01_EB, 1.013604E+00_EB, 6.693517E-01_EB, 9.522875E-01_EB, 8.114383E-01_EB, 3.910559E-01_EB, 3.337523E+01_EB, &
     7.620617E-01_EB, 7.803621E-01_EB, 5.747705E-01_EB, 6.345028E-01_EB, 5.888869E-01_EB, 4.300627E-01_EB, 4.310793E+01_EB, &
     8.991018E-01_EB, 8.909633E-01_EB, 6.980425E-01_EB, 1.113145E+00_EB, 7.124349E-01_EB, 4.862871E+01_EB, &
     6.096945E-02_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,33:40) = RESHAPE((/ &  ! 910-945 CM-1
     5.715478E-01_EB, 5.814464E-01_EB, 5.080659E-01_EB, 4.983276E-01_EB, 8.896438E-01_EB, 3.707252E+00_EB, 2.418005E-01_EB, &
     4.564794E-01_EB, 5.408890E-01_EB, 5.281411E-01_EB, 6.161207E-01_EB, 9.304299E-01_EB, 1.822560E-01_EB, 1.433739E-01_EB, &
     4.474194E-01_EB, 5.933999E-01_EB, 5.926916E-01_EB, 4.188992E-01_EB, 8.916726E-01_EB, 2.166682E-01_EB, 3.172885E-02_EB, &
     6.679241E-01_EB, 7.624342E-01_EB, 6.139160E-01_EB, 4.989378E-01_EB, 3.780157E-01_EB, 4.858759E+01_EB, 2.070389E-02_EB, &
     1.572323E+00_EB, 1.507380E+00_EB, 1.025688E+00_EB, 7.931157E-01_EB, 2.355979E+00_EB, 4.083523E-01_EB, 4.042678E-01_EB, &
     1.840928E+00_EB, 1.516332E+00_EB, 9.674401E-01_EB, 7.614660E-01_EB, 5.264076E-01_EB, 2.038597E+00_EB, 6.604494E-01_EB, &
     2.359084E+00_EB, 1.464881E+00_EB, 1.174436E+00_EB, 1.055262E+00_EB, 8.221130E-01_EB, 1.578212E+00_EB, 5.803317E-01_EB, &
     1.353327E+00_EB, 1.007304E+00_EB, 8.550921E-01_EB, 9.242096E-01_EB, 8.460605E-01_EB, 1.145876E+00_EB, &
     3.951015E-01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,41:48) = RESHAPE((/ &  ! 950-985 CM-1
     1.026068E+00_EB, 7.509719E-01_EB, 6.828323E-01_EB, 7.181245E-01_EB, 8.830267E-01_EB, 1.535879E+00_EB, 3.739161E+00_EB, &
     1.923367E+00_EB, 1.440812E+00_EB, 1.103009E+00_EB, 1.030902E+00_EB, 1.337752E+00_EB, 1.153093E+00_EB, 2.040631E+00_EB, &
     1.610198E+00_EB, 1.196060E+00_EB, 1.104793E+00_EB, 8.780307E-01_EB, 1.156102E+00_EB, 6.886495E-01_EB, 2.238055E+00_EB, &
     1.383929E+00_EB, 1.280808E+00_EB, 1.097115E+00_EB, 7.326487E-01_EB, 5.498608E+01_EB, 4.452870E-01_EB, 4.352469E+01_EB, &
     1.188786E+00_EB, 1.159934E+00_EB, 9.631713E-01_EB, 7.953825E-01_EB, 1.129330E+01_EB, 6.701708E-01_EB, 5.733374E-01_EB, &
     1.242802E+00_EB, 1.350551E+00_EB, 1.172729E+00_EB, 7.385986E-01_EB, 3.096362E+01_EB, 8.122837E-01_EB, 2.708279E-01_EB, &
     6.907316E-01_EB, 7.891104E-01_EB, 7.404165E-01_EB, 7.153440E-01_EB, 1.513590E+00_EB, 8.412093E-01_EB, 2.566696E-01_EB, &
     7.900363E-01_EB, 8.478862E-01_EB, 7.713692E-01_EB, 7.316301E-01_EB, 1.686388E+00_EB, 3.127574E-01_EB, &
     9.749592E-01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,49:56) = RESHAPE((/ &  ! 990-1025 CM-1
     5.092459E-01_EB, 6.454904E-01_EB, 6.133995E-01_EB, 5.823764E-01_EB, 1.459319E+00_EB, 3.862803E-01_EB, 4.351923E+01_EB, &
     7.621436E-01_EB, 8.099637E-01_EB, 7.550770E-01_EB, 6.563547E-01_EB, 8.599084E-01_EB, 1.265807E+00_EB, 4.352461E+01_EB, &
     8.135765E-01_EB, 9.399794E-01_EB, 6.891443E-01_EB, 6.724564E-01_EB, 1.443782E+00_EB, 4.675502E-01_EB, 6.832951E+00_EB, &
     1.261934E+00_EB, 1.187896E+00_EB, 1.050548E+00_EB, 8.976709E-01_EB, 1.264652E+00_EB, 4.862525E+01_EB, 8.286417E+00_EB, &
     8.043161E-01_EB, 8.668835E-01_EB, 7.890285E-01_EB, 7.711386E-01_EB, 1.050733E+00_EB, 4.856478E+01_EB, 4.350007E+01_EB, &
     1.357377E+00_EB, 1.080455E+00_EB, 1.033605E+00_EB, 1.033196E+00_EB, 8.256082E-01_EB, 8.647109E+00_EB, 4.350847E+01_EB, &
     8.412833E-01_EB, 8.456811E-01_EB, 8.447705E-01_EB, 7.603788E-01_EB, 9.443837E-01_EB, 2.903532E-01_EB, 4.352240E+01_EB, &
     9.318939E-01_EB, 8.628581E-01_EB, 7.702967E-01_EB, 5.812089E-01_EB, 1.478510E+00_EB, 7.524972E-01_EB, &
     4.352454E+01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,57:64) = RESHAPE((/ &  ! 1030-1065 CM-1
     8.629044E-01_EB, 8.975496E-01_EB, 7.798708E-01_EB, 6.608358E-01_EB, 6.759715E-01_EB, 2.711107E-01_EB, 1.220647E-01_EB, &
     7.370489E-01_EB, 8.019656E-01_EB, 1.000196E+00_EB, 5.336084E-01_EB, 1.804552E+00_EB, 2.787416E-01_EB, 1.281215E-01_EB, &
     7.787285E-01_EB, 7.334174E-01_EB, 8.721264E-01_EB, 5.887939E-01_EB, 3.552536E+01_EB, 8.474746E-01_EB, 8.392367E-02_EB, &
     5.450501E-01_EB, 6.247731E-01_EB, 7.400770E-01_EB, 5.561437E-01_EB, 9.526879E-01_EB, 3.143742E-01_EB, 1.138369E-01_EB, &
     5.144688E-01_EB, 6.585084E-01_EB, 5.903669E-01_EB, 7.810567E-01_EB, 8.401970E-01_EB, 6.417739E-01_EB, 4.420604E-01_EB, &
     3.665531E-01_EB, 8.719562E-01_EB, 5.223315E-01_EB, 4.375375E-01_EB, 5.743448E-01_EB, 2.121049E+00_EB, 2.496608E-01_EB, &
     4.667181E-01_EB, 7.081388E-01_EB, 6.911857E-01_EB, 6.081257E-01_EB, 3.737837E-01_EB, 2.130304E+00_EB, 6.904458E-01_EB, &
     3.306129E-01_EB, 3.244247E-01_EB, 1.436316E+00_EB, 6.770932E-01_EB, 3.549036E-01_EB, 2.672621E-01_EB, &
     1.358031E-01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,65:72) = RESHAPE((/ &  ! 1070-1125 CM-1
     2.919422E-01_EB, 3.828297E-01_EB, 5.395788E-01_EB, 5.826860E-01_EB, 2.566111E-01_EB, 2.715471E+01_EB, 2.745597E-01_EB, &
     3.398729E-01_EB, 4.374885E-01_EB, 1.141266E+00_EB, 3.939052E-01_EB, 1.637264E-01_EB, 4.863163E+01_EB, 4.352422E+01_EB, &
     1.420571E-01_EB, 4.454635E-01_EB, 1.365866E+00_EB, 2.363442E-01_EB, 2.876851E-01_EB, 4.033493E-01_EB, 4.352427E+01_EB, &
     2.987867E-01_EB, 2.946281E-01_EB, 3.722689E+00_EB, 5.611341E-01_EB, 3.323989E-01_EB, 4.184566E+01_EB, 8.215267E-02_EB, &
     6.464375E-02_EB, 2.415560E-01_EB, 5.270835E-01_EB, 2.591978E-01_EB, 1.623247E+00_EB, 2.083192E-01_EB, 2.703531E+00_EB, &
     1.652449E-01_EB, 7.624040E-01_EB, 3.783911E-01_EB, 6.227587E-01_EB, 4.813467E+00_EB, 4.088673E-01_EB, 4.352470E+01_EB, &
     4.426509E-02_EB, 2.377002E-01_EB, 5.194564E+00_EB, 4.416648E-01_EB, 1.768354E-01_EB, 6.614723E-01_EB, 8.659489E-01_EB, &
     1.448604E-02_EB, 6.642067E-02_EB, 6.463703E-01_EB, 1.052108E+00_EB, 1.675080E-01_EB, 3.912344E-01_EB, &
     3.760628E-01_EB/),(/7,8/))
  
  GAMMAD1_C2H4(1:7,73:77) = RESHAPE((/ &  ! 1150-1250 CM-1
     2.129075E-04_EB, 2.822799E-02_EB, 2.461798E-02_EB, 8.986262E-02_EB, 1.247997E+00_EB, 1.467934E-01_EB, 1.669303E-02_EB, &
     2.363189E-04_EB, 2.307838E-04_EB, 6.030981E-03_EB, 4.177046E-03_EB, 8.698422E-02_EB, 1.673678E-02_EB, 1.814471E-03_EB, &
     2.536687E-04_EB, 2.591352E-04_EB, 3.402664E-04_EB, 2.425216E-04_EB, 8.814904E-04_EB, 1.309772E-03_EB, 1.809337E-04_EB, &
     2.020888E-04_EB, 2.044892E-04_EB, 1.950677E-04_EB, 2.120114E-04_EB, 2.042227E-04_EB, 3.416414E-04_EB, 5.953816E-02_EB, &
     1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, &
     8.125358E-05_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C2H4(N_TEMP_C2H4,13))
  
  ! BAND #2: 1300 CM-1 - 1600 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.84783 %
  
  SD2_C2H4(1:7,1:8) = RESHAPE((/ &  ! 1300-1475 CM-1
     2.882468E-04_EB, 2.872390E-04_EB, 2.844740E-04_EB, 2.830853E-04_EB, 2.869806E-04_EB, 2.911547E-04_EB, 1.572859E-04_EB, &
     3.652126E-04_EB, 3.386829E-04_EB, 3.628235E-04_EB, 3.693377E-04_EB, 3.974359E-04_EB, 5.740813E-04_EB, 1.406431E+00_EB, &
     3.864016E-04_EB, 3.824772E-04_EB, 4.379786E-03_EB, 2.882465E-03_EB, 2.712238E-02_EB, 1.918484E-02_EB, 7.860096E-01_EB, &
     1.282101E-02_EB, 2.679804E-02_EB, 4.946063E-02_EB, 5.785843E-02_EB, 7.524531E-02_EB, 1.070631E-01_EB, 1.846526E-01_EB, &
     2.572462E-01_EB, 2.610537E-01_EB, 2.762334E-01_EB, 2.568286E-01_EB, 2.524152E-01_EB, 2.204080E-01_EB, 1.917598E-01_EB, &
     5.165021E-01_EB, 3.183373E-01_EB, 2.741011E-01_EB, 2.245903E-01_EB, 1.734576E-01_EB, 1.131539E-01_EB, 1.085824E-01_EB, &
     4.620901E-01_EB, 3.014428E-01_EB, 2.695816E-01_EB, 2.383870E-01_EB, 1.998293E-01_EB, 1.716093E-01_EB, 1.585133E-01_EB, &
     3.857202E-01_EB, 2.649185E-01_EB, 2.402621E-01_EB, 2.174361E-01_EB, 1.792406E-01_EB, 1.252422E-01_EB, &
     1.649973E-01_EB/),(/7,8/))
  
  SD2_C2H4(1:7,9:13) = RESHAPE((/ &  ! 1500-1600 CM-1
     5.926638E-02_EB, 7.277371E-02_EB, 8.111314E-02_EB, 7.867862E-02_EB, 9.699567E-02_EB, 8.865234E-02_EB, 7.947370E-02_EB, &
     1.150376E-03_EB, 2.245129E-03_EB, 7.274074E-03_EB, 7.462653E-03_EB, 2.221317E-02_EB, 4.638888E-02_EB, 2.712345E-02_EB, &
     3.976051E-04_EB, 3.647587E-04_EB, 3.852124E-04_EB, 3.887963E-04_EB, 3.797778E-04_EB, 1.070583E-03_EB, 3.011592E-04_EB, &
     3.339180E-04_EB, 3.021121E-04_EB, 2.677955E-04_EB, 2.991550E-04_EB, 2.786140E-04_EB, 3.017892E-04_EB, 1.540746E-04_EB, &
     2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, &
     1.035699E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C2H4(N_TEMP_C2H4,13))
  
  ! BAND #2: 1300 CM-1 - 1600 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.84783 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C2H4(1:7,1:8) = RESHAPE((/ &  ! 1300-1475 CM-1
     2.158499E-04_EB, 2.198834E-04_EB, 2.077167E-04_EB, 2.022446E-04_EB, 2.019156E-04_EB, 2.108599E-04_EB, 1.180395E-04_EB, &
     2.584797E-04_EB, 2.404707E-04_EB, 2.365446E-04_EB, 2.427590E-04_EB, 2.779223E-04_EB, 3.857109E-04_EB, 4.413016E-05_EB, &
     2.651063E-04_EB, 2.657195E-04_EB, 1.443449E-03_EB, 2.228190E-03_EB, 2.843764E-04_EB, 1.574315E-02_EB, 3.976791E-04_EB, &
     3.442081E-02_EB, 6.159804E-02_EB, 2.276418E-02_EB, 3.598936E-02_EB, 1.165571E-01_EB, 3.704352E-01_EB, 3.636410E-02_EB, &
     4.705384E-01_EB, 6.099726E-01_EB, 2.288867E-01_EB, 5.066479E-01_EB, 3.305657E-01_EB, 3.501155E-01_EB, 1.491325E-01_EB, &
     9.295562E-01_EB, 6.218514E-01_EB, 2.607721E-01_EB, 5.342728E-01_EB, 6.235127E-01_EB, 1.582834E+00_EB, 1.082596E-01_EB, &
     4.753247E-01_EB, 4.602367E-01_EB, 2.660304E-01_EB, 3.252024E-01_EB, 4.963318E-01_EB, 1.168146E-01_EB, 1.189208E-01_EB, &
     5.580701E-01_EB, 5.558061E-01_EB, 2.447941E-01_EB, 1.720602E-01_EB, 1.909313E-01_EB, 2.351203E+00_EB, &
     2.093321E-02_EB/),(/7,8/))
  
  GAMMAD2_C2H4(1:7,9:13) = RESHAPE((/ &  ! 1500-1600 CM-1
     4.272966E-01_EB, 1.013776E+00_EB, 9.918181E-02_EB, 1.052649E+00_EB, 4.393797E-02_EB, 3.996882E-02_EB, 9.062687E-02_EB, &
     2.701330E-03_EB, 2.355961E-02_EB, 2.364569E-03_EB, 1.244040E-02_EB, 4.075644E-03_EB, 1.508431E-03_EB, 3.184016E-01_EB, &
     2.534164E-04_EB, 2.480212E-04_EB, 2.545401E-04_EB, 2.448742E-04_EB, 2.630816E-04_EB, 2.165252E-04_EB, 2.247869E-04_EB, &
     2.330947E-04_EB, 2.194445E-04_EB, 2.014090E-04_EB, 2.218115E-04_EB, 2.076602E-04_EB, 2.253786E-04_EB, 1.141333E-04_EB, &
     1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, &
     8.125358E-05_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_C2H4(N_TEMP_C2H4,14))
  
  ! BAND #3: 1750 CM-1 - 2075 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.45198 %
  
  SD3_C2H4(1:7,1:8) = RESHAPE((/ &  ! 1750-1925 CM-1
     2.815672E-04_EB, 3.085650E-04_EB, 3.011997E-04_EB, 2.507052E-04_EB, 3.301713E-04_EB, 2.824203E-04_EB, 1.401316E-04_EB, &
     3.584064E-04_EB, 3.532685E-04_EB, 3.752903E-04_EB, 3.459819E-04_EB, 6.155777E-04_EB, 3.497840E-03_EB, 1.410505E-01_EB, &
     3.713646E-04_EB, 3.521998E-04_EB, 5.743608E-04_EB, 8.300439E-04_EB, 2.211093E-02_EB, 1.662667E-02_EB, 7.102650E-01_EB, &
     1.552528E-02_EB, 1.444417E-02_EB, 2.574225E-02_EB, 2.639928E-02_EB, 4.136403E-02_EB, 4.346707E-02_EB, 8.056475E-01_EB, &
     1.377934E-01_EB, 1.025802E-01_EB, 1.048520E-01_EB, 9.315740E-02_EB, 9.685325E-02_EB, 7.199117E-02_EB, 6.245123E-01_EB, &
     1.901714E-01_EB, 1.029944E-01_EB, 9.811801E-02_EB, 8.417027E-02_EB, 7.035037E-02_EB, 5.536099E-02_EB, 4.099564E-01_EB, &
     2.542475E-01_EB, 1.411985E-01_EB, 1.285533E-01_EB, 1.090056E-01_EB, 9.009588E-02_EB, 7.442026E-02_EB, 1.611310E-01_EB, &
     1.937759E-01_EB, 1.535567E-01_EB, 1.503998E-01_EB, 1.340973E-01_EB, 1.208789E-01_EB, 9.651057E-02_EB, &
     1.654443E-01_EB/),(/7,8/))
  
  SD3_C2H4(1:7,9:14) = RESHAPE((/ &  ! 1950-2075 CM-1
     1.548981E-02_EB, 2.175487E-02_EB, 3.117281E-02_EB, 3.251084E-02_EB, 4.215815E-02_EB, 5.301204E-02_EB, 1.143451E-01_EB, &
     4.016633E-04_EB, 3.491488E-04_EB, 4.867031E-04_EB, 4.500772E-04_EB, 2.320822E-03_EB, 7.486336E-03_EB, 2.340736E-01_EB, &
     3.822381E-04_EB, 3.883093E-04_EB, 3.278614E-04_EB, 3.723909E-04_EB, 3.584776E-04_EB, 3.541946E-04_EB, 2.753666E-01_EB, &
     3.861390E-04_EB, 3.578653E-04_EB, 3.623971E-04_EB, 3.869958E-04_EB, 3.611574E-04_EB, 3.348041E-04_EB, 5.612807E-03_EB, &
     2.666887E-04_EB, 2.879471E-04_EB, 2.979300E-04_EB, 2.891663E-04_EB, 3.019136E-04_EB, 2.928543E-04_EB, 1.433099E-04_EB, &
     2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, &
     1.035699E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_C2H4(N_TEMP_C2H4,14))
  
  ! BAND #3: 1750 CM-1 - 2075 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.45198 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_C2H4(1:7,1:8) = RESHAPE((/ &  ! 1750-1925 CM-1
     2.062935E-04_EB, 2.213095E-04_EB, 2.125965E-04_EB, 1.924384E-04_EB, 2.245648E-04_EB, 2.001139E-04_EB, 1.052265E-04_EB, &
     2.525656E-04_EB, 2.298492E-04_EB, 2.561819E-04_EB, 2.386624E-04_EB, 3.763751E-04_EB, 6.701805E-04_EB, 3.650678E-05_EB, &
     2.518994E-04_EB, 2.486015E-04_EB, 3.999398E-04_EB, 6.636791E-04_EB, 2.149851E-04_EB, 1.018456E-02_EB, 1.523459E-04_EB, &
     9.583444E-03_EB, 5.252649E-02_EB, 2.359414E-02_EB, 1.373517E-01_EB, 1.580336E-02_EB, 3.863765E-01_EB, 4.400337E-04_EB, &
     1.817495E-01_EB, 1.535393E+00_EB, 1.403613E-01_EB, 5.133053E-01_EB, 5.338970E-02_EB, 9.422243E-01_EB, 8.608663E-04_EB, &
     1.604957E-01_EB, 1.152431E+00_EB, 9.900652E-02_EB, 1.034304E-01_EB, 1.658726E-01_EB, 9.190427E-01_EB, 1.104201E-03_EB, &
     1.875157E-01_EB, 6.534721E-01_EB, 1.215243E-01_EB, 1.499339E-01_EB, 1.669372E-01_EB, 1.540611E-01_EB, 5.452210E-03_EB, &
     2.586428E-01_EB, 3.173253E-01_EB, 1.281338E-01_EB, 2.222569E-01_EB, 1.791652E-01_EB, 9.692458E-01_EB, &
     1.136010E-02_EB/),(/7,8/))
  
  GAMMAD3_C2H4(1:7,9:14) = RESHAPE((/ &  ! 1950-2075 CM-1
     1.624541E-02_EB, 2.116364E-02_EB, 2.358393E-02_EB, 5.479449E-02_EB, 3.978462E-02_EB, 5.533594E-02_EB, 7.054981E-03_EB, &
     2.704645E-04_EB, 2.392112E-04_EB, 3.409077E-04_EB, 3.457806E-04_EB, 1.714364E-03_EB, 1.531894E-03_EB, 1.624673E-04_EB, &
     2.502376E-04_EB, 2.651107E-04_EB, 2.268500E-04_EB, 2.246834E-04_EB, 2.477431E-04_EB, 2.372743E-04_EB, 1.590970E-05_EB, &
     2.596193E-04_EB, 2.512472E-04_EB, 2.549796E-04_EB, 2.535211E-04_EB, 2.549967E-04_EB, 2.385259E-04_EB, 1.055504E-04_EB, &
     1.974440E-04_EB, 2.070414E-04_EB, 2.178990E-04_EB, 2.070114E-04_EB, 2.210429E-04_EB, 2.175134E-04_EB, 1.061814E-04_EB, &
     1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, &
     8.125358E-05_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD4_C2H4(N_TEMP_C2H4,25))
  
  ! BAND #4: 2800 CM-1 - 3400 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.39903 %
  
  SD4_C2H4(1:7,1:8) = RESHAPE((/ &  ! 2800-2975 CM-1
     2.787454E-04_EB, 2.798900E-04_EB, 3.048047E-04_EB, 2.953254E-04_EB, 3.008118E-04_EB, 2.854943E-04_EB, 1.499675E-04_EB, &
     1.974546E-03_EB, 3.576021E-04_EB, 3.665839E-04_EB, 3.719708E-04_EB, 4.008233E-04_EB, 3.722047E-04_EB, 3.066454E-04_EB, &
     4.675051E-03_EB, 3.770033E-04_EB, 1.005255E-03_EB, 5.231568E-04_EB, 3.365147E-03_EB, 4.031952E-03_EB, 1.001045E-02_EB, &
     1.579559E-02_EB, 4.036503E-04_EB, 9.793374E-03_EB, 4.364856E-03_EB, 1.125997E-02_EB, 1.687883E-02_EB, 4.109982E-02_EB, &
     1.901642E-02_EB, 7.948388E-03_EB, 2.110029E-02_EB, 1.680041E-02_EB, 3.681206E-02_EB, 5.911015E-02_EB, 9.045692E-02_EB, &
     7.057398E-02_EB, 8.615787E-02_EB, 1.147527E-01_EB, 1.077993E-01_EB, 1.296121E-01_EB, 1.341954E-01_EB, 1.504629E-01_EB, &
     4.303610E-01_EB, 3.433046E-01_EB, 3.232359E-01_EB, 2.803463E-01_EB, 2.416656E-01_EB, 1.843691E-01_EB, 1.701492E-01_EB, &
     6.023500E-01_EB, 3.794196E-01_EB, 3.422745E-01_EB, 2.887488E-01_EB, 2.637113E-01_EB, 2.107903E-01_EB, &
     2.126134E-01_EB/),(/7,8/))
  
  SD4_C2H4(1:7,9:16) = RESHAPE((/ &  ! 3000-3175 CM-1
     7.798028E-01_EB, 4.757862E-01_EB, 3.974023E-01_EB, 3.382752E-01_EB, 2.973165E-01_EB, 2.380506E-01_EB, 2.451699E-01_EB, &
     7.172871E-01_EB, 5.831037E-01_EB, 5.314972E-01_EB, 4.800679E-01_EB, 4.358886E-01_EB, 3.600701E-01_EB, 3.346981E-01_EB, &
     5.311509E-01_EB, 4.669769E-01_EB, 4.432862E-01_EB, 4.085659E-01_EB, 3.930117E-01_EB, 3.358462E-01_EB, 2.929137E-01_EB, &
     8.649072E-01_EB, 5.873164E-01_EB, 4.935644E-01_EB, 4.177742E-01_EB, 3.508014E-01_EB, 2.332914E-01_EB, 2.128007E-01_EB, &
     7.478903E-01_EB, 4.640090E-01_EB, 3.775139E-01_EB, 3.190243E-01_EB, 2.690863E-01_EB, 1.975084E-01_EB, 1.921879E-01_EB, &
     1.077261E+00_EB, 6.909648E-01_EB, 5.870020E-01_EB, 4.958355E-01_EB, 4.101225E-01_EB, 3.093396E-01_EB, 2.599685E-01_EB, &
     7.637944E-01_EB, 5.720239E-01_EB, 5.128777E-01_EB, 4.357737E-01_EB, 3.822630E-01_EB, 3.059218E-01_EB, 2.471299E-01_EB, &
     3.843373E-01_EB, 3.060968E-01_EB, 2.831408E-01_EB, 2.396863E-01_EB, 2.332271E-01_EB, 1.957615E-01_EB, &
     1.637279E-01_EB/),(/7,8/))
  
  SD4_C2H4(1:7,17:24) = RESHAPE((/ &  ! 3200-3375 CM-1
     2.099610E-01_EB, 1.791031E-01_EB, 1.774091E-01_EB, 1.486224E-01_EB, 1.585195E-01_EB, 1.392503E-01_EB, 1.207946E-01_EB, &
     1.199548E-01_EB, 1.020644E-01_EB, 9.502921E-02_EB, 8.145885E-02_EB, 1.125359E-01_EB, 1.424681E-01_EB, 8.669709E-02_EB, &
     4.616169E-01_EB, 7.858449E-02_EB, 7.272250E-02_EB, 2.867532E-02_EB, 1.168091E-01_EB, 1.330542E-01_EB, 5.570436E-02_EB, &
     8.691472E-02_EB, 9.220433E-03_EB, 1.896226E-02_EB, 3.974691E-03_EB, 3.169841E-01_EB, 2.218115E-02_EB, 5.082209E-02_EB, &
     2.867450E-02_EB, 3.903775E-04_EB, 3.229916E-04_EB, 3.302777E-04_EB, 1.149402E-01_EB, 6.959691E-02_EB, 1.770145E-02_EB, &
     3.690812E-03_EB, 3.360817E-04_EB, 3.487733E-04_EB, 4.020878E-04_EB, 3.692208E-04_EB, 3.501982E-04_EB, 8.401837E-03_EB, &
     3.318610E-04_EB, 3.541529E-04_EB, 3.588894E-04_EB, 3.595732E-04_EB, 3.703241E-04_EB, 3.649087E-04_EB, 2.903059E-04_EB, &
     3.061877E-04_EB, 2.641235E-04_EB, 2.931529E-04_EB, 2.985364E-04_EB, 2.827758E-04_EB, 2.741559E-04_EB, &
     1.355576E-04_EB/),(/7,8/))
  
  SD4_C2H4(1:7,25:25) = RESHAPE((/ &  ! 3400-3400 CM-1
     2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, 2.172015E-04_EB, &
     1.035699E-04_EB/),(/7,1/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD4_C2H4(N_TEMP_C2H4,25))
  
  ! BAND #4: 2800 CM-1 - 3400 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.39903 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD4_C2H4(1:7,1:8) = RESHAPE((/ &  ! 2800-2975 CM-1
     2.053802E-04_EB, 2.055037E-04_EB, 2.250544E-04_EB, 2.225113E-04_EB, 2.136803E-04_EB, 2.087893E-04_EB, 1.105053E-04_EB, &
     4.253229E-04_EB, 2.343264E-04_EB, 2.233710E-04_EB, 2.452992E-04_EB, 2.751557E-04_EB, 2.508501E-04_EB, 2.222309E-04_EB, &
     1.276922E-03_EB, 2.646545E-04_EB, 7.364197E-04_EB, 3.348640E-04_EB, 3.561604E-03_EB, 2.031177E-03_EB, 2.949697E-01_EB, &
     1.385628E-02_EB, 2.885267E-04_EB, 9.042876E-01_EB, 2.692734E-03_EB, 9.713740E-03_EB, 4.653156E-03_EB, 2.653808E+00_EB, &
     2.397896E-02_EB, 8.918801E-03_EB, 4.080122E-01_EB, 2.625635E-01_EB, 3.017722E-02_EB, 6.429571E-02_EB, 6.032175E+00_EB, &
     9.755870E-02_EB, 2.422956E+00_EB, 1.631270E+01_EB, 6.661998E+00_EB, 3.034249E-01_EB, 5.074180E+00_EB, 6.298484E+00_EB, &
     4.898871E-01_EB, 2.215583E+00_EB, 6.480333E+01_EB, 1.549944E+01_EB, 1.573448E+00_EB, 4.766076E-01_EB, 4.349295E+01_EB, &
     4.836954E-01_EB, 1.451915E+00_EB, 6.485194E+01_EB, 3.798161E+01_EB, 6.188424E-01_EB, 1.109668E+00_EB, &
     4.352421E+01_EB/),(/7,8/))
  
  GAMMAD4_C2H4(1:7,9:16) = RESHAPE((/ &  ! 3000-3175 CM-1
     3.345606E-01_EB, 5.278129E-01_EB, 6.469998E+01_EB, 1.288707E+01_EB, 8.242915E-01_EB, 1.035867E+00_EB, 4.352463E+01_EB, &
     1.563175E+00_EB, 2.625564E+00_EB, 6.454977E+01_EB, 6.093823E+01_EB, 2.035803E+00_EB, 1.210794E+00_EB, 4.352445E+01_EB, &
     8.952736E-01_EB, 1.070318E+00_EB, 1.932614E+00_EB, 1.478721E+01_EB, 1.380362E+00_EB, 4.608167E-01_EB, 4.352008E+01_EB, &
     1.218284E+00_EB, 7.511695E-01_EB, 9.571422E-01_EB, 3.171139E+00_EB, 1.952744E+00_EB, 1.419092E+00_EB, 4.351690E+01_EB, &
     1.188336E+00_EB, 5.437254E-01_EB, 7.645704E-01_EB, 1.220082E+00_EB, 1.364237E+00_EB, 2.953192E-01_EB, 3.944037E+01_EB, &
     1.069749E+00_EB, 7.136400E-01_EB, 5.480781E-01_EB, 7.511426E-01_EB, 8.072618E-01_EB, 2.442109E-01_EB, 1.336082E+01_EB, &
     5.123621E-01_EB, 4.456214E-01_EB, 3.621148E-01_EB, 6.473524E-01_EB, 5.364253E-01_EB, 1.595842E-01_EB, 2.523820E+01_EB, &
     2.185443E-01_EB, 1.605263E-01_EB, 1.238794E-01_EB, 2.209229E-01_EB, 1.353909E-01_EB, 5.702117E-02_EB, &
     3.092779E+01_EB/),(/7,8/))
  
  GAMMAD4_C2H4(1:7,17:24) = RESHAPE((/ &  ! 3200-3375 CM-1
     5.244654E-02_EB, 7.872155E-02_EB, 5.156657E-02_EB, 8.595139E-02_EB, 5.856846E-02_EB, 2.220866E-02_EB, 1.517203E-01_EB, &
     3.762586E-03_EB, 1.216532E-02_EB, 1.917467E-02_EB, 2.846263E-02_EB, 2.089697E-02_EB, 4.969412E-03_EB, 1.387417E-01_EB, &
     4.291422E-05_EB, 7.807504E-04_EB, 1.341258E-03_EB, 6.152627E-03_EB, 2.309479E-03_EB, 1.073258E-03_EB, 3.311750E-01_EB, &
     3.584912E-05_EB, 2.671120E-04_EB, 1.957471E-04_EB, 1.342098E-03_EB, 1.278685E-04_EB, 3.324302E-03_EB, 3.684340E-03_EB, &
     8.216113E-05_EB, 2.682532E-04_EB, 2.247056E-04_EB, 2.195120E-04_EB, 7.774207E-05_EB, 3.815559E-05_EB, 2.872761E-03_EB, &
     1.294855E-04_EB, 2.265159E-04_EB, 2.506069E-04_EB, 2.536762E-04_EB, 2.424375E-04_EB, 2.435020E-04_EB, 1.033795E-04_EB, &
     2.206754E-04_EB, 2.418204E-04_EB, 2.208317E-04_EB, 2.403401E-04_EB, 2.291933E-04_EB, 2.353414E-04_EB, 2.133339E-04_EB, &
     2.205017E-04_EB, 1.924693E-04_EB, 2.146102E-04_EB, 2.118201E-04_EB, 2.108670E-04_EB, 2.100997E-04_EB, &
     9.661135E-05_EB/),(/7,8/))
  
  GAMMAD4_C2H4(1:7,25:25) = RESHAPE((/ &  ! 3400-3400 CM-1
     1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, 1.709157E-04_EB, &
     8.125358E-05_EB/),(/7,1/))
  
  !-------------------------HEPTANE DATA-------------------
  
  
  ! THERE ARE 2 BANDS FOR HEPTANE
  
  ! BAND #1: 1100 CM-1 - 1800 CM-1
  ! BAND #2: 2550 CM-1 - 3275 CM-1
  
  ALLOCATE(SD_C7H16_TEMP(N_TEMP_C7H16))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR HEPTANE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C7H16(N_BAND_C7H16,3))
  ALLOCATE(BE_C7H16(N_BAND_C7H16))
  
  OM_BND_C7H16 = RESHAPE((/ &
     1100._EB, 2550._EB, &
     1800._EB, 3275._EB, &
     25._EB, 25._EB/),(/N_BAND_C7H16,3/))
  
  SD_C7H16_TEMP = (/ &
     293._EB, 400._EB, 450._EB, 490._EB, 593._EB, 794._EB,&
     1000._EB/)
  
  BE_C7H16 = (/ &
     1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C7H16(N_TEMP_C7H16,29))
  
  ! BAND #1: 1100 CM-1 - 1800 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.72543 %
  
  SD1_C7H16(1:7,1:8) = RESHAPE((/ &  ! 1100-1275 CM-1
     1.426744E-03_EB, 1.201770E-03_EB, 1.274320E-03_EB, 1.347928E-03_EB, 1.656416E-03_EB, 1.325255E-03_EB, 2.057861E-03_EB, &
     1.811130E-03_EB, 2.521922E-03_EB, 1.872758E-03_EB, 1.707256E-03_EB, 1.927722E-03_EB, 1.955475E-03_EB, 2.516760E-01_EB, &
     1.747928E-03_EB, 2.120166E-03_EB, 2.046218E-03_EB, 1.649154E-03_EB, 1.666396E-03_EB, 1.992630E-03_EB, 2.005874E+00_EB, &
     1.624614E-03_EB, 2.021985E-03_EB, 4.956340E-03_EB, 1.877145E-03_EB, 1.905600E-03_EB, 1.746241E-03_EB, 3.502611E-01_EB, &
     1.930396E-03_EB, 1.894347E-03_EB, 1.299287E-02_EB, 1.476436E-02_EB, 4.597890E-03_EB, 2.359195E-02_EB, 4.013873E+00_EB, &
     6.004547E-02_EB, 4.017701E-02_EB, 3.934126E-02_EB, 3.083190E-02_EB, 2.179721E-01_EB, 4.014522E-02_EB, 2.600484E+00_EB, &
     7.613398E-02_EB, 5.549015E-02_EB, 3.003541E-01_EB, 1.344358E-01_EB, 4.411584E-01_EB, 7.993576E-02_EB, 4.665685E+00_EB, &
     1.373972E-01_EB, 1.249248E-01_EB, 1.230316E-01_EB, 1.155939E-01_EB, 3.749324E-01_EB, 1.429788E-01_EB, &
     2.876741E+00_EB/),(/7,8/))
  
  SD1_C7H16(1:7,9:16) = RESHAPE((/ &  ! 1300-1475 CM-1
     1.960350E-01_EB, 7.251248E-01_EB, 4.660543E-01_EB, 2.468984E-01_EB, 3.746538E-01_EB, 1.932187E-01_EB, 1.906827E+00_EB, &
     2.182462E-01_EB, 1.037076E+00_EB, 4.532828E-01_EB, 3.341447E-01_EB, 4.124866E-01_EB, 3.832806E-01_EB, 1.538802E+00_EB, &
     5.511687E-01_EB, 9.486430E-01_EB, 6.841490E-01_EB, 5.497692E-01_EB, 5.893967E-01_EB, 6.049837E-01_EB, 6.095137E+00_EB, &
     2.169296E+00_EB, 1.762238E+00_EB, 1.496288E+00_EB, 1.153363E+00_EB, 9.332138E-01_EB, 6.553914E-01_EB, 1.559757E+00_EB, &
     1.152586E+00_EB, 1.398012E+00_EB, 1.008290E+00_EB, 8.691367E-01_EB, 7.857883E-01_EB, 5.751618E-01_EB, 3.554067E+00_EB, &
     2.809542E-01_EB, 2.417925E+00_EB, 4.381657E-01_EB, 5.312573E-01_EB, 5.715073E-01_EB, 5.154692E-01_EB, 1.149283E+00_EB, &
     2.520765E+00_EB, 2.328593E+00_EB, 1.895157E+00_EB, 1.577062E+00_EB, 1.328041E+00_EB, 1.069522E+00_EB, 2.814896E+00_EB, &
     4.096478E+00_EB, 3.000085E+00_EB, 2.158821E+00_EB, 1.809690E+00_EB, 1.347468E+00_EB, 8.991423E-01_EB, &
     2.342350E+00_EB/),(/7,8/))
  
  SD1_C7H16(1:7,17:24) = RESHAPE((/ &  ! 1500-1675 CM-1
     4.388670E-01_EB, 4.751103E-01_EB, 5.711364E-01_EB, 4.125599E-01_EB, 4.895056E-01_EB, 3.320026E-01_EB, 2.177032E+00_EB, &
     1.319705E-01_EB, 1.769183E-01_EB, 1.924812E-01_EB, 1.563493E-01_EB, 2.730796E-01_EB, 1.797482E-01_EB, 1.084963E+00_EB, &
     1.057772E-01_EB, 1.102722E-01_EB, 1.166527E-01_EB, 7.750779E-02_EB, 1.371680E-01_EB, 7.530555E-02_EB, 4.673835E+00_EB, &
     1.595659E-03_EB, 8.558479E-01_EB, 3.816360E-02_EB, 1.698589E-01_EB, 3.558832E-02_EB, 1.126854E+00_EB, 6.274235E+00_EB, &
     1.754518E-03_EB, 3.490672E-01_EB, 1.460628E-01_EB, 3.092481E-01_EB, 1.777143E-03_EB, 5.457342E+00_EB, 4.901413E+00_EB, &
     1.574552E-03_EB, 2.022684E-03_EB, 1.771614E-03_EB, 8.573879E-02_EB, 1.949107E-03_EB, 8.452931E-01_EB, 6.243195E+00_EB, &
     1.827339E-03_EB, 2.129922E-03_EB, 2.108249E-03_EB, 4.442893E-03_EB, 1.724490E-03_EB, 3.038490E-03_EB, 3.195029E+00_EB, &
     1.956178E-03_EB, 2.075598E-03_EB, 1.738792E-03_EB, 1.976314E-03_EB, 1.668323E-03_EB, 1.791602E-03_EB, &
     4.975893E+00_EB/),(/7,8/))
  
  SD1_C7H16(1:7,25:29) = RESHAPE((/ &  ! 1700-1800 CM-1
     1.635422E-03_EB, 2.360211E-03_EB, 1.966190E-03_EB, 1.838431E-03_EB, 1.806395E-03_EB, 2.025722E-03_EB, 3.595214E+00_EB, &
     1.685412E-03_EB, 1.845260E-03_EB, 1.904451E-03_EB, 1.947180E-03_EB, 1.880024E-03_EB, 1.570401E-03_EB, 4.352547E+00_EB, &
     1.693693E-03_EB, 2.153411E-03_EB, 2.016532E-03_EB, 1.811016E-03_EB, 1.826653E-03_EB, 1.799395E-03_EB, 1.496407E+00_EB, &
     1.300712E-03_EB, 1.598790E-03_EB, 1.518162E-03_EB, 1.529646E-03_EB, 1.291412E-03_EB, 1.245281E-03_EB, 1.384262E-01_EB, &
     9.565465E-04_EB, 9.572222E-04_EB, 9.564413E-04_EB, 9.564850E-04_EB, 9.561277E-04_EB, 9.585852E-04_EB, &
     1.922450E-03_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C7H16(N_TEMP_C7H16,29))
  
  ! BAND #1: 1100 CM-1 - 1800 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.72543 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C7H16(1:7,1:8) = RESHAPE((/ &  ! 1100-1275 CM-1
     1.079377E-03_EB, 8.321757E-04_EB, 1.106526E-03_EB, 8.589890E-04_EB, 1.218045E-03_EB, 9.003631E-04_EB, 1.652303E-03_EB, &
     1.219534E-03_EB, 1.678161E-03_EB, 1.027749E-03_EB, 1.087240E-03_EB, 1.300295E-03_EB, 1.381191E-03_EB, 2.766162E-01_EB, &
     1.117750E-03_EB, 1.217712E-03_EB, 1.293043E-03_EB, 1.061960E-03_EB, 1.158654E-03_EB, 1.485883E-03_EB, 6.838761E-04_EB, &
     1.138939E-03_EB, 1.252798E-03_EB, 2.807650E-03_EB, 1.167864E-03_EB, 1.225067E-03_EB, 1.314096E-03_EB, 2.282961E-02_EB, &
     1.420120E-03_EB, 1.020475E-03_EB, 6.385377E-04_EB, 2.240175E-03_EB, 1.390330E-03_EB, 3.503565E-01_EB, 2.532075E-04_EB, &
     1.303079E-02_EB, 1.684651E-02_EB, 1.656972E-02_EB, 6.785015E-03_EB, 1.293076E-04_EB, 1.692435E-02_EB, 9.530208E-04_EB, &
     1.370385E-02_EB, 1.586469E-02_EB, 1.596226E-04_EB, 6.447976E-04_EB, 2.699714E-04_EB, 4.064881E-01_EB, 7.587172E-04_EB, &
     1.038621E-02_EB, 6.544712E-03_EB, 6.378851E-03_EB, 9.284895E-03_EB, 4.414444E-04_EB, 4.010176E-01_EB, &
     1.276912E-03_EB/),(/7,8/))
  
  GAMMAD1_C7H16(1:7,9:16) = RESHAPE((/ &  ! 1300-1475 CM-1
     9.663644E-02_EB, 3.809049E-04_EB, 7.060483E-04_EB, 2.346751E-03_EB, 1.601612E-03_EB, 2.284259E-01_EB, 3.174484E-03_EB, &
     2.648317E-02_EB, 4.915970E-04_EB, 1.642486E-03_EB, 3.803913E-03_EB, 3.050190E-03_EB, 1.055777E-02_EB, 4.320127E-03_EB, &
     3.165256E-02_EB, 3.335451E-03_EB, 6.233122E-03_EB, 1.162381E-02_EB, 1.333659E-02_EB, 1.163372E-02_EB, 8.774580E-04_EB, &
     7.316298E-02_EB, 3.067612E-02_EB, 2.893574E-02_EB, 4.067615E-02_EB, 5.248547E-02_EB, 4.649271E-01_EB, 1.044691E-02_EB, &
     4.533824E-02_EB, 1.035218E-02_EB, 1.958798E-02_EB, 2.401292E-02_EB, 2.064596E-02_EB, 3.122001E-02_EB, 3.284470E-03_EB, &
     2.887489E-02_EB, 4.618211E-04_EB, 1.291555E-02_EB, 9.570390E-03_EB, 1.139081E-02_EB, 4.131392E-02_EB, 2.376013E-02_EB, &
     9.435371E-02_EB, 3.559624E-02_EB, 4.477145E-02_EB, 5.321919E-02_EB, 5.410966E-02_EB, 4.965735E-02_EB, 3.060972E-03_EB, &
     1.434765E-01_EB, 5.756528E-02_EB, 7.898010E-02_EB, 6.856662E-02_EB, 6.369824E-02_EB, 6.660056E-02_EB, &
     3.552779E-03_EB/),(/7,8/))
  
  GAMMAD1_C7H16(1:7,17:24) = RESHAPE((/ &  ! 1500-1675 CM-1
     6.164439E-02_EB, 4.097206E-02_EB, 2.017864E-02_EB, 5.078487E-02_EB, 2.150953E-02_EB, 6.143261E-01_EB, 2.140967E-03_EB, &
     4.999099E-02_EB, 6.175675E-01_EB, 5.926015E-01_EB, 5.735879E-01_EB, 3.127071E-03_EB, 8.449651E-02_EB, 4.359548E-03_EB, &
     2.308160E-01_EB, 2.876922E+00_EB, 2.678573E+00_EB, 3.088436E-01_EB, 1.022662E-03_EB, 4.348389E-01_EB, 5.138371E-04_EB, &
     1.136554E-03_EB, 2.312863E-05_EB, 1.191809E+00_EB, 5.400494E-04_EB, 8.452069E-04_EB, 3.414922E-05_EB, 2.732241E-04_EB, &
     1.236428E-03_EB, 7.575429E-06_EB, 1.804662E-05_EB, 1.168575E-04_EB, 1.132712E-03_EB, 1.348325E-05_EB, 2.605356E-04_EB, &
     1.005482E-03_EB, 1.099106E-03_EB, 1.146793E-03_EB, 1.793408E-04_EB, 1.319446E-03_EB, 2.932722E-05_EB, 2.217645E-04_EB, &
     1.351400E-03_EB, 1.302077E-03_EB, 1.237548E-03_EB, 2.270156E-03_EB, 1.159496E-03_EB, 2.121847E-03_EB, 2.405564E-04_EB, &
     1.421491E-03_EB, 1.320464E-03_EB, 1.069063E-03_EB, 1.283897E-03_EB, 9.514195E-04_EB, 1.174814E-03_EB, &
     1.274543E-04_EB/),(/7,8/))
  
  GAMMAD1_C7H16(1:7,25:29) = RESHAPE((/ &  ! 1700-1800 CM-1
     1.029018E-03_EB, 1.522013E-03_EB, 1.190609E-03_EB, 1.137355E-03_EB, 1.227873E-03_EB, 1.521396E-03_EB, 4.984208E-05_EB, &
     1.062872E-03_EB, 1.240560E-03_EB, 1.115838E-03_EB, 1.071608E-03_EB, 1.073014E-03_EB, 1.091421E-03_EB, 1.043998E-04_EB, &
     1.264467E-03_EB, 1.452995E-03_EB, 1.276660E-03_EB, 1.062100E-03_EB, 1.296189E-03_EB, 1.314713E-03_EB, 1.161390E-04_EB, &
     9.490158E-04_EB, 1.088570E-03_EB, 1.017566E-03_EB, 1.036075E-03_EB, 9.453163E-04_EB, 9.054199E-04_EB, 1.849978E-04_EB, &
     7.632406E-04_EB, 7.638486E-04_EB, 7.631088E-04_EB, 7.630990E-04_EB, 7.628205E-04_EB, 7.652755E-04_EB, &
     1.536272E-03_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C7H16(N_TEMP_C7H16,30))
  
  ! BAND #2: 2550 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 5.5204 %
  
  SD2_C7H16(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     1.230745E-03_EB, 1.059249E-02_EB, 5.258556E-03_EB, 8.983219E-03_EB, 1.071517E-02_EB, 1.270153E-03_EB, 2.238178E-03_EB, &
     1.746456E-02_EB, 4.672224E-02_EB, 3.759388E-02_EB, 4.616045E-02_EB, 5.001133E-02_EB, 1.722111E-02_EB, 2.491507E-02_EB, &
     1.081581E-01_EB, 1.027192E-01_EB, 8.800407E-02_EB, 8.251442E-02_EB, 6.268006E-02_EB, 4.814096E-02_EB, 7.543431E-02_EB, &
     1.324171E-01_EB, 1.186396E-01_EB, 8.522107E-02_EB, 8.615581E-02_EB, 7.161614E-02_EB, 4.907251E-02_EB, 4.189169E-02_EB, &
     1.360592E-01_EB, 1.511535E-01_EB, 9.963712E-02_EB, 9.989906E-02_EB, 7.841100E-02_EB, 6.989163E-02_EB, 1.135539E-01_EB, &
     1.798230E-01_EB, 2.192535E-01_EB, 1.208341E-01_EB, 1.243637E-01_EB, 2.183718E-01_EB, 7.565057E-02_EB, 8.186008E-02_EB, &
     2.869951E-01_EB, 2.102309E-01_EB, 1.285038E-01_EB, 1.353365E-01_EB, 1.198975E-01_EB, 1.097888E-01_EB, 8.920775E-02_EB, &
     4.131559E-01_EB, 3.718172E-01_EB, 1.977670E-01_EB, 1.999998E-01_EB, 2.661506E-01_EB, 1.630822E-01_EB, &
     1.430789E-01_EB/),(/7,8/))
  
  SD2_C7H16(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     4.814798E-01_EB, 4.371742E-01_EB, 2.946385E-01_EB, 2.539099E-01_EB, 3.004489E-01_EB, 2.639523E-01_EB, 2.106653E-01_EB, &
     4.711680E-01_EB, 4.231342E-01_EB, 2.816821E-01_EB, 2.662044E-01_EB, 2.714629E-01_EB, 4.380265E-01_EB, 2.595817E-01_EB, &
     6.539776E-01_EB, 7.016029E-01_EB, 5.178696E-01_EB, 4.535956E-01_EB, 5.002499E-01_EB, 7.197349E-01_EB, 3.199467E-01_EB, &
     1.241588E+00_EB, 1.255753E+00_EB, 9.891572E-01_EB, 8.923575E-01_EB, 8.902290E-01_EB, 1.114933E+00_EB, 4.631429E-01_EB, &
     5.884384E+00_EB, 4.563318E+00_EB, 3.951471E+00_EB, 3.339596E+00_EB, 2.714647E+00_EB, 2.641774E+00_EB, 7.520423E-01_EB, &
     1.531155E+01_EB, 1.096024E+01_EB, 9.162135E+00_EB, 7.803908E+00_EB, 5.562181E+00_EB, 4.589694E+00_EB, 1.056916E+00_EB, &
     1.317309E+01_EB, 1.037752E+01_EB, 9.226521E+00_EB, 8.166911E+00_EB, 6.406625E+00_EB, 6.017800E+00_EB, 1.580795E+00_EB, &
     2.423199E+01_EB, 1.841550E+01_EB, 1.601599E+01_EB, 1.391139E+01_EB, 1.034058E+01_EB, 9.135221E+00_EB, &
     2.166977E+00_EB/),(/7,8/))
  
  SD2_C7H16(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     2.666381E+01_EB, 2.072769E+01_EB, 1.799865E+01_EB, 1.588750E+01_EB, 1.152743E+01_EB, 9.524580E+00_EB, 2.012903E+00_EB, &
     3.139322E+01_EB, 2.055468E+01_EB, 1.643220E+01_EB, 1.409534E+01_EB, 8.965984E+00_EB, 6.302236E+00_EB, 1.518462E+00_EB, &
     2.594752E+00_EB, 2.921881E+00_EB, 2.424761E+00_EB, 2.367343E+00_EB, 1.941979E+00_EB, 1.810548E+00_EB, 1.163951E+00_EB, &
     9.124058E-01_EB, 1.242167E+00_EB, 8.462169E-01_EB, 7.637253E-01_EB, 7.930042E-01_EB, 7.315673E-01_EB, 9.222189E-01_EB, &
     5.694335E-01_EB, 1.040431E+00_EB, 4.731323E-01_EB, 4.570560E-01_EB, 5.207545E-01_EB, 4.518627E-01_EB, 7.258027E-01_EB, &
     4.615311E-01_EB, 7.262374E-01_EB, 2.975859E-01_EB, 3.257008E-01_EB, 3.595477E-01_EB, 3.278019E-01_EB, 5.488059E-01_EB, &
     4.537172E-01_EB, 5.187525E-01_EB, 2.166416E-01_EB, 2.523836E-01_EB, 3.336731E-01_EB, 2.793265E-01_EB, 4.844761E-01_EB, &
     1.173983E-01_EB, 4.043441E-01_EB, 1.764942E-01_EB, 2.034332E-01_EB, 2.260464E-01_EB, 2.126733E-01_EB, &
     5.112998E-01_EB/),(/7,8/))
  
  SD2_C7H16(1:7,25:30) = RESHAPE((/ &  ! 3150-3275 CM-1
     1.745347E-01_EB, 3.869948E-01_EB, 1.606330E-01_EB, 1.691991E-01_EB, 1.773258E-01_EB, 1.545312E-01_EB, 3.754934E-01_EB, &
     2.125656E-01_EB, 3.845411E-01_EB, 1.519506E-01_EB, 1.522530E-01_EB, 1.848037E-01_EB, 1.013866E-01_EB, 2.632396E-01_EB, &
     2.543277E-01_EB, 2.891570E-01_EB, 9.975616E-02_EB, 1.088793E-01_EB, 1.322502E-01_EB, 5.343256E-02_EB, 1.951975E-01_EB, &
     6.412029E-02_EB, 2.180048E-01_EB, 9.631661E-02_EB, 5.927599E-02_EB, 1.626811E-02_EB, 2.207700E-02_EB, 1.199629E-01_EB, &
     4.940691E-03_EB, 1.520018E-02_EB, 8.071023E-03_EB, 1.120400E-02_EB, 5.605272E-03_EB, 1.455284E-03_EB, 4.956089E-02_EB, &
     9.565465E-04_EB, 9.572222E-04_EB, 9.564413E-04_EB, 9.564850E-04_EB, 9.561277E-04_EB, 9.585852E-04_EB, &
     1.922450E-03_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C7H16(N_TEMP_C7H16,30))
  
  ! BAND #2: 2550 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 5.5204 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C7H16(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     9.146079E-04_EB, 1.220358E-02_EB, 3.937261E-03_EB, 7.187786E-03_EB, 5.227505E-03_EB, 9.355109E-04_EB, 1.819838E-03_EB, &
     9.874420E-03_EB, 2.084439E-01_EB, 2.173266E-01_EB, 8.182000E-03_EB, 2.973184E-02_EB, 9.482167E-03_EB, 5.745211E-01_EB, &
     9.786100E-03_EB, 1.858210E-01_EB, 1.533293E-02_EB, 5.349239E-02_EB, 2.414250E-02_EB, 4.205505E-04_EB, 3.283538E-02_EB, &
     1.016087E-02_EB, 5.218556E-02_EB, 6.697325E-02_EB, 2.379606E-01_EB, 8.937135E-03_EB, 9.990945E-03_EB, 5.966306E-01_EB, &
     1.783704E-02_EB, 2.299629E-02_EB, 4.295102E-02_EB, 6.377060E-02_EB, 3.169911E-02_EB, 5.529323E-03_EB, 7.456241E-01_EB, &
     9.757832E-03_EB, 5.468131E-03_EB, 4.867751E-02_EB, 1.172578E-01_EB, 4.899078E-04_EB, 2.599541E-02_EB, 1.519840E+00_EB, &
     1.701122E-03_EB, 1.906085E-02_EB, 8.916232E-02_EB, 3.655990E-01_EB, 7.351637E-03_EB, 3.626665E-02_EB, 1.919410E+00_EB, &
     3.999808E-03_EB, 7.531740E-03_EB, 1.072796E-01_EB, 1.003155E+00_EB, 1.614637E-03_EB, 7.721701E-02_EB, &
     1.224303E+00_EB/),(/7,8/))
  
  GAMMAD2_C7H16(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     4.880113E-03_EB, 8.565604E-03_EB, 1.367064E-02_EB, 3.997591E-01_EB, 4.442547E-03_EB, 1.915330E-02_EB, 5.051128E+00_EB, &
     1.825295E-03_EB, 7.512748E-03_EB, 1.729303E-02_EB, 1.104825E+00_EB, 1.586989E-02_EB, 1.138387E-02_EB, 1.724797E+00_EB, &
     8.938939E-03_EB, 1.035703E-02_EB, 1.615494E-02_EB, 9.389559E-02_EB, 1.525842E-02_EB, 1.850825E-02_EB, 3.698894E+00_EB, &
     2.478387E-02_EB, 2.301877E-02_EB, 4.297098E-02_EB, 1.503277E-01_EB, 6.014925E-02_EB, 8.742386E-02_EB, 2.622943E+00_EB, &
     1.601922E-01_EB, 1.114843E-01_EB, 1.112220E-01_EB, 1.804939E-01_EB, 2.339949E-01_EB, 1.584145E-01_EB, 9.606857E+00_EB, &
     5.154427E-01_EB, 3.320188E-01_EB, 3.025580E-01_EB, 3.557579E-01_EB, 6.640807E-01_EB, 3.241466E-01_EB, 2.268534E+01_EB, &
     4.187811E-01_EB, 3.414132E-01_EB, 3.225035E-01_EB, 3.833688E-01_EB, 7.058557E-01_EB, 4.035161E-01_EB, 4.330011E+01_EB, &
     8.053331E-01_EB, 5.054746E-01_EB, 4.771400E-01_EB, 5.477855E-01_EB, 1.088287E+00_EB, 5.418580E-01_EB, &
     4.326237E+01_EB/),(/7,8/))
  
  GAMMAD2_C7H16(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     9.236854E-01_EB, 6.215496E-01_EB, 5.912471E-01_EB, 6.204509E-01_EB, 1.340069E+00_EB, 6.140174E-01_EB, 4.330342E+01_EB, &
     5.662789E-01_EB, 5.083725E-01_EB, 4.767821E-01_EB, 4.500428E-01_EB, 1.099144E+00_EB, 4.936755E-01_EB, 2.497692E+01_EB, &
     5.143360E-02_EB, 5.233965E-02_EB, 8.660531E-02_EB, 8.976548E-02_EB, 1.810249E-01_EB, 2.371358E-01_EB, 4.306803E+01_EB, &
     1.542965E-02_EB, 1.268218E-02_EB, 2.772033E-02_EB, 9.250133E-02_EB, 2.649493E-02_EB, 3.172831E-01_EB, 8.950148E+00_EB, &
     8.562522E-03_EB, 4.977221E-03_EB, 3.610411E-02_EB, 1.439318E+00_EB, 1.049615E-02_EB, 6.108043E-01_EB, 4.534910E+00_EB, &
     1.597126E-03_EB, 3.635349E-03_EB, 5.555783E-02_EB, 3.967871E+00_EB, 6.887030E-03_EB, 5.613768E-01_EB, 3.059256E+00_EB, &
     6.799236E-04_EB, 3.384843E-03_EB, 1.010555E-01_EB, 2.884777E+00_EB, 2.380478E-03_EB, 1.681744E-01_EB, 2.528805E+00_EB, &
     8.299446E-03_EB, 2.940292E-03_EB, 9.141446E-02_EB, 3.099637E+00_EB, 1.826256E-03_EB, 9.931857E-02_EB, &
     3.001536E+00_EB/),(/7,8/))
  
  GAMMAD2_C7H16(1:7,25:30) = RESHAPE((/ &  ! 3150-3275 CM-1
     1.022601E-02_EB, 2.439564E-03_EB, 2.129847E-02_EB, 1.571134E+00_EB, 1.678148E-03_EB, 9.784188E-02_EB, 7.913187E+00_EB, &
     2.072404E-02_EB, 2.738722E-03_EB, 2.883252E-02_EB, 5.459085E-01_EB, 6.513406E-04_EB, 1.967974E-01_EB, 1.236417E+00_EB, &
     3.185761E-03_EB, 2.226331E-03_EB, 3.340747E-02_EB, 2.954516E+00_EB, 3.127038E-04_EB, 3.897705E-02_EB, 5.973433E-01_EB, &
     3.201661E-03_EB, 5.002671E-04_EB, 5.027477E-04_EB, 5.059749E-01_EB, 2.581852E-03_EB, 5.653921E-03_EB, 4.902323E-01_EB, &
     3.091588E-03_EB, 1.287212E-03_EB, 4.025758E-03_EB, 1.683050E-02_EB, 2.725481E-03_EB, 9.810405E-04_EB, 1.476595E-02_EB, &
     7.632406E-04_EB, 7.638486E-04_EB, 7.631088E-04_EB, 7.630990E-04_EB, 7.628205E-04_EB, 7.652755E-04_EB, &
     1.536272E-03_EB/),(/7,6/))
  
  !-------------------------METHANOL DATA-------------------
  
  
  ! THERE ARE 4 BANDS FOR METHANOL
  
  ! BAND #1: 825 CM-1 - 1150 CM-1
  ! BAND #2: 1125 CM-1 - 1700 CM-1
  ! BAND #3: 2600 CM-1 - 3225 CM-1
  ! BAND #4: 3525 CM-1 - 3850 CM-1
  
  ALLOCATE(SD_CH3OH_TEMP(N_TEMP_CH3OH))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR METHANOL ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_CH3OH(N_BAND_CH3OH,3))
  ALLOCATE(BE_CH3OH(N_BAND_CH3OH))
  
  OM_BND_CH3OH = RESHAPE((/ &
     825._EB, 1125._EB, 2600._EB, 3525._EB, &
     1150._EB, 1700._EB, 3225._EB, 3850._EB, &
     5._EB, 25._EB, 25._EB, 25._EB/),(/N_BAND_CH3OH,3/))
  
  SD_CH3OH_TEMP = (/ &
     293._EB, 396._EB, 443._EB, 483._EB, 570._EB, 804._EB,&
     1000._EB/)
  
  BE_CH3OH = (/ &
     1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_CH3OH(N_TEMP_CH3OH,58))
  
  ! BAND #1: 825 CM-1 - 1150 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 3.9209 %
  
  SD1_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 825-860 CM-1
     7.075310E-04_EB, 8.159230E-04_EB, 6.305365E-04_EB, 6.771661E-04_EB, 6.382997E-04_EB, 6.733725E-04_EB, 5.317197E-04_EB, &
     1.027754E-03_EB, 7.803944E-04_EB, 9.690581E-04_EB, 8.327490E-04_EB, 1.014832E-03_EB, 1.009424E-03_EB, 4.548089E-02_EB, &
     9.923660E-04_EB, 7.762778E-04_EB, 8.630137E-04_EB, 1.137131E-03_EB, 8.918616E-04_EB, 1.053434E-03_EB, 2.195153E+00_EB, &
     9.759840E-04_EB, 1.083038E-03_EB, 9.878635E-04_EB, 9.020455E-04_EB, 9.799016E-04_EB, 6.911637E-04_EB, 6.514857E-01_EB, &
     1.006816E-03_EB, 9.248700E-04_EB, 8.933603E-04_EB, 9.409542E-04_EB, 7.796524E-04_EB, 1.033193E-03_EB, 3.104940E-01_EB, &
     1.262552E-03_EB, 9.296738E-04_EB, 1.134121E-03_EB, 1.041003E-03_EB, 8.506538E-04_EB, 1.025871E-03_EB, 4.257321E-01_EB, &
     9.314553E-04_EB, 9.719139E-04_EB, 1.050566E-03_EB, 1.107681E-03_EB, 7.432552E-04_EB, 7.341790E-03_EB, 2.976279E-01_EB, &
     9.166184E-04_EB, 9.949250E-04_EB, 1.142691E-03_EB, 1.003991E-03_EB, 9.570837E-04_EB, 2.474105E-02_EB, &
     3.966025E-02_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 865-900 CM-1
     8.873778E-04_EB, 1.014874E-03_EB, 8.954091E-04_EB, 8.658071E-04_EB, 8.266735E-04_EB, 3.960677E-02_EB, 4.795769E-01_EB, &
     9.318468E-04_EB, 1.081375E-03_EB, 8.779975E-04_EB, 6.417478E-04_EB, 8.380587E-04_EB, 5.064673E-02_EB, 2.069845E+00_EB, &
     9.172948E-04_EB, 6.246642E-04_EB, 8.418469E-04_EB, 1.002610E-03_EB, 8.748320E-04_EB, 6.309985E-02_EB, 2.535762E+00_EB, &
     5.635661E-04_EB, 9.022735E-04_EB, 7.536768E-04_EB, 1.384075E-02_EB, 4.169450E-03_EB, 6.860592E-02_EB, 4.255594E+00_EB, &
     5.238187E-04_EB, 9.020580E-04_EB, 8.975650E-04_EB, 2.989369E-02_EB, 2.964629E-03_EB, 5.639540E-01_EB, 4.081000E+00_EB, &
     4.272194E-03_EB, 1.285085E-03_EB, 1.101707E-03_EB, 3.363383E-02_EB, 2.223112E-03_EB, 7.068202E-01_EB, 5.035905E+00_EB, &
     7.391996E-03_EB, 1.149033E-03_EB, 4.043676E-03_EB, 3.024886E-02_EB, 1.237039E-02_EB, 2.917510E-01_EB, 5.127708E+00_EB, &
     1.769445E-02_EB, 1.162378E-03_EB, 1.101607E-02_EB, 3.265720E-02_EB, 2.700163E-02_EB, 2.303736E-01_EB, &
     7.211748E+00_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 905-940 CM-1
     1.041542E-02_EB, 1.114301E-02_EB, 1.311655E-02_EB, 4.064275E-02_EB, 7.266914E-02_EB, 2.423119E-01_EB, 4.957147E+00_EB, &
     2.050418E-02_EB, 1.592394E-02_EB, 3.294495E-02_EB, 5.520246E-02_EB, 7.496393E-02_EB, 2.368645E-01_EB, 1.130981E+01_EB, &
     2.109122E-02_EB, 1.222826E-02_EB, 4.727193E-02_EB, 8.561265E-02_EB, 1.062168E-01_EB, 1.049801E+00_EB, 7.996949E+00_EB, &
     3.772088E-02_EB, 8.854601E-03_EB, 6.435677E-02_EB, 7.648012E-02_EB, 1.545208E-01_EB, 2.887097E-01_EB, 3.363412E+00_EB, &
     5.889149E-02_EB, 2.614746E-02_EB, 8.847350E-02_EB, 1.405710E-01_EB, 1.772912E-01_EB, 3.718949E-01_EB, 9.837331E+00_EB, &
     6.654570E-02_EB, 5.749401E-02_EB, 9.802181E-02_EB, 1.688979E-01_EB, 2.243950E-01_EB, 1.220047E+00_EB, 1.655983E+01_EB, &
     7.945784E-02_EB, 9.272308E-02_EB, 1.367127E-01_EB, 1.949308E-01_EB, 2.725708E-01_EB, 6.381513E-01_EB, 1.228651E+01_EB, &
     9.776093E-02_EB, 1.303068E-01_EB, 1.815588E-01_EB, 2.578179E-01_EB, 3.469963E-01_EB, 5.560945E-01_EB, &
     1.183943E+01_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,25:32) = RESHAPE((/ &  ! 945-980 CM-1
     1.006010E-01_EB, 1.730636E-01_EB, 2.270729E-01_EB, 3.315982E-01_EB, 4.573468E-01_EB, 6.708389E-01_EB, 1.024291E+01_EB, &
     1.194413E-01_EB, 2.369771E-01_EB, 3.106016E-01_EB, 4.274250E-01_EB, 5.708632E-01_EB, 7.929006E-01_EB, 1.330083E+01_EB, &
     1.736727E-01_EB, 3.344439E-01_EB, 4.261052E-01_EB, 5.527598E-01_EB, 7.561373E-01_EB, 9.600217E-01_EB, 1.114027E+01_EB, &
     2.600298E-01_EB, 4.700460E-01_EB, 5.820182E-01_EB, 7.302241E-01_EB, 9.234681E-01_EB, 1.070772E+00_EB, 1.188692E+01_EB, &
     3.671640E-01_EB, 6.491391E-01_EB, 7.852073E-01_EB, 9.389176E-01_EB, 1.126578E+00_EB, 1.172724E+00_EB, 6.310257E+00_EB, &
     5.738182E-01_EB, 9.168206E-01_EB, 1.052392E+00_EB, 1.223815E+00_EB, 1.363750E+00_EB, 1.356380E+00_EB, 1.276687E+01_EB, &
     8.847952E-01_EB, 1.262063E+00_EB, 1.370575E+00_EB, 1.545198E+00_EB, 1.612648E+00_EB, 1.449724E+00_EB, 1.203918E+01_EB, &
     1.380983E+00_EB, 1.728933E+00_EB, 1.776913E+00_EB, 1.952279E+00_EB, 1.903225E+00_EB, 1.560147E+00_EB, &
     1.409457E+01_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,33:40) = RESHAPE((/ &  ! 985-1020 CM-1
     1.989792E+00_EB, 2.216523E+00_EB, 2.173252E+00_EB, 2.302944E+00_EB, 2.154186E+00_EB, 1.615229E+00_EB, 1.614576E+01_EB, &
     2.901685E+00_EB, 2.807597E+00_EB, 2.638654E+00_EB, 2.691349E+00_EB, 2.424882E+00_EB, 1.732381E+00_EB, 1.516364E+01_EB, &
     3.935938E+00_EB, 3.363705E+00_EB, 3.049578E+00_EB, 3.000715E+00_EB, 2.568481E+00_EB, 1.745273E+00_EB, 2.252866E+01_EB, &
     5.148871E+00_EB, 3.896474E+00_EB, 3.364794E+00_EB, 3.239344E+00_EB, 2.682511E+00_EB, 1.748386E+00_EB, 2.390649E+01_EB, &
     6.170452E+00_EB, 4.190528E+00_EB, 3.476275E+00_EB, 3.307799E+00_EB, 2.673466E+00_EB, 1.690532E+00_EB, 2.170835E+01_EB, &
     6.905606E+00_EB, 4.214646E+00_EB, 3.441984E+00_EB, 3.180517E+00_EB, 2.517520E+00_EB, 1.596762E+00_EB, 1.932637E+01_EB, &
     6.940706E+00_EB, 3.956671E+00_EB, 3.247771E+00_EB, 2.994245E+00_EB, 2.445520E+00_EB, 1.673228E+00_EB, 1.306371E+01_EB, &
     5.958695E+00_EB, 3.454990E+00_EB, 2.948441E+00_EB, 2.807961E+00_EB, 2.435395E+00_EB, 1.873623E+00_EB, &
     1.081489E+01_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,41:48) = RESHAPE((/ &  ! 1025-1060 CM-1
     4.201331E+00_EB, 2.701090E+00_EB, 2.459137E+00_EB, 2.429934E+00_EB, 2.270440E+00_EB, 1.776380E+00_EB, 1.211452E+01_EB, &
     6.021324E+00_EB, 4.632103E+00_EB, 4.201019E+00_EB, 4.002494E+00_EB, 3.407819E+00_EB, 2.266345E+00_EB, 1.495652E+01_EB, &
     9.188156E+00_EB, 5.163112E+00_EB, 4.909468E+00_EB, 4.147644E+00_EB, 3.320954E+00_EB, 1.941572E+00_EB, 1.668271E+01_EB, &
     3.550622E+00_EB, 2.256569E+00_EB, 2.077046E+00_EB, 1.997234E+00_EB, 1.831325E+00_EB, 1.549349E+00_EB, 1.016637E+01_EB, &
     6.406905E+00_EB, 3.553412E+00_EB, 2.981786E+00_EB, 2.818896E+00_EB, 2.393274E+00_EB, 1.845333E+00_EB, 1.267998E+01_EB, &
     9.119940E+00_EB, 5.130999E+00_EB, 4.171838E+00_EB, 3.898993E+00_EB, 3.183156E+00_EB, 2.173550E+00_EB, 1.068448E+01_EB, &
     1.001487E+01_EB, 6.103507E+00_EB, 4.932645E+00_EB, 4.654735E+00_EB, 3.723719E+00_EB, 2.430534E+00_EB, 1.889930E+01_EB, &
     8.945286E+00_EB, 6.111634E+00_EB, 5.090176E+00_EB, 4.850566E+00_EB, 3.927607E+00_EB, 2.511476E+00_EB, &
     2.721090E+01_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,49:56) = RESHAPE((/ &  ! 1065-1100 CM-1
     6.548008E+00_EB, 5.234485E+00_EB, 4.593759E+00_EB, 4.456866E+00_EB, 3.759323E+00_EB, 2.389545E+00_EB, 1.930330E+01_EB, &
     4.016006E+00_EB, 3.880275E+00_EB, 3.590672E+00_EB, 3.603798E+00_EB, 3.180636E+00_EB, 2.124012E+00_EB, 7.098842E+00_EB, &
     2.039641E+00_EB, 2.438251E+00_EB, 2.437403E+00_EB, 2.528162E+00_EB, 2.390431E+00_EB, 1.727051E+00_EB, 1.564504E+01_EB, &
     8.890902E-01_EB, 1.306925E+00_EB, 1.439104E+00_EB, 1.573364E+00_EB, 1.582749E+00_EB, 1.325349E+00_EB, 1.309975E+01_EB, &
     4.289045E-01_EB, 6.181922E-01_EB, 7.402675E-01_EB, 8.358344E-01_EB, 9.479778E-01_EB, 8.718487E-01_EB, 8.578315E+00_EB, &
     3.110189E-01_EB, 3.181081E-01_EB, 3.757707E-01_EB, 4.355864E-01_EB, 4.933576E-01_EB, 9.265380E-01_EB, 5.124942E+00_EB, &
     3.078577E-01_EB, 2.309721E-01_EB, 2.504640E-01_EB, 2.713709E-01_EB, 2.640710E-01_EB, 6.768124E-01_EB, 7.096896E+00_EB, &
     2.629835E-01_EB, 1.842053E-01_EB, 1.854752E-01_EB, 2.041121E-01_EB, 2.026328E-01_EB, 4.463207E-01_EB, &
     1.030077E+01_EB/),(/7,8/))
  
  SD1_CH3OH(1:7,57:58) = RESHAPE((/ &  ! 1125-1150 CM-1
     1.066160E-01_EB, 8.237972E-02_EB, 7.650034E-02_EB, 7.750927E-02_EB, 8.650473E-02_EB, 5.002688E-01_EB, 2.961022E+00_EB, &
     4.699306E-04_EB, 4.696984E-04_EB, 4.697130E-04_EB, 4.702606E-04_EB, 4.699096E-04_EB, 4.682572E-04_EB, &
     4.691749E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_CH3OH(N_TEMP_CH3OH,58))
  
  ! BAND #1: 825 CM-1 - 1150 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 3.9209 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 825-860 CM-1
     6.320478E-04_EB, 6.861763E-04_EB, 4.976022E-04_EB, 5.212687E-04_EB, 4.951307E-04_EB, 4.722485E-04_EB, 4.126358E-04_EB, &
     5.857091E-04_EB, 4.986862E-04_EB, 7.181338E-04_EB, 6.000370E-04_EB, 8.426048E-04_EB, 6.854139E-04_EB, 9.797634E-05_EB, &
     6.687840E-04_EB, 5.631883E-04_EB, 6.493401E-04_EB, 8.974743E-04_EB, 8.364450E-04_EB, 9.128100E-04_EB, 2.228170E-05_EB, &
     7.015973E-04_EB, 8.509882E-04_EB, 6.749386E-04_EB, 7.104894E-04_EB, 9.244817E-04_EB, 4.993607E-04_EB, 3.618598E-05_EB, &
     6.879541E-04_EB, 6.793889E-04_EB, 6.064846E-04_EB, 7.494890E-04_EB, 6.021521E-04_EB, 8.041830E-04_EB, 4.227068E-05_EB, &
     1.115437E-03_EB, 6.123108E-04_EB, 9.950372E-04_EB, 7.526989E-04_EB, 5.762193E-04_EB, 6.564205E-04_EB, 4.006551E-05_EB, &
     7.510632E-04_EB, 6.557116E-04_EB, 7.646716E-04_EB, 8.360125E-04_EB, 5.785516E-04_EB, 7.166127E-02_EB, 3.307520E-05_EB, &
     7.077134E-04_EB, 6.379859E-04_EB, 8.630039E-04_EB, 8.226252E-04_EB, 6.815535E-04_EB, 2.157192E-01_EB, &
     1.186508E-04_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 865-900 CM-1
     6.878550E-04_EB, 7.626337E-04_EB, 7.231979E-04_EB, 6.559557E-04_EB, 6.188317E-04_EB, 1.528514E-01_EB, 3.379362E-05_EB, &
     8.329430E-04_EB, 7.234964E-04_EB, 7.086063E-04_EB, 4.799785E-04_EB, 5.996684E-04_EB, 1.058608E-01_EB, 2.576308E-05_EB, &
     7.201976E-04_EB, 4.879678E-04_EB, 7.514895E-04_EB, 9.296249E-04_EB, 7.627646E-04_EB, 1.357754E-02_EB, 4.112898E-05_EB, &
     4.468231E-04_EB, 7.152109E-04_EB, 5.892145E-04_EB, 6.268495E-03_EB, 6.890662E-04_EB, 8.344058E-03_EB, 3.782398E-05_EB, &
     4.115617E-04_EB, 6.608084E-04_EB, 6.730864E-04_EB, 1.653705E-02_EB, 7.764525E-04_EB, 2.258557E-04_EB, 7.122008E-05_EB, &
     2.243172E-03_EB, 1.292195E-03_EB, 1.270788E-03_EB, 1.990852E-02_EB, 5.353682E-02_EB, 3.379605E-04_EB, 1.094851E-04_EB, &
     2.795631E-03_EB, 8.919100E-04_EB, 5.452501E-03_EB, 5.460032E-02_EB, 4.954888E-01_EB, 2.416852E-03_EB, 8.087006E-05_EB, &
     3.021916E-03_EB, 8.815026E-04_EB, 2.682624E-03_EB, 1.363428E-01_EB, 7.040860E-01_EB, 9.532477E-03_EB, &
     4.720845E-05_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 905-940 CM-1
     1.302330E-02_EB, 5.102234E-03_EB, 2.422490E-01_EB, 1.768788E-01_EB, 2.586447E-01_EB, 3.526812E-01_EB, 4.129581E-04_EB, &
     2.544888E-02_EB, 1.060450E-02_EB, 1.381583E-02_EB, 4.518627E-01_EB, 5.206079E-01_EB, 8.391062E-03_EB, 2.632629E-04_EB, &
     2.533298E-01_EB, 6.433475E-03_EB, 2.725983E-02_EB, 2.678852E-01_EB, 2.275531E-01_EB, 1.261497E-03_EB, 2.704299E-04_EB, &
     3.122114E-02_EB, 8.346136E-03_EB, 2.487987E-01_EB, 9.374202E-02_EB, 6.604262E-02_EB, 2.488402E-02_EB, 2.562359E-04_EB, &
     3.870602E-02_EB, 2.158011E-01_EB, 1.910186E-01_EB, 2.065914E-01_EB, 8.461225E-01_EB, 2.529266E-01_EB, 3.603466E-04_EB, &
     7.517862E-02_EB, 2.869129E-01_EB, 5.031265E-01_EB, 3.707385E-01_EB, 3.378211E-01_EB, 7.697419E-03_EB, 3.347542E-04_EB, &
     1.159008E-01_EB, 5.649415E-01_EB, 2.185566E-01_EB, 2.313598E+00_EB, 1.481866E+00_EB, 3.664479E-02_EB, 3.612492E-04_EB, &
     2.101148E-01_EB, 1.362737E+00_EB, 1.681817E-01_EB, 2.403762E+00_EB, 5.052362E+00_EB, 4.829425E+01_EB, &
     7.256697E-04_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,25:32) = RESHAPE((/ &  ! 945-980 CM-1
     2.154223E-01_EB, 1.063134E+00_EB, 2.745270E+00_EB, 6.048114E+00_EB, 1.191546E+01_EB, 3.613074E+01_EB, 9.758013E-04_EB, &
     3.415582E-01_EB, 5.670554E+00_EB, 1.626968E+00_EB, 8.377516E+00_EB, 2.646977E+01_EB, 4.827207E+01_EB, 6.374449E-04_EB, &
     7.233287E-01_EB, 1.170538E+01_EB, 2.699023E+00_EB, 1.811784E+01_EB, 4.833090E+01_EB, 4.829379E+01_EB, 6.697140E-04_EB, &
     4.410713E+00_EB, 2.163944E+01_EB, 1.204215E+01_EB, 6.230210E+01_EB, 5.735624E+01_EB, 4.829428E+01_EB, 6.621854E-04_EB, &
     6.410135E+00_EB, 5.657130E+01_EB, 3.102339E+01_EB, 6.230874E+01_EB, 5.735677E+01_EB, 4.829401E+01_EB, 1.509172E-03_EB, &
     3.756246E+01_EB, 6.880041E+01_EB, 4.129381E+01_EB, 6.230370E+01_EB, 5.735689E+01_EB, 4.829405E+01_EB, 8.487264E-04_EB, &
     6.111221E+01_EB, 6.881385E+01_EB, 6.471263E+01_EB, 6.230875E+01_EB, 5.735697E+01_EB, 4.829401E+01_EB, 1.318189E-03_EB, &
     7.999989E+01_EB, 6.881377E+01_EB, 6.495080E+01_EB, 6.230820E+01_EB, 5.735697E+01_EB, 4.828988E+01_EB, &
     1.354435E-03_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,33:40) = RESHAPE((/ &  ! 985-1020 CM-1
     7.999998E+01_EB, 6.881384E+01_EB, 6.494110E+01_EB, 6.230890E+01_EB, 5.735615E+01_EB, 4.829425E+01_EB, 1.479087E-03_EB, &
     7.999920E+01_EB, 6.881390E+01_EB, 6.506107E+01_EB, 6.230863E+01_EB, 5.735699E+01_EB, 4.829154E+01_EB, 1.456376E-03_EB, &
     7.999917E+01_EB, 6.881386E+01_EB, 6.499928E+01_EB, 6.230892E+01_EB, 5.735688E+01_EB, 1.272502E+01_EB, 7.723150E-04_EB, &
     7.999980E+01_EB, 6.881301E+01_EB, 6.505184E+01_EB, 6.230892E+01_EB, 5.735698E+01_EB, 4.828738E+01_EB, 6.758482E-04_EB, &
     8.000000E+01_EB, 6.881338E+01_EB, 6.504268E+01_EB, 6.230892E+01_EB, 5.735686E+01_EB, 4.829415E+01_EB, 7.919076E-04_EB, &
     8.000000E+01_EB, 6.881339E+01_EB, 6.506098E+01_EB, 6.230892E+01_EB, 5.735694E+01_EB, 4.829379E+01_EB, 1.044482E-03_EB, &
     8.000000E+01_EB, 6.881323E+01_EB, 6.503974E+01_EB, 6.230732E+01_EB, 5.735696E+01_EB, 4.829424E+01_EB, 1.883098E-03_EB, &
     8.000000E+01_EB, 6.881386E+01_EB, 6.498651E+01_EB, 6.230722E+01_EB, 5.735624E+01_EB, 2.615034E+00_EB, &
     1.731620E-03_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,41:48) = RESHAPE((/ &  ! 1025-1060 CM-1
     7.999918E+01_EB, 6.881390E+01_EB, 6.501143E+01_EB, 6.230770E+01_EB, 5.735573E+01_EB, 4.828762E+01_EB, 1.844304E-03_EB, &
     7.999986E+01_EB, 6.881374E+01_EB, 2.509078E+00_EB, 6.230892E+01_EB, 5.735699E+01_EB, 4.829418E+01_EB, 2.140274E-03_EB, &
     5.272622E-01_EB, 6.881390E+01_EB, 7.822208E-01_EB, 6.230892E+01_EB, 5.735699E+01_EB, 4.829426E+01_EB, 1.608061E-03_EB, &
     7.999988E+01_EB, 6.881380E+01_EB, 6.416330E+01_EB, 6.230736E+01_EB, 5.735695E+01_EB, 4.829395E+01_EB, 1.715694E-03_EB, &
     8.000000E+01_EB, 6.881387E+01_EB, 6.501663E+01_EB, 6.230833E+01_EB, 5.735699E+01_EB, 4.829374E+01_EB, 1.856662E-03_EB, &
     8.000000E+01_EB, 6.881386E+01_EB, 6.506116E+01_EB, 6.230710E+01_EB, 5.735699E+01_EB, 4.829358E+01_EB, 2.738523E-03_EB, &
     8.000000E+01_EB, 6.881391E+01_EB, 6.506116E+01_EB, 6.230892E+01_EB, 5.735699E+01_EB, 4.829418E+01_EB, 1.589317E-03_EB, &
     7.999991E+01_EB, 6.881391E+01_EB, 6.506118E+01_EB, 6.230892E+01_EB, 5.735618E+01_EB, 4.829397E+01_EB, &
     1.507561E-03_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,49:56) = RESHAPE((/ &  ! 1065-1100 CM-1
     8.000000E+01_EB, 6.881387E+01_EB, 6.506116E+01_EB, 6.230827E+01_EB, 5.735699E+01_EB, 4.829427E+01_EB, 2.253348E-03_EB, &
     7.999938E+01_EB, 6.881318E+01_EB, 6.505314E+01_EB, 6.230887E+01_EB, 5.735699E+01_EB, 4.829173E+01_EB, 3.424844E-03_EB, &
     7.999997E+01_EB, 6.881353E+01_EB, 6.505405E+01_EB, 6.230890E+01_EB, 5.735697E+01_EB, 4.828966E+01_EB, 1.125303E-03_EB, &
     6.451623E+01_EB, 6.881383E+01_EB, 6.492757E+01_EB, 6.230886E+01_EB, 5.735691E+01_EB, 4.823782E+01_EB, 9.265505E-04_EB, &
     2.835561E+00_EB, 4.814647E+01_EB, 1.930069E+01_EB, 4.670295E+01_EB, 5.733661E+01_EB, 4.981992E-01_EB, 1.101043E-03_EB, &
     3.405886E-01_EB, 8.624550E+00_EB, 8.265512E-01_EB, 4.097800E+00_EB, 1.789592E+01_EB, 1.840689E-02_EB, 1.204450E-03_EB, &
     2.136135E+00_EB, 6.560155E+00_EB, 2.276106E-01_EB, 2.826746E-01_EB, 4.031936E+00_EB, 9.675596E-03_EB, 8.693678E-04_EB, &
     3.865526E-01_EB, 2.663625E+00_EB, 2.801253E-01_EB, 1.479540E-01_EB, 6.549643E-01_EB, 4.007539E-03_EB, &
     2.400175E-04_EB/),(/7,8/))
  
  GAMMAD1_CH3OH(1:7,57:58) = RESHAPE((/ &  ! 1125-1150 CM-1
     1.031691E-01_EB, 1.063157E+00_EB, 8.796742E-02_EB, 3.121383E-01_EB, 3.923037E-01_EB, 4.063955E-04_EB, 1.096427E-04_EB, &
     3.748583E-04_EB, 3.747168E-04_EB, 3.744971E-04_EB, 3.751403E-04_EB, 3.748851E-04_EB, 3.734005E-04_EB, &
     3.740585E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_CH3OH(N_TEMP_CH3OH,24))
  
  ! BAND #2: 1125 CM-1 - 1700 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.5713 %
  
  SD2_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 1125-1300 CM-1
     8.927831E-02_EB, 6.438189E-02_EB, 6.336484E-02_EB, 7.782879E-02_EB, 7.726760E-02_EB, 3.430637E-01_EB, 2.111028E+00_EB, &
     1.428237E-01_EB, 1.080083E-01_EB, 1.208600E-01_EB, 1.421780E-01_EB, 1.436580E-01_EB, 1.355584E+00_EB, 5.627932E+00_EB, &
     1.431595E-01_EB, 1.414695E-01_EB, 1.558110E-01_EB, 1.760891E-01_EB, 2.027903E-01_EB, 5.295318E-01_EB, 8.429621E+00_EB, &
     2.293295E-01_EB, 2.455796E-01_EB, 2.542758E-01_EB, 2.648440E-01_EB, 2.899987E-01_EB, 4.124789E-01_EB, 7.705341E+00_EB, &
     2.983198E-01_EB, 2.968924E-01_EB, 2.931528E-01_EB, 3.015322E-01_EB, 3.289150E-01_EB, 4.332046E-01_EB, 1.274789E+01_EB, &
     3.760820E-01_EB, 3.648052E-01_EB, 3.591136E-01_EB, 3.639314E-01_EB, 3.850232E-01_EB, 5.091509E-01_EB, 9.900445E+00_EB, &
     4.286786E-01_EB, 4.103485E-01_EB, 4.009699E-01_EB, 4.152912E-01_EB, 4.397207E-01_EB, 4.994214E-01_EB, 1.080146E+01_EB, &
     6.526914E-01_EB, 4.766714E-01_EB, 4.276416E-01_EB, 4.115988E-01_EB, 4.189427E-01_EB, 4.846849E-01_EB, &
     8.381233E+00_EB/),(/7,8/))
  
  SD2_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 1325-1500 CM-1
     8.926014E-01_EB, 5.725096E-01_EB, 4.936350E-01_EB, 4.461230E-01_EB, 4.220260E-01_EB, 4.240504E-01_EB, 6.735177E+00_EB, &
     9.802829E-01_EB, 6.469535E-01_EB, 5.500127E-01_EB, 4.937137E-01_EB, 4.581570E-01_EB, 4.189329E-01_EB, 5.750931E+00_EB, &
     7.911468E-01_EB, 5.793679E-01_EB, 5.044808E-01_EB, 4.592149E-01_EB, 4.299574E-01_EB, 3.354935E-01_EB, 5.762184E+00_EB, &
     6.069133E-01_EB, 4.730774E-01_EB, 4.244640E-01_EB, 3.791906E-01_EB, 3.723725E-01_EB, 3.634556E-01_EB, 5.212994E+00_EB, &
     5.069178E-01_EB, 3.597810E-01_EB, 3.086202E-01_EB, 2.782571E-01_EB, 2.798365E-01_EB, 3.419783E-01_EB, 5.269252E+00_EB, &
     4.541349E-01_EB, 3.336580E-01_EB, 2.970106E-01_EB, 2.657370E-01_EB, 2.766112E-01_EB, 3.361569E-01_EB, 5.737162E+00_EB, &
     4.615691E-01_EB, 3.258696E-01_EB, 2.757947E-01_EB, 2.454101E-01_EB, 2.523896E-01_EB, 2.077158E-01_EB, 3.866394E+00_EB, &
     3.328678E-01_EB, 2.037433E-01_EB, 1.740683E-01_EB, 1.606349E-01_EB, 1.789734E-01_EB, 3.064642E-01_EB, &
     2.819085E+00_EB/),(/7,8/))
  
  SD2_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 1525-1700 CM-1
     2.653588E-01_EB, 1.712954E-01_EB, 1.458324E-01_EB, 1.336402E-01_EB, 1.497627E-01_EB, 6.752522E-01_EB, 1.211105E+00_EB, &
     1.719421E-01_EB, 9.991170E-02_EB, 8.707576E-02_EB, 9.851840E-02_EB, 1.045626E-01_EB, 1.257519E-01_EB, 1.729420E-01_EB, &
     9.561175E-02_EB, 1.214100E-01_EB, 1.009499E-01_EB, 8.557814E-02_EB, 1.061461E-01_EB, 5.279653E-02_EB, 1.371839E+00_EB, &
     5.679817E-02_EB, 1.064996E-01_EB, 8.829344E-02_EB, 5.535303E-02_EB, 8.540729E-02_EB, 6.869857E-02_EB, 2.390774E+00_EB, &
     2.299715E-02_EB, 5.668754E-02_EB, 4.611447E-02_EB, 2.942043E-02_EB, 5.283754E-02_EB, 1.368461E-02_EB, 8.704598E-02_EB, &
     9.994737E-04_EB, 6.379671E-03_EB, 5.806672E-03_EB, 3.377512E-03_EB, 2.456039E-02_EB, 4.999823E-04_EB, 1.518390E-02_EB, &
     6.504118E-04_EB, 6.258215E-04_EB, 6.777009E-04_EB, 5.831397E-04_EB, 1.258943E-02_EB, 6.613745E-04_EB, 3.926253E-03_EB, &
     4.699306E-04_EB, 4.696984E-04_EB, 4.697130E-04_EB, 4.702606E-04_EB, 4.699096E-04_EB, 4.682572E-04_EB, &
     4.691749E-04_EB/),(/7,8/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_CH3OH(N_TEMP_CH3OH,24))
  
  ! BAND #2: 1125 CM-1 - 1700 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.5713 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 1125-1300 CM-1
     2.036126E-02_EB, 2.341570E-01_EB, 2.115157E-01_EB, 3.745991E-02_EB, 2.969993E-01_EB, 6.950924E-04_EB, 1.090294E-04_EB, &
     4.318091E-02_EB, 3.213276E+00_EB, 1.818315E-01_EB, 6.478423E-02_EB, 7.314703E-01_EB, 8.584914E-04_EB, 1.822575E-04_EB, &
     1.945666E-02_EB, 1.155771E+00_EB, 8.508445E-01_EB, 1.670850E-01_EB, 2.280568E+00_EB, 4.205261E-03_EB, 3.102895E-04_EB, &
     7.511583E-01_EB, 6.453461E+00_EB, 3.392847E+00_EB, 1.506522E+00_EB, 5.522265E+00_EB, 1.714255E-02_EB, 3.985647E-04_EB, &
     1.205702E+00_EB, 9.217844E+00_EB, 2.021655E+00_EB, 2.387126E+00_EB, 4.807045E+00_EB, 2.526665E-02_EB, 3.559097E-04_EB, &
     2.746003E+00_EB, 9.503086E+00_EB, 2.328040E+00_EB, 4.485330E+00_EB, 9.413318E+00_EB, 1.788133E-02_EB, 4.729684E-04_EB, &
     7.531540E+00_EB, 1.737151E+01_EB, 3.326148E+00_EB, 8.198222E+00_EB, 1.532668E+01_EB, 4.522148E-02_EB, 4.549597E-04_EB, &
     2.576303E+01_EB, 2.203775E+01_EB, 4.437035E+00_EB, 9.898502E+00_EB, 1.872281E+01_EB, 3.906498E-02_EB, &
     4.821874E-04_EB/),(/7,8/))
  
  GAMMAD2_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 1325-1500 CM-1
     6.250399E+01_EB, 3.711813E+01_EB, 4.149099E+00_EB, 1.502754E+01_EB, 1.389076E+01_EB, 4.031216E-02_EB, 5.674173E-04_EB, &
     7.999962E+01_EB, 5.252798E+01_EB, 1.230226E+01_EB, 1.351493E+01_EB, 1.576973E+01_EB, 3.751308E-02_EB, 4.823587E-04_EB, &
     6.092331E+01_EB, 3.805490E+01_EB, 1.271376E+01_EB, 1.115539E+01_EB, 1.762731E+01_EB, 7.120929E-02_EB, 2.295392E-04_EB, &
     3.106485E+01_EB, 2.102259E+01_EB, 4.586676E+00_EB, 6.831440E+00_EB, 9.421920E+00_EB, 1.574921E-02_EB, 2.188143E-04_EB, &
     1.678441E+01_EB, 9.704951E+00_EB, 2.972980E+00_EB, 2.004021E+00_EB, 5.086223E+00_EB, 6.963213E-03_EB, 1.950359E-04_EB, &
     9.295170E+00_EB, 9.919157E+00_EB, 2.792442E+00_EB, 3.932078E+00_EB, 5.121134E+00_EB, 9.304463E-03_EB, 2.472872E-04_EB, &
     8.180857E+00_EB, 9.293708E+00_EB, 2.066943E+00_EB, 4.076114E+00_EB, 4.294751E+00_EB, 2.727838E-02_EB, 4.265301E-04_EB, &
     8.289335E-02_EB, 2.291116E+00_EB, 8.466376E-01_EB, 1.801527E-01_EB, 1.505300E+00_EB, 1.548374E-03_EB, &
     2.852002E-04_EB/),(/7,8/))
  
  GAMMAD2_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 1525-1700 CM-1
     7.067783E-02_EB, 1.479749E+00_EB, 5.187742E-01_EB, 1.372559E-01_EB, 7.400371E-01_EB, 2.949015E-04_EB, 4.953459E-04_EB, &
     1.628627E-02_EB, 8.476648E-01_EB, 2.184428E-01_EB, 1.854959E-02_EB, 1.335169E-01_EB, 2.574359E-04_EB, 6.601786E-04_EB, &
     1.778534E-02_EB, 2.130514E-01_EB, 1.040976E-01_EB, 1.031289E-01_EB, 1.600152E+00_EB, 2.537685E-02_EB, 1.933608E-05_EB, &
     6.344549E-03_EB, 1.274538E-01_EB, 5.382005E-02_EB, 6.261896E-01_EB, 4.338573E-01_EB, 3.757499E-01_EB, 6.947226E-05_EB, &
     2.030029E-04_EB, 6.186341E-02_EB, 2.709645E-02_EB, 5.640946E-02_EB, 3.663756E-01_EB, 2.286239E-02_EB, 1.077139E-04_EB, &
     8.095102E-04_EB, 6.039758E-03_EB, 3.546569E-03_EB, 3.077717E-03_EB, 3.777927E-01_EB, 4.051839E-04_EB, 8.507547E-03_EB, &
     4.920711E-04_EB, 4.753092E-04_EB, 5.221505E-04_EB, 4.531404E-04_EB, 1.775124E-01_EB, 5.028014E-04_EB, 4.011702E-03_EB, &
     3.748583E-04_EB, 3.747168E-04_EB, 3.744971E-04_EB, 3.751403E-04_EB, 3.748851E-04_EB, 3.734005E-04_EB, &
     3.740585E-04_EB/),(/7,8/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_CH3OH(N_TEMP_CH3OH,26))
  
  ! BAND #3: 2600 CM-1 - 3225 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.0044 %
  
  SD3_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 2600-2775 CM-1
     6.834504E-04_EB, 6.520912E-04_EB, 6.293446E-04_EB, 7.602714E-04_EB, 6.782192E-04_EB, 5.546971E-04_EB, 4.991362E-04_EB, &
     9.382971E-04_EB, 9.146731E-04_EB, 9.400615E-04_EB, 9.494733E-04_EB, 9.709058E-04_EB, 8.544557E-04_EB, 1.012754E-01_EB, &
     8.700561E-04_EB, 8.964927E-04_EB, 9.462079E-04_EB, 7.740041E-04_EB, 9.999124E-04_EB, 3.951283E-03_EB, 5.295951E-02_EB, &
     9.087410E-04_EB, 8.586469E-04_EB, 1.061772E-03_EB, 9.199452E-04_EB, 7.793155E-04_EB, 2.101256E-02_EB, 1.014346E-01_EB, &
     9.791713E-04_EB, 7.304428E-04_EB, 3.244007E-03_EB, 2.026606E-03_EB, 4.855695E-03_EB, 6.777374E-02_EB, 6.074970E-01_EB, &
     9.694186E-03_EB, 8.820685E-03_EB, 2.014998E-02_EB, 1.559350E-02_EB, 2.203169E-02_EB, 1.271102E-01_EB, 1.115356E+00_EB, &
     7.029245E-02_EB, 5.091559E-02_EB, 6.271267E-02_EB, 6.250553E-02_EB, 7.985290E-02_EB, 2.008186E-01_EB, 7.823174E-01_EB, &
     1.832465E-01_EB, 1.685849E-01_EB, 1.767557E-01_EB, 1.929714E-01_EB, 2.182618E-01_EB, 3.370225E-01_EB, &
     9.170478E-01_EB/),(/7,8/))
  
  SD3_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 2800-2975 CM-1
     6.431025E-01_EB, 5.822856E-01_EB, 5.579032E-01_EB, 5.709313E-01_EB, 5.423547E-01_EB, 5.399764E-01_EB, 1.804940E+00_EB, &
     1.616617E+00_EB, 1.106968E+00_EB, 9.574460E-01_EB, 9.001676E-01_EB, 7.635145E-01_EB, 6.273449E-01_EB, 2.500203E+00_EB, &
     2.054107E+00_EB, 1.363124E+00_EB, 1.172320E+00_EB, 1.104390E+00_EB, 9.352928E-01_EB, 7.059677E-01_EB, 1.705210E+00_EB, &
     2.373043E+00_EB, 1.746858E+00_EB, 1.529178E+00_EB, 1.473170E+00_EB, 1.254399E+00_EB, 9.322847E-01_EB, 2.050430E+00_EB, &
     2.371351E+00_EB, 1.769945E+00_EB, 1.583483E+00_EB, 1.552549E+00_EB, 1.370339E+00_EB, 1.037337E+00_EB, 2.789724E+00_EB, &
     3.792115E+00_EB, 2.516241E+00_EB, 2.137945E+00_EB, 2.022427E+00_EB, 1.666670E+00_EB, 1.107211E+00_EB, 3.100678E+00_EB, &
     4.157174E+00_EB, 2.644308E+00_EB, 2.220834E+00_EB, 2.075201E+00_EB, 1.691865E+00_EB, 1.086754E+00_EB, 2.915371E+00_EB, &
     4.342764E+00_EB, 2.822870E+00_EB, 2.375959E+00_EB, 2.221659E+00_EB, 1.802922E+00_EB, 1.138893E+00_EB, &
     2.903207E+00_EB/),(/7,8/))
  
  SD3_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 3000-3175 CM-1
     2.739997E+00_EB, 1.931251E+00_EB, 1.703000E+00_EB, 1.624103E+00_EB, 1.381073E+00_EB, 9.258508E-01_EB, 2.377676E+00_EB, &
     1.657562E+00_EB, 1.227931E+00_EB, 1.089977E+00_EB, 1.050288E+00_EB, 9.156831E-01_EB, 6.349324E-01_EB, 1.478204E+00_EB, &
     7.792319E-01_EB, 6.776318E-01_EB, 6.362424E-01_EB, 6.325745E-01_EB, 5.728339E-01_EB, 4.149136E-01_EB, 8.597464E-01_EB, &
     2.993662E-01_EB, 3.092377E-01_EB, 3.217485E-01_EB, 3.267839E-01_EB, 3.261281E-01_EB, 2.499769E-01_EB, 5.435448E-01_EB, &
     7.556116E-02_EB, 1.013165E-01_EB, 1.286472E-01_EB, 1.311502E-01_EB, 1.509531E-01_EB, 1.344009E-01_EB, 4.354789E-01_EB, &
     2.499115E-02_EB, 1.505850E-02_EB, 4.570610E-02_EB, 3.921605E-02_EB, 5.480372E-02_EB, 5.712297E-02_EB, 9.435909E-01_EB, &
     4.505936E-03_EB, 1.692846E-03_EB, 7.624509E-03_EB, 2.230769E-03_EB, 1.179331E-02_EB, 1.334128E-02_EB, 4.731345E-01_EB, &
     8.990606E-04_EB, 7.925739E-04_EB, 1.307211E-03_EB, 8.823890E-04_EB, 3.090415E-03_EB, 1.825819E-03_EB, &
     5.903177E-03_EB/),(/7,8/))
  
  SD3_CH3OH(1:7,25:26) = RESHAPE((/ &  ! 3200-3225 CM-1
     6.930486E-04_EB, 6.167383E-04_EB, 6.581892E-04_EB, 7.470153E-04_EB, 6.327299E-04_EB, 5.451720E-04_EB, 6.008264E-04_EB, &
     4.699306E-04_EB, 4.696984E-04_EB, 4.697130E-04_EB, 4.702606E-04_EB, 4.699096E-04_EB, 4.682572E-04_EB, &
     4.691749E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_CH3OH(N_TEMP_CH3OH,26))
  
  ! BAND #3: 2600 CM-1 - 3225 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.0044 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 2600-2775 CM-1
     5.383708E-04_EB, 5.150011E-04_EB, 4.711666E-04_EB, 5.877341E-04_EB, 5.325580E-04_EB, 4.526624E-04_EB, 3.953361E-04_EB, &
     6.469173E-04_EB, 6.295204E-04_EB, 6.229213E-04_EB, 6.140709E-04_EB, 7.108644E-04_EB, 5.982461E-04_EB, 3.920520E-04_EB, &
     6.148513E-04_EB, 6.637986E-04_EB, 6.390155E-04_EB, 5.400884E-04_EB, 6.784448E-04_EB, 3.991532E-03_EB, 4.998359E-03_EB, &
     6.548999E-04_EB, 6.227472E-04_EB, 7.730036E-04_EB, 6.279630E-04_EB, 5.750964E-04_EB, 8.889816E-02_EB, 4.610782E-03_EB, &
     7.658461E-04_EB, 5.677730E-04_EB, 3.744908E-03_EB, 1.790178E-03_EB, 4.848659E-03_EB, 5.816371E-02_EB, 7.773551E-04_EB, &
     9.155583E-03_EB, 4.468866E-02_EB, 7.356051E-02_EB, 9.249021E-03_EB, 4.330986E-02_EB, 7.759327E-01_EB, 1.031984E-03_EB, &
     3.240618E-01_EB, 4.813829E-01_EB, 2.376949E-01_EB, 9.693334E-02_EB, 1.522188E-01_EB, 1.138999E+00_EB, 2.244386E-03_EB, &
     1.958993E+00_EB, 1.883288E+00_EB, 9.427313E-01_EB, 2.032231E+00_EB, 2.865213E+00_EB, 8.627391E+00_EB, &
     2.968586E-03_EB/),(/7,8/))
  
  GAMMAD3_CH3OH(1:7,9:16) = RESHAPE((/ &  ! 2800-2975 CM-1
     5.408634E+01_EB, 4.260803E+01_EB, 1.570059E+01_EB, 2.520800E+01_EB, 3.812191E+01_EB, 3.643507E+01_EB, 1.949224E-03_EB, &
     8.000000E+01_EB, 6.880853E+01_EB, 4.378312E+01_EB, 6.230866E+01_EB, 5.732026E+01_EB, 3.975357E+01_EB, 1.722003E-03_EB, &
     7.999962E+01_EB, 6.881387E+01_EB, 6.160988E+01_EB, 6.230878E+01_EB, 5.734000E+01_EB, 4.829424E+01_EB, 3.362841E-03_EB, &
     7.999999E+01_EB, 6.881386E+01_EB, 6.505766E+01_EB, 6.230889E+01_EB, 5.735690E+01_EB, 4.829419E+01_EB, 3.574523E-03_EB, &
     7.999997E+01_EB, 6.881383E+01_EB, 6.505113E+01_EB, 6.230881E+01_EB, 5.735699E+01_EB, 4.829428E+01_EB, 2.799128E-03_EB, &
     7.999848E+01_EB, 6.881323E+01_EB, 6.505412E+01_EB, 6.230885E+01_EB, 5.735695E+01_EB, 4.829421E+01_EB, 2.167350E-03_EB, &
     7.999924E+01_EB, 6.881280E+01_EB, 6.505343E+01_EB, 6.230882E+01_EB, 5.735689E+01_EB, 4.829429E+01_EB, 2.206560E-03_EB, &
     7.999955E+01_EB, 6.881390E+01_EB, 6.505410E+01_EB, 6.230862E+01_EB, 5.735674E+01_EB, 4.829421E+01_EB, &
     2.226025E-03_EB/),(/7,8/))
  
  GAMMAD3_CH3OH(1:7,17:24) = RESHAPE((/ &  ! 3000-3175 CM-1
     8.000000E+01_EB, 6.881380E+01_EB, 6.505082E+01_EB, 6.230881E+01_EB, 5.735619E+01_EB, 4.829420E+01_EB, 2.316390E-03_EB, &
     7.999999E+01_EB, 6.881373E+01_EB, 4.658312E+01_EB, 6.230870E+01_EB, 5.735696E+01_EB, 4.160676E+01_EB, 1.752164E-03_EB, &
     7.996301E+01_EB, 6.881042E+01_EB, 7.394547E+00_EB, 3.799419E+01_EB, 2.909775E+01_EB, 1.888125E+01_EB, 1.732017E-03_EB, &
     4.261947E+00_EB, 5.499787E+00_EB, 4.853050E-01_EB, 6.858640E+00_EB, 8.915265E+00_EB, 4.488725E+00_EB, 1.039419E-03_EB, &
     3.182069E-01_EB, 2.435677E-01_EB, 7.167320E-02_EB, 3.943245E-01_EB, 1.078816E+00_EB, 5.812817E-01_EB, 5.867531E-04_EB, &
     4.059798E-01_EB, 7.132746E-03_EB, 2.110640E-02_EB, 1.885784E-02_EB, 1.959525E+00_EB, 1.180753E-01_EB, 1.052399E-04_EB, &
     6.304409E-03_EB, 7.479753E-04_EB, 2.811545E-03_EB, 1.771085E-03_EB, 3.653146E-01_EB, 6.263784E-03_EB, 5.856904E-05_EB, &
     6.352137E-04_EB, 5.913538E-04_EB, 7.804488E-04_EB, 6.507595E-04_EB, 5.533275E-03_EB, 5.897126E-04_EB, &
     1.359107E-03_EB/),(/7,8/))
  
  GAMMAD3_CH3OH(1:7,25:26) = RESHAPE((/ &  ! 3200-3225 CM-1
     5.327466E-04_EB, 4.880598E-04_EB, 4.928840E-04_EB, 6.016314E-04_EB, 5.375037E-04_EB, 4.225641E-04_EB, 4.726310E-04_EB, &
     3.748583E-04_EB, 3.747168E-04_EB, 3.744971E-04_EB, 3.751403E-04_EB, 3.748851E-04_EB, 3.734005E-04_EB, &
     3.740585E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD4_CH3OH(N_TEMP_CH3OH,14))
  
  ! BAND #4: 3525 CM-1 - 3850 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.52389 %
  
  SD4_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 3525-3700 CM-1
     6.712614E-04_EB, 6.207569E-04_EB, 6.722895E-04_EB, 6.499733E-04_EB, 6.502738E-04_EB, 6.875865E-04_EB, 5.963773E-04_EB, &
     8.659465E-04_EB, 7.116916E-03_EB, 2.432786E-03_EB, 5.672617E-03_EB, 1.138304E-03_EB, 8.423409E-04_EB, 3.290015E-02_EB, &
     1.352414E-02_EB, 3.203665E-02_EB, 2.755663E-02_EB, 2.769632E-02_EB, 2.312063E-02_EB, 5.525230E-02_EB, 2.986065E-02_EB, &
     4.836204E-02_EB, 5.823870E-02_EB, 5.880972E-02_EB, 6.018123E-02_EB, 6.237734E-02_EB, 6.647353E-02_EB, 7.540357E-02_EB, &
     2.393220E-01_EB, 2.245383E-01_EB, 2.030768E-01_EB, 2.229738E-01_EB, 2.012059E-01_EB, 1.546924E-01_EB, 9.432293E-02_EB, &
     8.391763E-01_EB, 5.928915E-01_EB, 4.976034E-01_EB, 4.745560E-01_EB, 3.784750E-01_EB, 2.223088E-01_EB, 1.157200E-01_EB, &
     1.156927E+00_EB, 6.735305E-01_EB, 5.357276E-01_EB, 4.781313E-01_EB, 3.584284E-01_EB, 1.968791E-01_EB, 6.758499E-02_EB, &
     1.214378E+00_EB, 7.022996E-01_EB, 5.366277E-01_EB, 4.875065E-01_EB, 3.656436E-01_EB, 2.096662E-01_EB, &
     6.457647E-01_EB/),(/7,8/))
  
  SD4_CH3OH(1:7,9:14) = RESHAPE((/ &  ! 3725-3850 CM-1
     7.394573E-01_EB, 5.605469E-01_EB, 4.645577E-01_EB, 4.379377E-01_EB, 3.556244E-01_EB, 2.353483E-01_EB, 1.093933E+00_EB, &
     1.627441E-01_EB, 1.282880E-01_EB, 1.200820E-01_EB, 1.269546E-01_EB, 1.078069E-01_EB, 1.197911E-01_EB, 5.594711E-02_EB, &
     5.446422E-02_EB, 6.975799E-02_EB, 5.570485E-02_EB, 2.768076E-02_EB, 2.935100E-02_EB, 4.703585E-02_EB, 5.054507E-01_EB, &
     5.503798E-03_EB, 3.001374E-02_EB, 1.548540E-02_EB, 1.507541E-03_EB, 3.052107E-03_EB, 1.675834E-02_EB, 3.138134E-02_EB, &
     6.972876E-04_EB, 3.117091E-03_EB, 2.511646E-03_EB, 6.126449E-04_EB, 6.508959E-04_EB, 6.472961E-04_EB, 6.127914E-04_EB, &
     4.699306E-04_EB, 4.696984E-04_EB, 4.697130E-04_EB, 4.702606E-04_EB, 4.699096E-04_EB, 4.682572E-04_EB, &
     4.691749E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD4_CH3OH(N_TEMP_CH3OH,14))
  
  ! BAND #4: 3525 CM-1 - 3850 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.52389 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD4_CH3OH(1:7,1:8) = RESHAPE((/ &  ! 3525-3700 CM-1
     5.122880E-04_EB, 4.870888E-04_EB, 5.202731E-04_EB, 4.858325E-04_EB, 4.894141E-04_EB, 5.234560E-04_EB, 4.739454E-04_EB, &
     6.149338E-04_EB, 1.383613E-01_EB, 1.894640E-03_EB, 1.652906E-01_EB, 1.023597E-03_EB, 6.016220E-04_EB, 4.058911E-03_EB, &
     3.510951E-01_EB, 4.231322E-02_EB, 2.094183E-02_EB, 1.756637E-01_EB, 8.897080E-02_EB, 1.613316E-04_EB, 2.603264E-03_EB, &
     4.348848E-01_EB, 1.997004E+00_EB, 9.906747E-02_EB, 6.264650E-02_EB, 3.368153E-02_EB, 5.344243E-03_EB, 1.024940E-02_EB, &
     6.050885E+00_EB, 5.037136E+00_EB, 1.610741E+00_EB, 9.196821E-01_EB, 3.334769E+00_EB, 1.286001E-01_EB, 1.852205E-02_EB, &
     7.999493E+01_EB, 4.970642E+01_EB, 1.283805E+01_EB, 1.192477E+01_EB, 8.469410E+00_EB, 7.793742E-01_EB, 2.887610E-03_EB, &
     7.999963E+01_EB, 6.880115E+01_EB, 1.309018E+01_EB, 1.179133E+01_EB, 1.455179E+01_EB, 1.751987E-01_EB, 5.542345E-03_EB, &
     7.999935E+01_EB, 6.881382E+01_EB, 1.685368E+01_EB, 1.646915E+01_EB, 1.087273E+01_EB, 1.258692E+00_EB, &
     2.305314E-04_EB/),(/7,8/))
  
  GAMMAD4_CH3OH(1:7,9:14) = RESHAPE((/ &  ! 3725-3850 CM-1
     6.925146E+01_EB, 3.835584E+01_EB, 7.883505E+00_EB, 1.488897E+01_EB, 1.369263E+01_EB, 1.664808E+00_EB, 3.295444E-04_EB, &
     5.002891E-01_EB, 7.416100E-01_EB, 2.838529E-01_EB, 3.020566E-01_EB, 1.523043E+00_EB, 1.133794E-03_EB, 4.486303E-03_EB, &
     6.823303E-03_EB, 4.678797E-01_EB, 9.198815E-02_EB, 1.770170E-01_EB, 1.483378E-01_EB, 1.869665E-01_EB, 2.436489E-05_EB, &
     4.419159E-03_EB, 3.220528E-01_EB, 2.310260E-01_EB, 1.151947E-03_EB, 2.324707E-03_EB, 6.947554E-03_EB, 1.285540E-04_EB, &
     5.281954E-04_EB, 2.447127E-03_EB, 2.223998E-03_EB, 4.730215E-04_EB, 5.179966E-04_EB, 4.804723E-04_EB, 4.227659E-04_EB, &
     3.748583E-04_EB, 3.747168E-04_EB, 3.744971E-04_EB, 3.751403E-04_EB, 3.748851E-04_EB, 3.734005E-04_EB, &
     3.740585E-04_EB/),(/7,6/))
  
  !-------------------------MMA DATA-------------------
  
  
  ! THERE ARE 6 BANDS FOR MMA
  
  ! BAND #1: 750 CM-1 - 880 CM-1
  ! BAND #2: 875 CM-1 - 1055 CM-1
  ! BAND #3: 1050 CM-1 - 1275 CM-1
  ! BAND #4: 1250 CM-1 - 1575 CM-1
  ! BAND #5: 1550 CM-1 - 1975 CM-1
  ! BAND #6: 2650 CM-1 - 3275 CM-1
  
  ALLOCATE(SD_C5H8O2_TEMP(N_TEMP_C5H8O2))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR MMA ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C5H8O2(N_BAND_C5H8O2,3))
  ALLOCATE(BE_C5H8O2(N_BAND_C5H8O2))
  
  OM_BND_C5H8O2 = RESHAPE((/ &
     750._EB,  875._EB, 1050._EB, 1250._EB, 1550._EB, 2650._EB, &
     880._EB, 1055._EB, 1275._EB, 1575._EB, 1975._EB, 3275._EB, &
     5._EB, 5._EB, 5._EB, 25._EB, 25._EB, 25._EB/),(/N_BAND_C5H8O2,3/))
  
  SD_C5H8O2_TEMP = (/ &
     297._EB, 396._EB, 441._EB, 483._EB, 597._EB, 803._EB,&
     1014._EB/)
  
  BE_C5H8O2 = (/ &
     1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C5H8O2(N_TEMP_C5H8O2,27))
  
  ! BAND #1: 750 CM-1 - 880 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 8.0046 %
  
  SD1_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 750-785 CM-1
     6.713660E-04_EB, 5.825251E-04_EB, 7.916094E-04_EB, 6.543173E-04_EB, 6.421674E-04_EB, 6.087532E-04_EB, 7.107910E-04_EB, &
     9.848065E-04_EB, 9.607899E-04_EB, 7.994027E-04_EB, 1.090851E-03_EB, 1.087202E-03_EB, 7.734671E-04_EB, 9.284135E-04_EB, &
     9.110967E-04_EB, 7.183894E-04_EB, 8.010414E-04_EB, 1.063396E-03_EB, 1.000702E-03_EB, 6.657414E-04_EB, 6.127113E-04_EB, &
     8.267669E-04_EB, 9.315188E-04_EB, 8.290909E-04_EB, 7.969467E-04_EB, 8.913743E-04_EB, 6.855529E-04_EB, 7.046623E-04_EB, &
     1.042663E-03_EB, 1.043538E-03_EB, 8.872311E-04_EB, 8.694322E-04_EB, 9.329158E-04_EB, 9.772556E-04_EB, 7.458198E-04_EB, &
     1.006578E-03_EB, 7.209128E-04_EB, 1.019682E-03_EB, 7.712991E-04_EB, 3.187441E-02_EB, 5.248309E-02_EB, 8.138133E-04_EB, &
     7.585006E-04_EB, 8.285426E-04_EB, 7.850058E-04_EB, 7.514949E-04_EB, 2.435151E+00_EB, 2.382451E-01_EB, 7.995357E-04_EB, &
     5.346436E-03_EB, 1.695093E-03_EB, 1.005551E-02_EB, 1.807196E-02_EB, 4.893034E+00_EB, 1.072109E+00_EB, &
     8.263934E-04_EB/),(/7,8/))
  
  SD1_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 790-825 CM-1
     7.889654E-02_EB, 6.932866E-02_EB, 6.943889E-02_EB, 1.657322E-01_EB, 4.820655E+00_EB, 1.595563E+00_EB, 6.604864E-04_EB, &
     2.859272E-01_EB, 2.060379E-01_EB, 1.784774E-01_EB, 2.655142E-01_EB, 5.069557E+00_EB, 1.587178E+00_EB, 8.491025E-04_EB, &
     6.960576E-01_EB, 3.989489E-01_EB, 3.440851E-01_EB, 4.569709E-01_EB, 4.118131E+00_EB, 7.958553E-01_EB, 7.688756E-04_EB, &
     1.250951E+00_EB, 6.520021E-01_EB, 6.089583E-01_EB, 6.456713E-01_EB, 2.261652E+00_EB, 7.908891E-01_EB, 8.388555E-04_EB, &
     2.208710E+00_EB, 1.110849E+00_EB, 1.035737E+00_EB, 1.049217E+00_EB, 1.084162E+00_EB, 7.448165E-01_EB, 1.121289E-03_EB, &
     3.745705E+00_EB, 1.437198E+00_EB, 1.241512E+00_EB, 1.206161E+00_EB, 8.198992E-01_EB, 7.316076E-01_EB, 7.825346E-04_EB, &
     3.469611E+00_EB, 1.274191E+00_EB, 1.123297E+00_EB, 1.063600E+00_EB, 7.020966E-01_EB, 8.989672E-01_EB, 7.836122E-04_EB, &
     3.387588E+00_EB, 1.219143E+00_EB, 1.110425E+00_EB, 9.818704E-01_EB, 6.253886E-01_EB, 1.450947E+00_EB, &
     8.923055E-04_EB/),(/7,8/))
  
  SD1_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 830-865 CM-1
     2.650263E+00_EB, 9.577831E-01_EB, 8.753717E-01_EB, 8.295316E-01_EB, 6.934556E-01_EB, 1.431367E+00_EB, 8.664361E-04_EB, &
     1.730390E+00_EB, 6.490013E-01_EB, 6.546973E-01_EB, 5.810689E-01_EB, 2.534337E+00_EB, 7.747536E-01_EB, 7.994517E-04_EB, &
     1.002821E+00_EB, 3.608083E-01_EB, 3.892233E-01_EB, 3.747237E-01_EB, 6.259059E+00_EB, 1.624771E+00_EB, 7.025073E-04_EB, &
     4.114065E-01_EB, 1.202763E-01_EB, 1.380148E-01_EB, 2.829570E-01_EB, 7.146988E+00_EB, 1.774384E+00_EB, 9.127284E-04_EB, &
     1.274057E-01_EB, 9.521312E-04_EB, 7.626901E-04_EB, 5.309748E-02_EB, 6.530803E+00_EB, 3.950028E-01_EB, 8.260701E-04_EB, &
     3.101890E-02_EB, 9.960440E-04_EB, 1.450745E-03_EB, 8.889566E-04_EB, 4.823124E+00_EB, 5.607234E-02_EB, 1.289121E-03_EB, &
     1.815363E-02_EB, 6.716907E-04_EB, 1.134173E-03_EB, 7.672105E-04_EB, 2.305115E+00_EB, 1.215781E-02_EB, 9.963103E-03_EB, &
     1.671588E-02_EB, 9.534992E-04_EB, 7.842672E-04_EB, 1.050185E-03_EB, 8.279107E-04_EB, 9.473562E-04_EB, &
     1.520855E-02_EB/),(/7,8/))
  
  SD1_C5H8O2(1:7,25:27) = RESHAPE((/ &  ! 870-880 CM-1
     3.388305E-02_EB, 8.968940E-04_EB, 9.267088E-04_EB, 1.004537E-03_EB, 9.822602E-04_EB, 8.968929E-04_EB, 3.122362E-02_EB, &
     2.663964E-02_EB, 7.688918E-04_EB, 6.407620E-04_EB, 5.722080E-04_EB, 9.499110E-04_EB, 6.115005E-04_EB, 3.351275E-02_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,3/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C5H8O2(N_TEMP_C5H8O2,27))
  
  ! BAND #1: 750 CM-1 - 880 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 8.0046 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 750-785 CM-1
     4.881844E-04_EB, 4.346454E-04_EB, 5.958338E-04_EB, 4.571093E-04_EB, 4.822105E-04_EB, 4.530250E-04_EB, 5.750719E-04_EB, &
     6.727325E-04_EB, 6.267647E-04_EB, 5.477130E-04_EB, 7.657452E-04_EB, 1.077214E-03_EB, 5.499367E-04_EB, 6.460319E-04_EB, &
     5.864217E-04_EB, 5.127786E-04_EB, 5.824402E-04_EB, 8.990885E-04_EB, 8.469550E-04_EB, 5.075038E-04_EB, 5.043115E-04_EB, &
     6.108399E-04_EB, 7.428392E-04_EB, 5.525420E-04_EB, 5.867387E-04_EB, 7.082636E-04_EB, 5.889027E-04_EB, 4.893654E-04_EB, &
     7.434780E-04_EB, 6.504896E-04_EB, 6.589451E-04_EB, 6.802512E-04_EB, 7.417022E-04_EB, 7.262805E-04_EB, 5.511207E-04_EB, &
     6.356817E-04_EB, 5.339199E-04_EB, 7.935459E-04_EB, 4.886757E-04_EB, 2.583559E-03_EB, 3.792064E-03_EB, 6.024047E-04_EB, &
     5.106586E-04_EB, 5.822074E-04_EB, 5.456352E-04_EB, 5.195168E-04_EB, 1.249121E-04_EB, 2.441600E-03_EB, 6.419995E-04_EB, &
     8.911013E-04_EB, 1.366487E-03_EB, 7.184717E-03_EB, 1.764827E-01_EB, 2.574464E-04_EB, 1.205059E-03_EB, &
     5.689721E-04_EB/),(/7,8/))
  
  GAMMAD1_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 790-825 CM-1
     4.218735E-01_EB, 2.260530E-02_EB, 2.192833E-01_EB, 8.393035E-01_EB, 6.309253E-04_EB, 1.299978E-03_EB, 4.943829E-04_EB, &
     2.011501E+01_EB, 1.452133E-01_EB, 1.379684E+00_EB, 3.290149E+00_EB, 1.006802E-03_EB, 2.196075E-03_EB, 6.147171E-04_EB, &
     7.999647E+01_EB, 3.727151E-01_EB, 4.909546E+00_EB, 1.504204E-01_EB, 1.827877E-03_EB, 1.390294E-02_EB, 5.960009E-04_EB, &
     8.000000E+01_EB, 1.192733E+01_EB, 7.335305E+00_EB, 2.477027E+01_EB, 6.343012E-03_EB, 3.167933E-02_EB, 6.338454E-04_EB, &
     8.000000E+01_EB, 1.337438E+00_EB, 1.200630E+01_EB, 8.358805E-01_EB, 5.050388E-02_EB, 5.528025E-02_EB, 6.645315E-04_EB, &
     8.000000E+01_EB, 1.575943E+00_EB, 2.254763E+01_EB, 5.284652E-01_EB, 4.899995E-01_EB, 4.748211E-02_EB, 5.682371E-04_EB, &
     8.000000E+01_EB, 1.559461E+00_EB, 2.060048E+01_EB, 9.864427E-01_EB, 2.822989E+01_EB, 2.089522E-02_EB, 5.933048E-04_EB, &
     8.000000E+01_EB, 9.294253E-01_EB, 7.518592E-01_EB, 2.225028E+00_EB, 1.882489E+01_EB, 5.697081E-03_EB, &
     6.342437E-04_EB/),(/7,8/))
  
  GAMMAD1_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 830-865 CM-1
     8.000000E+01_EB, 5.595499E-01_EB, 7.229848E-01_EB, 4.663622E-01_EB, 4.280954E-02_EB, 3.407433E-03_EB, 7.293662E-04_EB, &
     7.999678E+01_EB, 5.297318E-01_EB, 1.408882E-01_EB, 5.990214E-01_EB, 2.104101E-03_EB, 5.806669E-03_EB, 5.977527E-04_EB, &
     8.000000E+01_EB, 2.382664E+00_EB, 5.857715E-02_EB, 2.596665E-01_EB, 5.172312E-04_EB, 1.035222E-03_EB, 5.002373E-04_EB, &
     5.199739E+01_EB, 2.075323E-01_EB, 1.580424E-02_EB, 9.101537E-03_EB, 3.465216E-04_EB, 4.105029E-04_EB, 6.238247E-04_EB, &
     2.523145E+00_EB, 7.869446E-04_EB, 6.466080E-04_EB, 5.984897E-03_EB, 2.719400E-04_EB, 9.547889E-04_EB, 6.744617E-04_EB, &
     3.144180E-01_EB, 6.967438E-04_EB, 8.338212E-04_EB, 6.247549E-04_EB, 2.369812E-04_EB, 2.160043E-01_EB, 1.146982E-03_EB, &
     3.556347E-01_EB, 5.790029E-04_EB, 9.280773E-04_EB, 6.140435E-04_EB, 1.166505E-04_EB, 4.285636E-03_EB, 1.647599E-01_EB, &
     9.611149E-01_EB, 6.993787E-04_EB, 6.536778E-04_EB, 6.470283E-04_EB, 6.300754E-04_EB, 6.508677E-04_EB, &
     8.394488E-01_EB/),(/7,8/))
  
  GAMMAD1_C5H8O2(1:7,25:27) = RESHAPE((/ &  ! 870-880 CM-1
     8.980663E-01_EB, 6.254884E-04_EB, 6.536611E-04_EB, 7.628907E-04_EB, 7.906692E-04_EB, 7.774676E-04_EB, 3.406991E+00_EB, &
     1.692425E-01_EB, 6.157700E-04_EB, 4.905940E-04_EB, 4.383728E-04_EB, 8.114566E-04_EB, 5.029333E-04_EB, 3.441873E-01_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,3/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C5H8O2(N_TEMP_C5H8O2,37))
  
  ! BAND #2: 875 CM-1 - 1055 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 16.2578 %
  
  SD2_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 875-910 CM-1
     2.556429E-02_EB, 6.579116E-04_EB, 7.354099E-04_EB, 7.413989E-04_EB, 6.278952E-04_EB, 6.133453E-04_EB, 4.127227E-02_EB, &
     4.274772E-02_EB, 9.965553E-04_EB, 9.559177E-04_EB, 9.609587E-04_EB, 7.244017E-04_EB, 9.125642E-04_EB, 1.253746E-01_EB, &
     4.062606E-02_EB, 8.758771E-04_EB, 7.717414E-04_EB, 1.136983E-03_EB, 8.565555E-02_EB, 8.384111E-01_EB, 8.119652E-01_EB, &
     1.969402E-02_EB, 8.690397E-04_EB, 8.197383E-04_EB, 1.021204E-01_EB, 7.942200E-01_EB, 1.336575E+00_EB, 1.034711E+00_EB, &
     6.150252E-03_EB, 8.420963E-04_EB, 7.601258E-03_EB, 5.822673E-01_EB, 1.849210E+00_EB, 2.267047E-01_EB, 6.054709E-01_EB, &
     5.255431E-03_EB, 3.759946E-03_EB, 6.674130E-02_EB, 1.933685E-01_EB, 4.747476E+00_EB, 3.382479E-01_EB, 2.717558E-01_EB, &
     6.508425E-02_EB, 7.385905E-02_EB, 1.516138E-01_EB, 2.231123E-01_EB, 3.585642E+00_EB, 4.915855E-01_EB, 2.578738E-01_EB, &
     2.660815E-01_EB, 2.584587E-01_EB, 3.361944E-01_EB, 4.729659E-01_EB, 4.590394E+00_EB, 7.118124E-01_EB, &
     2.680924E-01_EB/),(/7,8/))
  
  SD2_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 915-950 CM-1
     7.131926E-01_EB, 5.670265E-01_EB, 5.731113E-01_EB, 6.713483E-01_EB, 5.036802E+00_EB, 1.022991E+00_EB, 2.779647E-01_EB, &
     1.616994E+00_EB, 1.062612E+00_EB, 9.571218E-01_EB, 9.882622E-01_EB, 4.253259E+00_EB, 9.880129E-01_EB, 3.040041E-01_EB, &
     3.093637E+00_EB, 1.592723E+00_EB, 1.358023E+00_EB, 1.283095E+00_EB, 2.191786E+00_EB, 8.168738E-01_EB, 3.592899E-01_EB, &
     4.490720E+00_EB, 2.020538E+00_EB, 1.689196E+00_EB, 1.592450E+00_EB, 1.670002E+00_EB, 9.479666E-01_EB, 4.149322E-01_EB, &
     5.933235E+00_EB, 2.516838E+00_EB, 2.089816E+00_EB, 1.959977E+00_EB, 1.677729E+00_EB, 1.102576E+00_EB, 4.329370E-01_EB, &
     7.889794E+00_EB, 2.918784E+00_EB, 2.348617E+00_EB, 2.059360E+00_EB, 1.457291E+00_EB, 9.460046E-01_EB, 4.177430E-01_EB, &
     5.687576E+00_EB, 2.199276E+00_EB, 1.750801E+00_EB, 1.589524E+00_EB, 9.841957E-01_EB, 7.638453E-01_EB, 4.276039E-01_EB, &
     3.912971E+00_EB, 1.521382E+00_EB, 1.199146E+00_EB, 1.132591E+00_EB, 7.312452E-01_EB, 5.627116E-01_EB, &
     4.340964E-01_EB/),(/7,8/))
  
  SD2_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 955-990 CM-1
     2.475675E+00_EB, 1.047082E+00_EB, 8.418699E-01_EB, 7.489753E-01_EB, 5.673221E-01_EB, 3.884845E-01_EB, 4.323566E-01_EB, &
     1.320393E+00_EB, 6.735843E-01_EB, 5.433291E-01_EB, 5.032234E-01_EB, 1.017197E+00_EB, 2.871344E-01_EB, 4.412980E-01_EB, &
     5.592797E-01_EB, 4.019616E-01_EB, 3.047795E-01_EB, 3.003325E-01_EB, 2.137201E+00_EB, 2.538634E-01_EB, 4.343141E-01_EB, &
     2.669833E-01_EB, 2.361810E-01_EB, 1.839138E-01_EB, 1.867551E-01_EB, 2.802026E+00_EB, 2.467341E-01_EB, 8.431414E-01_EB, &
     3.073555E-01_EB, 1.587138E-01_EB, 1.753897E-01_EB, 1.623549E-01_EB, 2.391695E+00_EB, 2.295551E-01_EB, 1.916065E+00_EB, &
     5.710281E-01_EB, 2.449444E-01_EB, 2.284392E-01_EB, 2.247888E-01_EB, 2.482041E+00_EB, 2.586464E-01_EB, 2.918096E+00_EB, &
     8.249745E-01_EB, 3.134360E-01_EB, 2.982082E-01_EB, 2.831453E-01_EB, 1.314234E+00_EB, 3.428023E-01_EB, 2.320833E+00_EB, &
     9.299117E-01_EB, 3.934637E-01_EB, 3.941485E-01_EB, 4.276205E-01_EB, 6.380472E-01_EB, 3.539805E-01_EB, &
     1.717216E+00_EB/),(/7,8/))
  
  SD2_C5H8O2(1:7,25:32) = RESHAPE((/ &  ! 995-1030 CM-1
     1.174651E+00_EB, 5.076500E-01_EB, 5.123310E-01_EB, 5.072349E-01_EB, 6.017282E-01_EB, 4.040867E-01_EB, 9.071058E-01_EB, &
     1.220989E+00_EB, 6.322818E-01_EB, 6.487477E-01_EB, 6.488986E-01_EB, 5.856188E-01_EB, 4.402415E-01_EB, 6.313728E-01_EB, &
     1.342002E+00_EB, 7.952593E-01_EB, 7.945733E-01_EB, 8.003597E-01_EB, 7.389281E-01_EB, 4.724643E-01_EB, 1.867048E-01_EB, &
     2.059673E+00_EB, 1.016101E+00_EB, 9.573528E-01_EB, 9.061740E-01_EB, 6.905226E-01_EB, 5.789912E-01_EB, 1.181913E-01_EB, &
     2.708834E+00_EB, 1.261292E+00_EB, 1.056622E+00_EB, 9.704385E-01_EB, 7.470068E-01_EB, 3.592001E-01_EB, 1.004398E-01_EB, &
     3.415071E+00_EB, 1.258792E+00_EB, 1.017232E+00_EB, 8.840290E-01_EB, 7.155771E-01_EB, 2.368274E-01_EB, 1.095937E-01_EB, &
     3.371272E+00_EB, 1.241748E+00_EB, 9.412804E-01_EB, 7.974575E-01_EB, 8.067485E-01_EB, 1.865056E-01_EB, 1.178328E-01_EB, &
     2.426657E+00_EB, 8.931409E-01_EB, 6.775266E-01_EB, 5.586942E-01_EB, 6.967074E-01_EB, 1.154895E-01_EB, &
     1.127254E-01_EB/),(/7,8/))
  
  SD2_C5H8O2(1:7,33:37) = RESHAPE((/ &  ! 1035-1055 CM-1
     1.800189E+00_EB, 5.884496E-01_EB, 4.478842E-01_EB, 3.611785E-01_EB, 6.015273E-01_EB, 2.659912E-02_EB, 1.137885E-01_EB, &
     6.470612E-01_EB, 2.347793E-01_EB, 1.941059E-01_EB, 1.585485E-01_EB, 1.218801E+00_EB, 6.925778E-04_EB, 6.825179E-01_EB, &
     1.671523E-01_EB, 4.958688E-02_EB, 7.155642E-02_EB, 4.212993E-02_EB, 4.481255E-02_EB, 8.744158E-04_EB, 6.166493E-01_EB, &
     4.210092E-02_EB, 5.872012E-03_EB, 1.202013E-02_EB, 8.673460E-03_EB, 7.247323E-04_EB, 7.563806E-04_EB, 1.496397E-01_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C5H8O2(N_TEMP_C5H8O2,37))
  
  ! BAND #2: 875 CM-1 - 1055 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 16.2578 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 875-910 CM-1
     2.823227E-01_EB, 4.610224E-04_EB, 4.906774E-04_EB, 5.417213E-04_EB, 5.214023E-04_EB, 4.619138E-04_EB, 2.996879E-01_EB, &
     1.589262E+01_EB, 7.112738E-04_EB, 6.863480E-04_EB, 6.954244E-04_EB, 5.636836E-04_EB, 6.909238E-04_EB, 1.362275E+00_EB, &
     1.255210E+01_EB, 6.773562E-04_EB, 5.735201E-04_EB, 8.272739E-04_EB, 1.724787E-04_EB, 1.661576E-04_EB, 1.138271E-03_EB, &
     7.051283E-01_EB, 6.891085E-04_EB, 7.024554E-04_EB, 1.678129E-04_EB, 1.524293E-04_EB, 5.547075E-04_EB, 1.418645E-03_EB, &
     7.121508E-02_EB, 6.384517E-04_EB, 1.642701E-03_EB, 1.694248E-04_EB, 1.470911E-04_EB, 6.320090E-02_EB, 4.163931E-03_EB, &
     2.508564E-03_EB, 4.326233E-03_EB, 1.052820E-02_EB, 5.592027E-03_EB, 2.571364E-04_EB, 3.075452E-02_EB, 7.237307E-02_EB, &
     3.527481E-01_EB, 6.803584E-02_EB, 4.286749E-02_EB, 3.844453E-02_EB, 5.858598E-04_EB, 2.259184E-02_EB, 3.898073E+00_EB, &
     1.571067E+01_EB, 6.225180E-02_EB, 6.038369E-02_EB, 2.741791E-02_EB, 1.292359E-03_EB, 2.289985E-02_EB, &
     1.760940E+01_EB/),(/7,8/))
  
  GAMMAD2_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 915-950 CM-1
     8.000000E+01_EB, 1.428430E-01_EB, 2.419731E+00_EB, 2.230224E-01_EB, 2.255022E-03_EB, 2.094570E-02_EB, 2.051410E+01_EB, &
     8.000000E+01_EB, 1.709830E-01_EB, 3.380268E+00_EB, 5.240909E-01_EB, 4.853055E-03_EB, 4.030274E-02_EB, 2.349415E+01_EB, &
     8.000000E+01_EB, 2.636763E-01_EB, 3.653768E+00_EB, 1.717666E+00_EB, 2.060690E-02_EB, 2.522187E-01_EB, 2.863894E+01_EB, &
     8.000000E+01_EB, 3.872301E-01_EB, 3.145524E+01_EB, 1.984056E+00_EB, 7.238493E-02_EB, 1.744457E-01_EB, 1.234446E+01_EB, &
     8.000000E+01_EB, 5.199554E-01_EB, 5.201416E+01_EB, 1.219270E+00_EB, 1.366230E-01_EB, 1.024375E-01_EB, 6.859851E+00_EB, &
     8.000000E+01_EB, 6.059595E-01_EB, 6.357106E+01_EB, 2.510435E+00_EB, 2.483816E-01_EB, 1.870400E-01_EB, 6.030901E+00_EB, &
     8.000000E+01_EB, 4.613948E-01_EB, 6.558012E+01_EB, 9.318435E-01_EB, 8.280329E-01_EB, 1.702565E-01_EB, 3.671889E+00_EB, &
     8.000000E+01_EB, 2.805617E-01_EB, 4.753473E+01_EB, 4.243871E-01_EB, 1.998842E-01_EB, 1.897322E-01_EB, &
     3.182135E-01_EB/),(/7,8/))
  
  GAMMAD2_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 955-990 CM-1
     8.000000E+01_EB, 1.917580E-01_EB, 3.160507E+01_EB, 3.013932E+00_EB, 8.610150E-02_EB, 2.680998E+00_EB, 1.225672E-01_EB, &
     8.000000E+01_EB, 8.181705E-02_EB, 1.393264E+01_EB, 4.846622E+00_EB, 5.364990E-03_EB, 7.410589E+00_EB, 7.715299E-02_EB, &
     7.999744E+01_EB, 2.071421E-02_EB, 2.646321E+00_EB, 1.308531E+00_EB, 1.066053E-03_EB, 5.993038E+00_EB, 7.459897E-02_EB, &
     1.600979E+01_EB, 6.164883E-03_EB, 3.149166E-01_EB, 1.578432E+00_EB, 6.172180E-04_EB, 3.880878E+00_EB, 7.684969E-03_EB, &
     2.587709E+01_EB, 3.007808E-02_EB, 1.472547E-01_EB, 1.384504E+00_EB, 6.759922E-04_EB, 4.013279E+00_EB, 2.292324E-03_EB, &
     7.999663E+01_EB, 3.784955E-02_EB, 4.354468E-01_EB, 2.323880E+00_EB, 8.249666E-04_EB, 2.529707E-01_EB, 1.448969E-03_EB, &
     8.000000E+01_EB, 6.887494E-02_EB, 3.383023E-01_EB, 3.534843E+00_EB, 2.269583E-03_EB, 7.251788E-02_EB, 1.620063E-03_EB, &
     8.000000E+01_EB, 1.396664E-01_EB, 2.500157E-01_EB, 1.154998E-01_EB, 1.324480E-02_EB, 1.665776E+00_EB, &
     1.569506E-03_EB/),(/7,8/))
  
  GAMMAD2_C5H8O2(1:7,25:32) = RESHAPE((/ &  ! 995-1030 CM-1
     7.999999E+01_EB, 2.622383E-01_EB, 3.680714E-01_EB, 3.431326E-01_EB, 3.214335E-02_EB, 3.028902E+00_EB, 2.505970E-03_EB, &
     8.000000E+01_EB, 2.931223E-01_EB, 4.763129E-01_EB, 5.158658E-01_EB, 1.564583E-01_EB, 4.068234E-01_EB, 3.470044E-03_EB, &
     8.000000E+01_EB, 2.591539E-01_EB, 9.760853E-01_EB, 3.725883E-01_EB, 6.472451E-02_EB, 7.215647E-02_EB, 3.438220E+00_EB, &
     8.000000E+01_EB, 2.874591E-01_EB, 8.902719E-01_EB, 3.997568E-01_EB, 1.273205E-01_EB, 2.106275E-02_EB, 1.404359E+00_EB, &
     8.000000E+01_EB, 2.627488E-01_EB, 2.860341E+01_EB, 4.718599E-01_EB, 6.177797E-02_EB, 7.129412E-02_EB, 1.080505E+00_EB, &
     8.000000E+01_EB, 3.044334E-01_EB, 1.893461E+01_EB, 7.512970E-01_EB, 3.525571E-02_EB, 8.428393E+00_EB, 1.655302E+00_EB, &
     8.000000E+01_EB, 2.042339E-01_EB, 2.401079E+01_EB, 1.842385E+00_EB, 1.678758E-02_EB, 1.160390E+01_EB, 7.709535E-02_EB, &
     8.000000E+01_EB, 1.532358E-01_EB, 2.398691E+01_EB, 7.959409E+00_EB, 8.237636E-03_EB, 1.840439E+00_EB, &
     1.574438E-01_EB/),(/7,8/))
  
  GAMMAD2_C5H8O2(1:7,33:37) = RESHAPE((/ &  ! 1035-1055 CM-1
     8.000000E+01_EB, 1.344383E-01_EB, 2.700694E+00_EB, 2.144500E+00_EB, 2.397408E-03_EB, 2.813670E-01_EB, 5.280750E-02_EB, &
     7.999478E+01_EB, 7.115998E-02_EB, 2.822221E-01_EB, 9.009493E-01_EB, 3.364759E-04_EB, 5.682134E-04_EB, 7.024865E-04_EB, &
     1.748846E+01_EB, 1.217636E-01_EB, 4.857488E-02_EB, 5.398096E-01_EB, 4.000099E-03_EB, 5.990465E-04_EB, 6.551947E-04_EB, &
     1.394167E+01_EB, 2.046399E-01_EB, 8.910555E-03_EB, 6.157030E-03_EB, 5.599763E-04_EB, 5.579403E-04_EB, 9.116727E-04_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_C5H8O2(N_TEMP_C5H8O2,18))
  
  ! BAND #3: 1050 CM-1 - 1275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 38.3736 %
  
  SD3_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1050-1085 CM-1
     2.283540E-02_EB, 4.922172E-04_EB, 2.560169E-03_EB, 3.717395E-03_EB, 5.679232E-04_EB, 5.948702E-04_EB, 9.070861E-02_EB, &
     1.330120E-02_EB, 4.682485E-04_EB, 6.438257E-03_EB, 1.249445E-02_EB, 1.158898E-03_EB, 8.034057E-04_EB, 3.528869E-01_EB, &
     5.312158E-04_EB, 4.682485E-04_EB, 3.462862E-03_EB, 4.802455E-03_EB, 1.325886E-03_EB, 9.860835E-04_EB, 5.966300E-01_EB, &
     6.730728E-04_EB, 5.383842E-04_EB, 1.541199E-02_EB, 1.216344E-03_EB, 8.711834E-04_EB, 2.095446E-02_EB, 2.344768E-01_EB, &
     4.842466E-03_EB, 5.362735E-03_EB, 2.344159E-02_EB, 1.759081E-02_EB, 9.888946E-04_EB, 5.883826E-02_EB, 1.524721E+00_EB, &
     1.962391E-02_EB, 1.842385E-02_EB, 4.296535E-02_EB, 3.232193E-02_EB, 8.684561E-04_EB, 1.277349E-01_EB, 1.441831E+00_EB, &
     3.957410E-02_EB, 3.609774E-02_EB, 7.027800E-02_EB, 6.897527E-02_EB, 1.805630E-02_EB, 1.769389E-01_EB, 2.219797E+00_EB, &
     6.033916E-02_EB, 5.989100E-02_EB, 1.135187E-01_EB, 1.032544E-01_EB, 9.054237E-02_EB, 2.674346E-01_EB, &
     1.717514E+00_EB/),(/7,8/))
  
  SD3_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 1090-1225 CM-1
     1.000494E-01_EB, 9.414817E-02_EB, 1.444499E-01_EB, 1.465825E-01_EB, 1.695405E-01_EB, 3.353830E-01_EB, 6.307295E-01_EB, &
     1.689087E-01_EB, 1.393048E-01_EB, 1.815843E-01_EB, 1.798559E-01_EB, 3.961284E-01_EB, 3.870093E-01_EB, 5.212840E-01_EB, &
     2.316504E-01_EB, 1.905944E-01_EB, 2.231146E-01_EB, 2.373041E-01_EB, 6.108176E-01_EB, 5.517315E-01_EB, 5.514970E-01_EB, &
     7.470458E-01_EB, 7.308402E-01_EB, 9.133596E-01_EB, 1.083670E+00_EB, 1.643403E+00_EB, 2.654844E+00_EB, 2.192364E+00_EB, &
     9.479777E+00_EB, 8.554789E+00_EB, 7.931693E+00_EB, 8.343454E+00_EB, 7.636411E+00_EB, 6.546753E+00_EB, 3.098983E+00_EB, &
     2.594269E+01_EB, 1.307137E+01_EB, 1.100488E+01_EB, 1.045080E+01_EB, 8.049716E+00_EB, 4.871530E+00_EB, 1.930570E+00_EB, &
     1.934931E+01_EB, 7.224029E+00_EB, 5.871145E+00_EB, 5.292871E+00_EB, 3.621708E+00_EB, 1.992252E+00_EB, 7.777877E-01_EB, &
     4.140490E+00_EB, 2.139609E+00_EB, 1.821476E+00_EB, 1.658745E+00_EB, 1.493490E+00_EB, 7.032707E-01_EB, &
     2.294717E+00_EB/),(/7,8/))
  
  SD3_C5H8O2(1:7,17:18) = RESHAPE((/ &  ! 1250-1275 CM-1
     5.271264E-01_EB, 2.912938E-01_EB, 2.917520E-01_EB, 2.643227E-01_EB, 5.514219E-01_EB, 1.728159E-01_EB, 9.935754E-01_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_C5H8O2(N_TEMP_C5H8O2,18))
  
  ! BAND #3: 1050 CM-1 - 1275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 38.3736 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1050-1085 CM-1
     6.752973E-01_EB, 3.965369E-04_EB, 1.852648E-03_EB, 6.404227E-03_EB, 4.395271E-04_EB, 4.775384E-04_EB, 2.331620E-03_EB, &
     2.308916E-01_EB, 3.732776E-04_EB, 1.932620E-03_EB, 2.619408E-03_EB, 7.975806E-04_EB, 6.318845E-04_EB, 1.556634E-03_EB, &
     4.424232E-04_EB, 3.732776E-04_EB, 2.729364E-03_EB, 1.540902E-03_EB, 9.180318E-04_EB, 7.423991E-04_EB, 8.482000E-04_EB, &
     5.798906E-04_EB, 4.109335E-04_EB, 4.684962E-03_EB, 1.748840E-03_EB, 5.924212E-04_EB, 8.917151E-02_EB, 3.547868E-03_EB, &
     2.445999E-01_EB, 1.709414E-03_EB, 8.476824E-03_EB, 1.070389E-02_EB, 6.275957E-04_EB, 4.118998E-01_EB, 5.365592E-04_EB, &
     2.903925E+00_EB, 1.089566E-02_EB, 2.453372E-02_EB, 1.655663E-01_EB, 5.991526E-04_EB, 4.446612E+00_EB, 5.688486E-04_EB, &
     1.701839E+01_EB, 1.480657E-01_EB, 7.478547E-02_EB, 3.425426E-01_EB, 6.291144E-01_EB, 9.461117E-01_EB, 4.469811E-04_EB, &
     6.073385E-01_EB, 1.511806E-01_EB, 1.786293E-01_EB, 1.777844E+00_EB, 9.776316E-01_EB, 7.402583E+00_EB, &
     1.041732E-03_EB/),(/7,8/))
  
  GAMMAD3_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 1090-1225 CM-1
     1.122342E+00_EB, 2.158159E-01_EB, 6.598921E-01_EB, 8.611218E-01_EB, 1.210188E-01_EB, 1.184061E+01_EB, 8.335214E-03_EB, &
     5.162273E+00_EB, 3.637833E-01_EB, 7.101749E-01_EB, 1.752143E+00_EB, 7.256519E-03_EB, 3.453023E+01_EB, 6.017312E-02_EB, &
     1.631154E+01_EB, 1.875513E-01_EB, 2.486087E+00_EB, 3.547150E+00_EB, 7.521178E-03_EB, 2.393089E+01_EB, 3.039081E+01_EB, &
     8.000000E+01_EB, 3.366139E-01_EB, 1.096627E+01_EB, 2.588432E+01_EB, 2.813109E-01_EB, 1.156638E+00_EB, 1.806175E-01_EB, &
     8.000000E+01_EB, 6.558841E-01_EB, 1.962907E+00_EB, 1.479647E+00_EB, 1.072565E+00_EB, 2.709515E+00_EB, 3.334761E-01_EB, &
     8.000000E+01_EB, 1.895544E+00_EB, 9.110170E+00_EB, 3.023831E+00_EB, 8.442824E-01_EB, 1.836944E+00_EB, 1.622069E-01_EB, &
     8.000000E+01_EB, 1.580597E+00_EB, 6.536920E+01_EB, 2.757392E+00_EB, 6.660127E-01_EB, 4.829505E+01_EB, 1.550614E-01_EB, &
     7.999934E+01_EB, 3.683494E-01_EB, 5.153029E+00_EB, 1.387986E+00_EB, 7.620403E-02_EB, 3.958904E+01_EB, &
     1.950315E-03_EB/),(/7,8/))
  
  GAMMAD3_C5H8O2(1:7,17:18) = RESHAPE((/ &  ! 1250-1275 CM-1
     7.999908E+01_EB, 9.980022E-02_EB, 3.152017E-01_EB, 1.039694E+00_EB, 3.550883E-03_EB, 1.085236E+00_EB, 8.696632E-04_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD4_C5H8O2(N_TEMP_C5H8O2,14))
  
  ! BAND #4: 1250 CM-1 - 1575 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 26.5551 %
  
  SD4_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1250-1425 CM-1
     2.651267E-01_EB, 1.759638E-01_EB, 1.769296E-01_EB, 1.699091E-01_EB, 2.046845E-01_EB, 2.341468E-01_EB, 1.105642E+00_EB, &
     1.022795E+00_EB, 9.266422E-01_EB, 1.017170E+00_EB, 1.118834E+00_EB, 1.488453E+00_EB, 1.472991E+00_EB, 1.015529E+00_EB, &
     9.008874E+00_EB, 4.815679E+00_EB, 4.305873E+00_EB, 4.164932E+00_EB, 3.844447E+00_EB, 2.320999E+00_EB, 1.064962E+00_EB, &
     1.317933E+01_EB, 5.235972E+00_EB, 4.254435E+00_EB, 3.735700E+00_EB, 2.736514E+00_EB, 1.279456E+00_EB, 5.251123E-01_EB, &
     3.335495E+00_EB, 1.313429E+00_EB, 1.062255E+00_EB, 8.454394E-01_EB, 1.978232E+00_EB, 2.277879E-01_EB, 3.643094E-02_EB, &
     1.208610E+00_EB, 5.576549E-01_EB, 5.119243E-01_EB, 4.375281E-01_EB, 2.260111E+00_EB, 2.451094E-01_EB, 9.103457E-02_EB, &
     1.929443E+00_EB, 8.888330E-01_EB, 8.250508E-01_EB, 7.384043E-01_EB, 2.462957E+00_EB, 6.121275E-01_EB, 1.297550E-01_EB, &
     2.558288E+00_EB, 1.354005E+00_EB, 1.257364E+00_EB, 1.190951E+00_EB, 1.431084E+00_EB, 8.234527E-01_EB, &
     1.945175E-01_EB/),(/7,8/))
  
  SD4_C5H8O2(1:7,9:14) = RESHAPE((/ &  ! 1450-1575 CM-1
     7.269681E+00_EB, 2.804495E+00_EB, 2.300589E+00_EB, 2.018439E+00_EB, 1.754481E+00_EB, 8.665175E-01_EB, 1.851434E-01_EB, &
     3.164709E+00_EB, 1.268072E+00_EB, 1.073237E+00_EB, 9.062173E-01_EB, 1.779966E+00_EB, 4.279472E-01_EB, 6.749668E-02_EB, &
     4.203220E-01_EB, 2.293462E-01_EB, 2.285557E-01_EB, 1.794185E-01_EB, 1.212331E+00_EB, 7.133443E-02_EB, 9.727769E-04_EB, &
     3.205661E-01_EB, 1.369195E-01_EB, 1.279659E-01_EB, 9.148681E-02_EB, 2.184744E-01_EB, 3.056242E-03_EB, 9.133049E-04_EB, &
     1.379741E-01_EB, 6.041193E-02_EB, 5.056159E-02_EB, 3.540082E-02_EB, 4.510264E-03_EB, 3.305673E-03_EB, 6.976907E-04_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD4_C5H8O2(N_TEMP_C5H8O2,14))
  
  ! BAND #4: 1250 CM-1 - 1575 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 26.5551 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD4_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1250-1425 CM-1
     1.900794E+01_EB, 4.523774E-02_EB, 1.704620E-01_EB, 3.550652E-01_EB, 3.540509E-02_EB, 1.516513E+00_EB, 1.492599E-03_EB, &
     8.000000E+01_EB, 2.226090E-01_EB, 4.037264E+01_EB, 2.183364E+01_EB, 1.078975E-01_EB, 5.536881E-01_EB, 4.287697E-02_EB, &
     8.000000E+01_EB, 1.040937E+00_EB, 6.528460E+01_EB, 3.062031E+00_EB, 2.657658E-01_EB, 1.018869E+00_EB, 4.868239E-02_EB, &
     8.000000E+01_EB, 1.163412E+00_EB, 6.557988E+01_EB, 3.224408E+00_EB, 2.125073E-01_EB, 2.326661E-01_EB, 7.389632E-03_EB, &
     8.000000E+01_EB, 2.308729E-01_EB, 6.363109E-01_EB, 5.086314E+00_EB, 4.111352E-03_EB, 1.626691E-01_EB, 1.308121E+00_EB, &
     8.000000E+01_EB, 1.969078E-01_EB, 1.609102E+00_EB, 5.383790E+00_EB, 1.498115E-03_EB, 3.386863E-02_EB, 5.998714E-02_EB, &
     8.000000E+01_EB, 3.410180E-01_EB, 6.907342E+00_EB, 7.887927E+00_EB, 3.683657E-03_EB, 2.330242E-02_EB, 2.134694E+00_EB, &
     8.000000E+01_EB, 3.694747E-01_EB, 4.202343E+00_EB, 1.302414E+00_EB, 3.479140E-02_EB, 7.927698E-02_EB, &
     7.049147E+00_EB/),(/7,8/))
  
  GAMMAD4_C5H8O2(1:7,9:14) = RESHAPE((/ &  ! 1450-1575 CM-1
     8.000000E+01_EB, 7.141208E-01_EB, 6.536640E+01_EB, 2.342027E+00_EB, 7.034590E-02_EB, 1.139549E-01_EB, 5.068590E+00_EB, &
     8.000000E+01_EB, 3.439583E-01_EB, 2.158187E+00_EB, 1.101709E+00_EB, 6.060588E-03_EB, 2.185348E-02_EB, 3.183783E+00_EB, &
     5.006561E+01_EB, 3.299422E-01_EB, 1.190294E+00_EB, 8.974212E-01_EB, 3.345373E-04_EB, 2.520096E-02_EB, 1.139827E-03_EB, &
     2.293095E+01_EB, 1.421608E-01_EB, 7.208656E-01_EB, 9.099123E-01_EB, 6.014407E-05_EB, 2.971282E-03_EB, 6.193551E-04_EB, &
     2.442962E+00_EB, 4.484537E-02_EB, 1.690359E-01_EB, 1.259316E-01_EB, 9.393127E-04_EB, 1.423587E-03_EB, 5.673518E-04_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD5_C5H8O2(N_TEMP_C5H8O2,18))
  
  ! BAND #5: 1550 CM-1 - 1975 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 33.9665 %
  
  SD5_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1550-1725 CM-1
     1.283781E-01_EB, 5.564827E-02_EB, 4.552881E-02_EB, 3.248586E-02_EB, 2.962603E-03_EB, 5.775666E-03_EB, 6.549796E-04_EB, &
     3.228302E-01_EB, 1.330461E-01_EB, 1.436585E-01_EB, 1.010144E-01_EB, 3.539658E+00_EB, 7.633235E-01_EB, 3.006478E-03_EB, &
     4.297863E-01_EB, 2.130911E-01_EB, 3.958264E-01_EB, 2.086835E-01_EB, 5.228719E+00_EB, 1.073793E+00_EB, 5.259787E-02_EB, &
     1.636030E+00_EB, 7.901740E-01_EB, 7.307309E-01_EB, 6.594717E-01_EB, 1.967717E+00_EB, 3.028161E-01_EB, 7.555184E-02_EB, &
     2.786162E+00_EB, 9.811787E-01_EB, 7.947490E-01_EB, 6.679210E-01_EB, 3.937599E-01_EB, 1.926412E-01_EB, 4.895888E-02_EB, &
     5.371774E-01_EB, 2.528496E-01_EB, 2.792431E-01_EB, 2.552566E-01_EB, 4.163329E-01_EB, 2.237360E-01_EB, 1.885545E-01_EB, &
     1.178231E+00_EB, 6.416768E-01_EB, 6.572166E-01_EB, 7.189543E-01_EB, 7.686419E-01_EB, 9.688893E-01_EB, 6.754928E-01_EB, &
     7.583351E+00_EB, 5.772869E+00_EB, 5.148166E+00_EB, 5.223398E+00_EB, 4.376104E+00_EB, 3.382685E+00_EB, &
     1.483712E+00_EB/),(/7,8/))
  
  SD5_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 1750-1925 CM-1
     2.394789E+01_EB, 1.094859E+01_EB, 8.981291E+00_EB, 8.316621E+00_EB, 5.789605E+00_EB, 3.531464E+00_EB, 1.436978E+00_EB, &
     1.830194E+00_EB, 1.308594E+00_EB, 1.243723E+00_EB, 1.234798E+00_EB, 1.062593E+00_EB, 8.475205E-01_EB, 4.802389E-01_EB, &
     6.055532E-01_EB, 3.245427E-01_EB, 3.283205E-01_EB, 2.996324E-01_EB, 2.752568E-01_EB, 1.605966E-01_EB, 1.734273E-01_EB, &
     1.185795E-01_EB, 5.910661E-02_EB, 5.293524E-02_EB, 4.089505E-02_EB, 8.894114E-02_EB, 1.564737E-02_EB, 4.355749E-02_EB, &
     4.355125E-02_EB, 1.987367E-02_EB, 8.799089E-02_EB, 2.271459E-02_EB, 2.895065E-02_EB, 3.488458E-03_EB, 2.838444E-02_EB, &
     3.376642E-01_EB, 1.368154E-01_EB, 1.357689E-01_EB, 1.064263E-01_EB, 6.258461E-02_EB, 1.334385E-02_EB, 8.818944E-03_EB, &
     2.105506E-01_EB, 6.949000E-02_EB, 6.742734E-02_EB, 5.316113E-02_EB, 2.371958E-02_EB, 9.426557E-04_EB, 1.609069E-03_EB, &
     1.850030E-02_EB, 4.412077E-03_EB, 7.600489E-04_EB, 2.224295E-03_EB, 7.330402E-04_EB, 7.865066E-04_EB, &
     7.116352E-04_EB/),(/7,8/))
  
  SD5_C5H8O2(1:7,17:18) = RESHAPE((/ &  ! 1950-1975 CM-1
     9.010576E-04_EB, 6.552187E-04_EB, 7.003811E-04_EB, 6.830920E-04_EB, 7.111960E-04_EB, 6.441936E-04_EB, 6.424584E-04_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD5_C5H8O2(N_TEMP_C5H8O2,18))
  
  ! BAND #5: 1550 CM-1 - 1975 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 33.9665 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD5_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 1550-1725 CM-1
     2.001538E+00_EB, 1.043359E-01_EB, 1.744313E-01_EB, 5.342194E-02_EB, 1.360786E-03_EB, 2.592801E-03_EB, 5.075444E-04_EB, &
     1.725159E+01_EB, 1.172078E-01_EB, 4.594855E-02_EB, 2.031343E-01_EB, 1.111304E-04_EB, 2.683498E-04_EB, 1.034216E-01_EB, &
     4.985857E+01_EB, 1.394095E-01_EB, 7.496345E-03_EB, 1.380074E-01_EB, 3.724253E-04_EB, 1.238566E-03_EB, 7.511094E-01_EB, &
     7.999340E+01_EB, 3.572097E-01_EB, 1.449507E+00_EB, 3.819534E+00_EB, 3.386923E-03_EB, 2.420339E+00_EB, 1.689780E+00_EB, &
     8.000000E+01_EB, 4.078442E-01_EB, 2.746087E+01_EB, 5.496911E+00_EB, 7.681082E-02_EB, 9.142768E+00_EB, 9.256224E-01_EB, &
     8.000000E+01_EB, 1.120101E+00_EB, 2.154457E-01_EB, 2.496980E-01_EB, 5.035481E-03_EB, 4.567797E+00_EB, 1.613476E+01_EB, &
     8.000000E+01_EB, 2.505163E-01_EB, 7.289726E+00_EB, 3.688168E-01_EB, 1.262311E-01_EB, 4.852373E+01_EB, 4.327932E+01_EB, &
     8.000000E+01_EB, 4.925207E-01_EB, 1.508704E+00_EB, 1.040179E+00_EB, 6.046273E-01_EB, 2.007314E+01_EB, &
     3.883409E+01_EB/),(/7,8/))
  
  GAMMAD5_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 1750-1925 CM-1
     8.000000E+01_EB, 1.703895E+00_EB, 9.191951E+00_EB, 2.709061E+00_EB, 9.359203E-01_EB, 3.834274E+01_EB, 7.078759E-01_EB, &
     7.999983E+01_EB, 1.728338E-01_EB, 6.428302E-01_EB, 6.480871E-01_EB, 2.403467E-01_EB, 4.865268E+01_EB, 1.451594E+01_EB, &
     7.999999E+01_EB, 7.815232E-02_EB, 8.730432E-02_EB, 2.873412E-01_EB, 2.837574E-02_EB, 3.159028E+00_EB, 3.214034E+00_EB, &
     6.362515E-02_EB, 6.189950E-03_EB, 5.670266E-03_EB, 1.609798E-02_EB, 4.919947E-04_EB, 1.569334E-01_EB, 1.400792E-01_EB, &
     4.873130E-03_EB, 6.913205E-03_EB, 1.797921E-04_EB, 1.336251E-02_EB, 8.086060E-03_EB, 1.891584E-02_EB, 2.687108E-02_EB, &
     2.972716E+01_EB, 4.496649E-02_EB, 1.698626E-02_EB, 7.124485E-02_EB, 3.445376E-01_EB, 2.327743E-01_EB, 6.610266E-01_EB, &
     7.398272E+00_EB, 4.698677E-02_EB, 1.308793E-02_EB, 3.824701E-02_EB, 6.967306E-02_EB, 1.066862E-03_EB, 8.184279E-04_EB, &
     9.082357E-03_EB, 3.297959E-03_EB, 4.284375E-04_EB, 1.604779E-03_EB, 5.294588E-04_EB, 6.058801E-04_EB, &
     5.178529E-04_EB/),(/7,8/))
  
  GAMMAD5_C5H8O2(1:7,17:18) = RESHAPE((/ &  ! 1950-1975 CM-1
     7.219679E-04_EB, 5.013825E-04_EB, 4.812947E-04_EB, 5.404546E-04_EB, 5.475653E-04_EB, 4.887417E-04_EB, 4.941073E-04_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD6_C5H8O2(N_TEMP_C5H8O2,26))
  
  ! BAND #6: 2650 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 11.3243 %
  
  SD6_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 2650-2825 CM-1
     6.617679E-04_EB, 7.038166E-04_EB, 5.823242E-04_EB, 6.498762E-04_EB, 6.305493E-04_EB, 6.702982E-04_EB, 2.492250E-02_EB, &
     8.413829E-04_EB, 9.287068E-04_EB, 9.382552E-04_EB, 8.391021E-04_EB, 8.961598E-04_EB, 8.253163E-04_EB, 5.284118E-02_EB, &
     9.964645E-03_EB, 3.825227E-03_EB, 5.258108E-03_EB, 3.430243E-03_EB, 8.600200E-04_EB, 6.425559E-03_EB, 7.468932E-02_EB, &
     4.273055E-02_EB, 1.049000E-02_EB, 1.562321E-02_EB, 1.351817E-02_EB, 7.806216E-03_EB, 2.714191E-02_EB, 1.221449E-01_EB, &
     8.007875E-02_EB, 2.912543E-02_EB, 3.379663E-02_EB, 3.252406E-02_EB, 1.200427E-02_EB, 2.850065E-02_EB, 1.385424E-01_EB, &
     9.973924E-02_EB, 2.113446E-02_EB, 3.076355E-02_EB, 2.639593E-02_EB, 6.644964E-03_EB, 2.242511E-02_EB, 1.660444E-01_EB, &
     1.028910E-01_EB, 5.220431E-02_EB, 4.300251E-02_EB, 4.795173E-02_EB, 3.143119E-02_EB, 6.642097E-02_EB, 1.979488E-01_EB, &
     2.202342E-01_EB, 1.345745E-01_EB, 1.259318E-01_EB, 1.271074E-01_EB, 1.238737E-01_EB, 1.520918E-01_EB, &
     2.525918E-01_EB/),(/7,8/))
  
  SD6_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 2850-3025 CM-1
     1.136213E+00_EB, 4.781891E-01_EB, 4.249774E-01_EB, 3.828941E-01_EB, 3.367838E-01_EB, 2.329863E-01_EB, 2.717789E-01_EB, &
     8.634086E-01_EB, 4.219181E-01_EB, 3.728310E-01_EB, 3.478836E-01_EB, 2.675079E-01_EB, 2.733947E-01_EB, 3.309081E-01_EB, &
     1.146984E+00_EB, 5.316939E-01_EB, 5.062337E-01_EB, 4.805370E-01_EB, 3.860685E-01_EB, 3.811075E-01_EB, 4.090385E-01_EB, &
     2.056434E+00_EB, 9.985803E-01_EB, 9.030141E-01_EB, 8.563341E-01_EB, 6.732570E-01_EB, 6.443301E-01_EB, 5.434919E-01_EB, &
     4.615588E+00_EB, 2.244759E+00_EB, 2.030504E+00_EB, 1.928204E+00_EB, 1.523456E+00_EB, 1.179250E+00_EB, 7.021791E-01_EB, &
     5.650492E+00_EB, 2.472471E+00_EB, 2.136749E+00_EB, 1.930516E+00_EB, 1.442591E+00_EB, 9.997534E-01_EB, 5.978827E-01_EB, &
     4.609191E+00_EB, 1.782318E+00_EB, 1.525555E+00_EB, 1.347833E+00_EB, 9.229266E-01_EB, 6.392344E-01_EB, 4.770802E-01_EB, &
     2.820790E+00_EB, 1.104460E+00_EB, 9.776057E-01_EB, 8.631595E-01_EB, 5.721892E-01_EB, 4.422352E-01_EB, &
     3.522752E-01_EB/),(/7,8/))
  
  SD6_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 3050-3225 CM-1
     1.187353E+00_EB, 5.460448E-01_EB, 4.928400E-01_EB, 4.472267E-01_EB, 3.395637E-01_EB, 2.809475E-01_EB, 2.653517E-01_EB, &
     4.704535E-01_EB, 2.491073E-01_EB, 2.537560E-01_EB, 2.409873E-01_EB, 1.982473E-01_EB, 2.279718E-01_EB, 2.611720E-01_EB, &
     6.039772E-01_EB, 3.431934E-01_EB, 3.284617E-01_EB, 3.129996E-01_EB, 2.653921E-01_EB, 2.526170E-01_EB, 2.011828E-01_EB, &
     5.920773E-01_EB, 2.451875E-01_EB, 2.368206E-01_EB, 2.072703E-01_EB, 2.138315E-01_EB, 1.682738E-01_EB, 1.552495E-01_EB, &
     1.700742E-01_EB, 7.290921E-02_EB, 8.217440E-02_EB, 6.629481E-02_EB, 5.469629E-02_EB, 8.994315E-02_EB, 9.732156E-02_EB, &
     1.118992E-01_EB, 4.366084E-02_EB, 4.890966E-02_EB, 2.885185E-02_EB, 1.279711E-02_EB, 6.143421E-02_EB, 5.932504E-02_EB, &
     5.320012E-02_EB, 1.864948E-02_EB, 1.833215E-02_EB, 8.372681E-03_EB, 9.556242E-04_EB, 2.724051E-02_EB, 4.060600E-02_EB, &
     1.562049E-02_EB, 9.377158E-03_EB, 1.509016E-03_EB, 2.400877E-03_EB, 7.719203E-04_EB, 4.833588E-03_EB, &
     3.145233E-03_EB/),(/7,8/))
  
  SD6_C5H8O2(1:7,25:26) = RESHAPE((/ &  ! 3250-3275 CM-1
     1.234745E-03_EB, 1.894526E-03_EB, 7.790315E-04_EB, 6.688577E-04_EB, 6.556824E-04_EB, 6.274349E-04_EB, 6.008281E-04_EB, &
     4.683959E-04_EB, 4.682485E-04_EB, 4.694920E-04_EB, 4.693301E-04_EB, 4.691565E-04_EB, 4.675221E-04_EB, &
     4.659141E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD6_C5H8O2(N_TEMP_C5H8O2,26))
  
  ! BAND #6: 2650 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 11.3243 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD6_C5H8O2(1:7,1:8) = RESHAPE((/ &  ! 2650-2825 CM-1
     5.202784E-04_EB, 5.525656E-04_EB, 4.434412E-04_EB, 4.998255E-04_EB, 4.935419E-04_EB, 5.063850E-04_EB, 1.092982E-02_EB, &
     5.613238E-04_EB, 6.098207E-04_EB, 7.086604E-04_EB, 6.039142E-04_EB, 6.289973E-04_EB, 6.322323E-04_EB, 1.194772E+00_EB, &
     2.420843E-03_EB, 1.761218E-03_EB, 3.068546E-03_EB, 3.918268E-03_EB, 6.421563E-04_EB, 2.061317E-03_EB, 4.004519E-01_EB, &
     8.686816E-04_EB, 5.690975E-03_EB, 1.368498E-01_EB, 2.276203E-01_EB, 1.896994E-03_EB, 1.942151E-03_EB, 1.781156E+00_EB, &
     8.775885E-02_EB, 2.065817E-02_EB, 1.307324E-01_EB, 4.176628E-02_EB, 1.462109E-02_EB, 2.246227E-03_EB, 1.423947E+00_EB, &
     1.400226E-03_EB, 7.669502E-03_EB, 2.007661E-01_EB, 5.908664E-02_EB, 9.431682E-02_EB, 1.143177E-02_EB, 1.718195E+00_EB, &
     1.151669E-01_EB, 1.850972E-02_EB, 1.407721E-01_EB, 1.023565E-01_EB, 3.200614E-02_EB, 1.001680E-01_EB, 2.390609E+00_EB, &
     6.151837E+00_EB, 6.526566E-02_EB, 8.225336E-01_EB, 7.234620E-01_EB, 1.810297E-02_EB, 6.092961E-01_EB, &
     6.507145E+00_EB/),(/7,8/))
  
  GAMMAD6_C5H8O2(1:7,9:16) = RESHAPE((/ &  ! 2850-3025 CM-1
     7.999998E+01_EB, 4.402301E-01_EB, 8.184655E+00_EB, 7.049003E+00_EB, 2.465981E-02_EB, 4.666996E-01_EB, 1.050980E+01_EB, &
     8.000000E+01_EB, 1.344989E-01_EB, 5.238427E+00_EB, 2.779348E+00_EB, 5.844913E-02_EB, 2.117354E-01_EB, 4.746041E+00_EB, &
     7.999999E+01_EB, 1.706723E+00_EB, 1.717115E+01_EB, 7.059894E+00_EB, 8.912304E-02_EB, 2.663843E-01_EB, 1.132361E+01_EB, &
     7.999995E+01_EB, 4.086512E-01_EB, 4.839686E+01_EB, 2.308238E+01_EB, 2.068307E-01_EB, 8.659772E+00_EB, 1.089381E+00_EB, &
     8.000000E+01_EB, 7.844302E-01_EB, 6.546691E+01_EB, 3.816010E+00_EB, 3.501117E-01_EB, 4.860275E+01_EB, 2.192674E+01_EB, &
     8.000000E+01_EB, 7.277374E-01_EB, 6.563413E+01_EB, 6.128970E+01_EB, 2.795272E-01_EB, 4.863825E+01_EB, 1.715815E+01_EB, &
     8.000000E+01_EB, 7.372699E-01_EB, 6.564590E+01_EB, 5.533248E+01_EB, 2.910770E-01_EB, 9.688164E+00_EB, 2.950219E+01_EB, &
     8.000000E+01_EB, 5.982188E-01_EB, 6.554359E+01_EB, 3.587869E+01_EB, 3.437982E-01_EB, 2.068358E+00_EB, &
     2.249578E+01_EB/),(/7,8/))
  
  GAMMAD6_C5H8O2(1:7,17:24) = RESHAPE((/ &  ! 3050-3225 CM-1
     8.000000E+01_EB, 4.235551E-01_EB, 2.497231E+01_EB, 9.302322E+00_EB, 8.931722E-02_EB, 5.150630E+00_EB, 1.414719E+01_EB, &
     6.010851E+01_EB, 1.879884E+00_EB, 2.783897E+00_EB, 3.173126E+00_EB, 8.402729E-02_EB, 3.467785E+00_EB, 1.176859E+01_EB, &
     7.499988E+01_EB, 1.744287E-01_EB, 2.563845E+00_EB, 4.952657E+00_EB, 6.326135E-02_EB, 3.738165E+00_EB, 8.586505E+00_EB, &
     7.999518E+01_EB, 3.410346E-01_EB, 4.666935E-01_EB, 2.152000E+00_EB, 7.943992E-03_EB, 9.823071E-01_EB, 3.227657E+00_EB, &
     6.470047E-01_EB, 2.696803E-01_EB, 4.931105E-02_EB, 1.777548E-01_EB, 6.548798E-03_EB, 4.997383E-02_EB, 2.368120E+00_EB, &
     1.850193E-02_EB, 2.343943E-01_EB, 2.130779E-02_EB, 1.645282E-01_EB, 5.228779E-03_EB, 1.024445E-01_EB, 3.884470E-01_EB, &
     7.638521E-03_EB, 1.078876E-01_EB, 1.679201E-02_EB, 8.467687E-03_EB, 6.767255E-04_EB, 1.893862E-01_EB, 1.745921E-01_EB, &
     9.543385E-03_EB, 5.137643E-04_EB, 8.369605E-04_EB, 1.442443E-03_EB, 5.585763E-04_EB, 6.679236E-03_EB, &
     1.904481E-03_EB/),(/7,8/))
  
  GAMMAD6_C5H8O2(1:7,25:26) = RESHAPE((/ &  ! 3250-3275 CM-1
     4.938200E-04_EB, 5.333619E-04_EB, 5.374406E-04_EB, 5.112562E-04_EB, 5.068363E-04_EB, 4.776250E-04_EB, 4.658301E-04_EB, &
     3.735791E-04_EB, 3.732776E-04_EB, 3.745026E-04_EB, 3.743404E-04_EB, 3.741743E-04_EB, 3.727339E-04_EB, &
     3.713571E-04_EB/),(/7,2/))
  
  !-------------------------PROPANE DATA-------------------
  
  
  ! THERE ARE 2 BANDS FOR PROPANE
  
  ! BAND #1: 1175 CM-1 - 1675 CM-1
  ! BAND #2: 2550 CM-1 - 3375 CM-1
  
  ALLOCATE(SD_C3H8_TEMP(N_TEMP_C3H8))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR PROPANE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C3H8(N_BAND_C3H8,3))
  ALLOCATE(BE_C3H8(N_BAND_C3H8))
  
  OM_BND_C3H8 = RESHAPE((/ &
     1175._EB, 2550._EB, &
     1675._EB, 3375._EB, &
     25._EB, 25._EB/),(/N_BAND_C3H8,3/))
  
  SD_C3H8_TEMP = (/ &
     295._EB, 396._EB, 435._EB, 513._EB, 578._EB, 790._EB,&
     1009._EB/)
  
  BE_C3H8 = (/ &
     1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C3H8(N_TEMP_C3H8,21))
  
  ! BAND #1: 1175 CM-1 - 1675 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.76397 %
  
  SD1_C3H8(1:7,1:8) = RESHAPE((/ &  ! 1175-1350 CM-1
     2.856475E-02_EB, 1.979289E-02_EB, 1.707802E-02_EB, 1.759506E-02_EB, 5.992940E-04_EB, 6.107200E-04_EB, 6.336991E-04_EB, &
     1.484719E-02_EB, 1.365281E-02_EB, 1.474969E-02_EB, 1.061569E+00_EB, 1.945253E-03_EB, 1.757434E-03_EB, 4.662084E-03_EB, &
     6.963764E-04_EB, 8.500329E-04_EB, 1.107148E-02_EB, 4.507160E-01_EB, 1.264992E-03_EB, 2.619320E-03_EB, 7.816939E-01_EB, &
     7.226016E-04_EB, 9.075238E-04_EB, 1.125338E-02_EB, 2.194527E+00_EB, 3.638673E-03_EB, 7.038039E-03_EB, 8.347445E-03_EB, &
     7.167376E-04_EB, 2.529382E-03_EB, 1.471445E-02_EB, 5.689394E-01_EB, 5.129735E-03_EB, 3.199170E-01_EB, 4.714861E-02_EB, &
     1.973741E-02_EB, 3.150872E-02_EB, 4.659984E-02_EB, 9.243516E-01_EB, 5.980704E-02_EB, 5.046688E-01_EB, 2.447019E+00_EB, &
     1.692269E-01_EB, 1.375209E-01_EB, 1.214367E-01_EB, 4.508625E-01_EB, 8.448186E-02_EB, 1.539041E-01_EB, 2.379877E+00_EB, &
     3.080345E-01_EB, 2.355289E-01_EB, 2.170087E-01_EB, 2.766257E-01_EB, 1.745191E-01_EB, 3.225558E-01_EB, &
     2.527352E-01_EB/),(/7,8/))
  
  SD1_C3H8(1:7,9:16) = RESHAPE((/ &  ! 1375-1550 CM-1
     5.345587E-01_EB, 3.413403E-01_EB, 2.898386E-01_EB, 4.388584E-01_EB, 1.966052E-01_EB, 2.312638E-01_EB, 1.022691E+00_EB, &
     4.993827E-01_EB, 3.759253E-01_EB, 3.463795E-01_EB, 4.015651E-01_EB, 2.676596E-01_EB, 2.708667E-01_EB, 5.754884E-01_EB, &
     3.709223E-01_EB, 3.014857E-01_EB, 3.021999E-01_EB, 9.358461E-01_EB, 2.624617E-01_EB, 2.519600E-01_EB, 3.362995E-01_EB, &
     8.886871E-01_EB, 5.747695E-01_EB, 5.132261E-01_EB, 6.330728E-01_EB, 3.344818E-01_EB, 2.389406E-01_EB, 1.497565E+00_EB, &
     1.197095E+00_EB, 6.989701E-01_EB, 6.042183E-01_EB, 8.699088E-01_EB, 3.814121E-01_EB, 2.349714E-01_EB, 2.153495E-01_EB, &
     6.712891E-01_EB, 3.823312E-01_EB, 3.697114E-01_EB, 8.758687E-01_EB, 2.396388E-01_EB, 1.894728E-01_EB, 1.039864E+00_EB, &
     1.822239E-01_EB, 1.242199E-01_EB, 1.389102E-01_EB, 1.652805E+00_EB, 1.094348E-01_EB, 9.737249E-02_EB, 6.800781E-02_EB, &
     1.683063E-02_EB, 9.880390E-03_EB, 3.283471E-02_EB, 4.035590E+00_EB, 3.286196E-02_EB, 7.512521E-02_EB, &
     1.698967E+00_EB/),(/7,8/))
  
  SD1_C3H8(1:7,17:21) = RESHAPE((/ &  ! 1575-1675 CM-1
     4.515698E-03_EB, 1.676975E-02_EB, 9.512287E-03_EB, 1.896304E+00_EB, 1.105889E-02_EB, 3.093088E-01_EB, 1.288482E+00_EB, &
     9.765260E-04_EB, 6.840034E-01_EB, 1.034854E-02_EB, 3.287022E-03_EB, 7.493779E-03_EB, 2.811245E-01_EB, 4.924827E-02_EB, &
     6.957537E-04_EB, 2.871557E-03_EB, 6.957746E-04_EB, 8.150887E-04_EB, 1.138683E-03_EB, 4.575742E-03_EB, 1.445285E-02_EB, &
     5.346547E-04_EB, 6.489883E-04_EB, 5.962380E-04_EB, 5.749846E-04_EB, 5.575030E-04_EB, 6.786480E-04_EB, 6.619676E-04_EB, &
     4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, &
     4.634348E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C3H8(N_TEMP_C3H8,21))
  
  ! BAND #1: 1175 CM-1 - 1675 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.76397 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C3H8(1:7,1:8) = RESHAPE((/ &  ! 1175-1350 CM-1
     1.992031E-02_EB, 1.141762E-02_EB, 1.366155E-01_EB, 1.973038E-02_EB, 4.249794E-04_EB, 4.342393E-04_EB, 4.468799E-04_EB, &
     8.577876E-03_EB, 6.212098E-03_EB, 1.781483E-01_EB, 9.603555E-05_EB, 4.057086E-03_EB, 1.500925E-04_EB, 6.183171E-04_EB, &
     4.465589E-04_EB, 5.682785E-04_EB, 2.127940E-01_EB, 5.658019E-05_EB, 2.225962E-04_EB, 3.326833E-04_EB, 5.709512E-06_EB, &
     5.278412E-04_EB, 5.926586E-04_EB, 2.442104E-01_EB, 3.443200E-05_EB, 3.645364E-04_EB, 1.452036E-03_EB, 7.864828E-02_EB, &
     5.090058E-04_EB, 2.365350E-03_EB, 6.569843E-01_EB, 4.564938E-05_EB, 6.851756E-03_EB, 3.833493E-05_EB, 6.658254E-01_EB, &
     1.552597E-02_EB, 2.378523E-02_EB, 8.041370E-01_EB, 1.425241E-04_EB, 5.497853E-03_EB, 2.341884E-04_EB, 8.855023E-05_EB, &
     1.117621E-01_EB, 2.577861E-02_EB, 1.116130E+00_EB, 1.259624E-03_EB, 1.821509E-01_EB, 3.535192E-03_EB, 8.671143E-05_EB, &
     1.808233E-01_EB, 6.199510E-02_EB, 4.856790E+00_EB, 1.205230E-02_EB, 3.669786E-02_EB, 2.932383E-03_EB, &
     4.381239E-03_EB/),(/7,8/))
  
  GAMMAD1_C3H8(1:7,9:16) = RESHAPE((/ &  ! 1375-1550 CM-1
     2.669661E-01_EB, 1.045895E-01_EB, 1.300781E+00_EB, 9.033578E-03_EB, 2.323335E-01_EB, 1.276771E-02_EB, 8.417636E-04_EB, &
     3.073214E-01_EB, 1.882989E-01_EB, 1.392323E+01_EB, 2.514566E-02_EB, 1.753049E-01_EB, 1.668277E-02_EB, 1.564119E-03_EB, &
     1.834951E-01_EB, 1.904052E+00_EB, 1.048436E+01_EB, 3.971260E-03_EB, 8.256188E-02_EB, 1.231218E-02_EB, 4.278796E-03_EB, &
     4.067671E-01_EB, 3.098373E-01_EB, 1.683329E+01_EB, 2.321737E-02_EB, 4.469660E+00_EB, 9.982721E-02_EB, 5.564305E-04_EB, &
     4.351927E-01_EB, 3.169913E-01_EB, 3.797676E-01_EB, 1.482328E-02_EB, 1.277859E-01_EB, 9.112234E-02_EB, 7.464685E-03_EB, &
     3.429172E-01_EB, 1.903809E+01_EB, 1.993602E+01_EB, 4.962290E-03_EB, 2.386361E-01_EB, 1.458725E-02_EB, 3.066693E-04_EB, &
     1.761592E-01_EB, 6.137305E+00_EB, 2.041270E+00_EB, 3.861036E-04_EB, 1.018629E+00_EB, 1.406376E-02_EB, 1.289657E-02_EB, &
     2.874081E-02_EB, 4.620945E-01_EB, 1.299484E+00_EB, 3.273246E-05_EB, 8.688233E-02_EB, 4.030533E-04_EB, &
     2.700077E-05_EB/),(/7,8/))
  
  GAMMAD1_C3H8(1:7,17:21) = RESHAPE((/ &  ! 1575-1675 CM-1
     1.208990E-03_EB, 6.799487E-03_EB, 3.701547E-01_EB, 1.237888E-05_EB, 1.464532E-02_EB, 2.595773E-05_EB, 4.545433E-05_EB, &
     5.930652E-04_EB, 2.514086E-05_EB, 6.469106E-03_EB, 2.000295E-03_EB, 3.669583E-03_EB, 3.705261E-05_EB, 6.244904E-03_EB, &
     4.994954E-04_EB, 9.490064E-04_EB, 4.754384E-04_EB, 5.579883E-04_EB, 9.783514E-04_EB, 1.672579E-03_EB, 1.298467E-04_EB, &
     4.041578E-04_EB, 4.765211E-04_EB, 4.390729E-04_EB, 4.199440E-04_EB, 4.075633E-04_EB, 4.679761E-04_EB, 4.596989E-04_EB, &
     3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, &
     3.684034E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C3H8(N_TEMP_C3H8,34))
  
  ! BAND #2: 2550 CM-1 - 3375 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.8902 %
  
  SD2_C3H8(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     5.503672E-04_EB, 5.994891E-04_EB, 8.662153E-04_EB, 6.007139E-04_EB, 5.508955E-04_EB, 6.062568E-04_EB, 9.609866E-04_EB, &
     9.165832E-03_EB, 6.514927E-03_EB, 5.498817E-03_EB, 2.820723E-03_EB, 4.346969E-03_EB, 3.366148E-03_EB, 1.036676E-01_EB, &
     3.816653E-02_EB, 2.423984E-02_EB, 2.297132E-02_EB, 1.131018E-02_EB, 1.290251E-02_EB, 9.585606E-03_EB, 7.230381E-01_EB, &
     6.229937E-02_EB, 3.989116E-02_EB, 3.343177E-02_EB, 2.820251E-02_EB, 1.841367E-02_EB, 1.058259E-02_EB, 1.643570E-02_EB, &
     8.226034E-02_EB, 4.582033E-02_EB, 3.980542E-02_EB, 2.801891E-02_EB, 1.700839E-02_EB, 1.139598E-02_EB, 2.021613E-01_EB, &
     7.640614E-02_EB, 3.373610E-02_EB, 3.023935E-02_EB, 2.980953E-02_EB, 2.095503E-02_EB, 1.799163E-02_EB, 3.412770E-01_EB, &
     3.340838E-02_EB, 2.504949E-02_EB, 2.777922E-02_EB, 2.817541E-02_EB, 3.213869E-02_EB, 3.140060E-02_EB, 1.470802E+00_EB, &
     8.685682E-02_EB, 6.091073E-02_EB, 7.104290E-02_EB, 7.142576E-02_EB, 6.557492E-02_EB, 6.248472E-02_EB, &
     2.113951E+00_EB/),(/7,8/))
  
  SD2_C3H8(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     1.699556E-01_EB, 1.209358E-01_EB, 1.186218E-01_EB, 1.132869E-01_EB, 1.150490E-01_EB, 1.001152E-01_EB, 1.402520E-01_EB, &
     1.666365E-01_EB, 1.410150E-01_EB, 1.367199E-01_EB, 1.403357E-01_EB, 1.627667E-01_EB, 1.378065E-01_EB, 3.019538E-01_EB, &
     2.031290E-01_EB, 1.630134E-01_EB, 1.593693E-01_EB, 1.694187E-01_EB, 1.815236E-01_EB, 2.026379E-01_EB, 2.932861E-01_EB, &
     3.542177E-01_EB, 3.249511E-01_EB, 3.280019E-01_EB, 3.450738E-01_EB, 3.407162E-01_EB, 3.576253E-01_EB, 5.198445E-01_EB, &
     1.000630E+00_EB, 9.246602E-01_EB, 9.305942E-01_EB, 9.189938E-01_EB, 8.909863E-01_EB, 7.810609E-01_EB, 9.521582E-01_EB, &
     3.753627E+00_EB, 2.683351E+00_EB, 2.484390E+00_EB, 2.041213E+00_EB, 1.810422E+00_EB, 1.239899E+00_EB, 1.183325E+00_EB, &
     5.234499E+00_EB, 3.770775E+00_EB, 3.516223E+00_EB, 2.940932E+00_EB, 2.625379E+00_EB, 1.827482E+00_EB, 1.807152E+00_EB, &
     5.572566E+00_EB, 4.685164E+00_EB, 4.488098E+00_EB, 3.945955E+00_EB, 3.562082E+00_EB, 2.450846E+00_EB, &
     2.095864E+00_EB/),(/7,8/))
  
  SD2_C3H8(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     1.055304E+01_EB, 7.617962E+00_EB, 7.020237E+00_EB, 5.655513E+00_EB, 4.924307E+00_EB, 2.987908E+00_EB, 2.490259E+00_EB, &
     1.309229E+01_EB, 8.614162E+00_EB, 7.735378E+00_EB, 5.958736E+00_EB, 5.015764E+00_EB, 2.751758E+00_EB, 2.176924E+00_EB, &
     5.664769E+00_EB, 4.285205E+00_EB, 3.984661E+00_EB, 3.391957E+00_EB, 2.931808E+00_EB, 1.747475E+00_EB, 1.598403E+00_EB, &
     7.428057E-01_EB, 8.846817E-01_EB, 9.107382E-01_EB, 1.009605E+00_EB, 9.708428E-01_EB, 7.720345E-01_EB, 9.265547E-01_EB, &
     7.186847E-02_EB, 1.458443E-01_EB, 1.735809E-01_EB, 2.489900E-01_EB, 2.701093E-01_EB, 3.154699E-01_EB, 6.322075E-01_EB, &
     4.223055E-02_EB, 7.998122E-02_EB, 1.014124E-01_EB, 1.476562E-01_EB, 1.444812E-01_EB, 1.778681E-01_EB, 7.948678E-01_EB, &
     5.301805E-02_EB, 7.789503E-02_EB, 9.507427E-02_EB, 1.304625E-01_EB, 1.288331E-01_EB, 1.398066E-01_EB, 9.260605E-01_EB, &
     8.229182E-02_EB, 7.916035E-02_EB, 9.156865E-02_EB, 1.229671E-01_EB, 1.154257E-01_EB, 1.069746E-01_EB, &
     1.474222E+00_EB/),(/7,8/))
  
  SD2_C3H8(1:7,25:32) = RESHAPE((/ &  ! 3150-3325 CM-1
     1.097023E-01_EB, 9.711792E-02_EB, 1.018166E-01_EB, 1.145716E-01_EB, 1.629561E-01_EB, 7.870503E-02_EB, 1.054101E+00_EB, &
     1.528366E-01_EB, 1.042414E-01_EB, 1.045964E-01_EB, 9.557668E-02_EB, 9.257045E-02_EB, 5.716098E-02_EB, 2.230393E+00_EB, &
     1.448776E-01_EB, 8.693362E-02_EB, 8.143001E-02_EB, 8.822165E-02_EB, 7.154741E-02_EB, 3.844782E-02_EB, 5.459571E+00_EB, &
     7.739671E-02_EB, 4.498684E-02_EB, 5.166537E-02_EB, 4.834891E-02_EB, 4.653514E-02_EB, 1.900636E-02_EB, 3.668670E+00_EB, &
     2.193118E-02_EB, 1.636816E-02_EB, 1.616765E-02_EB, 2.883862E-02_EB, 6.071064E-02_EB, 3.305292E-03_EB, 4.440979E+00_EB, &
     7.607103E-04_EB, 2.864772E-03_EB, 1.569824E-03_EB, 5.600370E-03_EB, 2.231541E-03_EB, 1.431965E-03_EB, 4.371189E+00_EB, &
     6.767298E-04_EB, 7.265903E-04_EB, 6.896754E-04_EB, 7.704584E-04_EB, 7.843659E-04_EB, 2.492767E-03_EB, 3.017731E+00_EB, &
     6.753685E-04_EB, 8.082467E-04_EB, 8.419705E-04_EB, 8.502049E-04_EB, 7.333137E-04_EB, 2.689703E-03_EB, &
     2.546579E-01_EB/),(/7,8/))
  
  SD2_C3H8(1:7,33:34) = RESHAPE((/ &  ! 3350-3375 CM-1
     5.953124E-04_EB, 6.647555E-04_EB, 6.295086E-04_EB, 6.270639E-04_EB, 5.605951E-04_EB, 1.004627E-03_EB, 5.997674E-04_EB, &
     4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, 4.634348E-04_EB, &
     4.634348E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C3H8(N_TEMP_C3H8,34))
  
  ! BAND #2: 2550 CM-1 - 3375 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.8902 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C3H8(1:7,1:8) = RESHAPE((/ &  ! 2550-2725 CM-1
     4.136492E-04_EB, 4.360494E-04_EB, 7.953702E-04_EB, 4.660382E-04_EB, 4.005291E-04_EB, 4.511091E-04_EB, 6.072020E-04_EB, &
     2.759961E-03_EB, 1.062067E-01_EB, 1.215285E-02_EB, 2.640006E-03_EB, 3.656880E-03_EB, 1.938678E-03_EB, 5.487963E-05_EB, &
     1.584875E-02_EB, 2.833951E-01_EB, 3.264932E-01_EB, 1.739356E-02_EB, 5.773845E-03_EB, 4.395147E-02_EB, 1.322632E-05_EB, &
     1.193671E-01_EB, 2.854658E-01_EB, 4.644661E-02_EB, 2.765612E-02_EB, 1.053011E-02_EB, 2.667963E-01_EB, 5.817185E-03_EB, &
     2.623899E-02_EB, 1.875377E-01_EB, 5.240968E-02_EB, 2.355271E-02_EB, 7.559665E-02_EB, 2.293658E-01_EB, 7.216244E-05_EB, &
     5.846743E-03_EB, 2.105678E-01_EB, 2.701368E-01_EB, 2.713083E-02_EB, 1.035818E-02_EB, 3.749967E-02_EB, 8.197520E-05_EB, &
     1.507777E-02_EB, 2.373195E-01_EB, 2.803885E-01_EB, 2.381271E-02_EB, 2.374969E-03_EB, 3.007283E-01_EB, 3.941570E-05_EB, &
     5.460024E-02_EB, 2.148020E-01_EB, 1.102276E-02_EB, 2.048424E-02_EB, 1.381473E-02_EB, 2.265009E-01_EB, &
     1.113763E-04_EB/),(/7,8/))
  
  GAMMAD2_C3H8(1:7,9:16) = RESHAPE((/ &  ! 2750-2925 CM-1
     7.609446E-02_EB, 6.650037E-01_EB, 3.402647E-01_EB, 7.088071E-02_EB, 1.528056E-02_EB, 1.623423E+00_EB, 1.555020E-02_EB, &
     1.068152E-01_EB, 3.599354E-01_EB, 9.327433E-01_EB, 8.061623E-02_EB, 1.044707E-02_EB, 1.207247E+00_EB, 6.148015E-03_EB, &
     1.347777E-01_EB, 1.366370E-01_EB, 1.464407E+00_EB, 8.162167E-02_EB, 3.748354E-02_EB, 6.697765E+00_EB, 5.715348E-02_EB, &
     1.784972E-01_EB, 1.113695E-01_EB, 1.456847E-01_EB, 8.124496E-02_EB, 8.031435E-02_EB, 3.755111E+01_EB, 4.466462E-02_EB, &
     3.769734E-01_EB, 1.378926E-01_EB, 2.066963E-01_EB, 1.647811E-01_EB, 1.988552E-01_EB, 4.888631E+01_EB, 6.856421E-02_EB, &
     1.209828E+00_EB, 4.483110E-01_EB, 4.819971E-01_EB, 3.919982E-01_EB, 3.657716E-01_EB, 4.888633E+01_EB, 1.716140E-01_EB, &
     1.907010E+00_EB, 6.962287E-01_EB, 6.668651E-01_EB, 5.363387E-01_EB, 5.417758E-01_EB, 4.888614E+01_EB, 1.732383E-01_EB, &
     2.035309E+00_EB, 8.005331E-01_EB, 8.689003E-01_EB, 6.922331E-01_EB, 7.737400E-01_EB, 4.888562E+01_EB, &
     3.566562E-01_EB/),(/7,8/))
  
  GAMMAD2_C3H8(1:7,17:24) = RESHAPE((/ &  ! 2950-3125 CM-1
     3.521357E+00_EB, 1.169922E+00_EB, 1.245608E+00_EB, 9.879083E-01_EB, 9.805019E-01_EB, 4.888630E+01_EB, 2.805866E-01_EB, &
     8.194584E+00_EB, 1.715767E+00_EB, 1.407065E+00_EB, 1.043498E+00_EB, 9.327292E-01_EB, 4.888633E+01_EB, 2.729909E-01_EB, &
     9.096142E-01_EB, 9.519580E-01_EB, 6.722470E-01_EB, 5.099619E-01_EB, 4.841140E-01_EB, 4.888628E+01_EB, 2.097093E-01_EB, &
     1.758692E-01_EB, 8.005995E-01_EB, 3.028875E-01_EB, 1.771971E-01_EB, 1.723475E-01_EB, 4.888622E+01_EB, 9.485115E-02_EB, &
     1.552016E-02_EB, 1.106460E+00_EB, 3.508781E-01_EB, 8.578778E-02_EB, 7.481873E-02_EB, 2.362585E+01_EB, 2.190639E-02_EB, &
     8.141419E-03_EB, 2.936549E-01_EB, 1.051647E-01_EB, 3.583341E-02_EB, 8.451454E-02_EB, 4.015433E+00_EB, 4.672611E-03_EB, &
     6.825195E-03_EB, 2.860617E-01_EB, 9.805913E-02_EB, 3.356674E-02_EB, 3.562043E-02_EB, 1.354576E+00_EB, 2.504862E-03_EB, &
     1.731937E-02_EB, 8.103158E-02_EB, 3.656235E-02_EB, 1.650823E-02_EB, 1.716846E-02_EB, 1.104930E+00_EB, &
     1.025944E-03_EB/),(/7,8/))
  
  GAMMAD2_C3H8(1:7,25:32) = RESHAPE((/ &  ! 3150-3325 CM-1
     2.761892E-02_EB, 5.927558E-02_EB, 6.812671E-02_EB, 1.536547E-02_EB, 2.866389E-03_EB, 2.743296E-01_EB, 8.973476E-04_EB, &
     4.898929E-02_EB, 2.217375E-01_EB, 1.147533E-01_EB, 5.759265E-02_EB, 1.511087E-02_EB, 9.820712E-02_EB, 2.297806E-04_EB, &
     1.075239E-02_EB, 9.660209E-02_EB, 7.236142E-02_EB, 1.745200E-02_EB, 1.115524E-02_EB, 1.145421E-01_EB, 4.285123E-05_EB, &
     1.476159E-02_EB, 2.024331E-01_EB, 7.181537E-03_EB, 4.721618E-02_EB, 3.344976E-03_EB, 1.461756E+00_EB, 3.907613E-05_EB, &
     7.912117E-03_EB, 2.082529E-02_EB, 6.432685E-03_EB, 1.913236E-02_EB, 7.216503E-05_EB, 1.281409E-03_EB, 1.568408E-05_EB, &
     5.304482E-04_EB, 1.965226E-03_EB, 8.885309E-04_EB, 1.080202E-02_EB, 6.214399E-04_EB, 2.290412E-04_EB, 1.111330E-05_EB, &
     4.741388E-04_EB, 5.040738E-04_EB, 4.522965E-04_EB, 5.090295E-04_EB, 4.634938E-04_EB, 3.121426E-03_EB, 1.265450E-05_EB, &
     4.771043E-04_EB, 5.489571E-04_EB, 5.406306E-04_EB, 6.198226E-04_EB, 4.746614E-04_EB, 1.079570E-03_EB, &
     2.377068E-05_EB/),(/7,8/))
  
  GAMMAD2_C3H8(1:7,33:34) = RESHAPE((/ &  ! 3350-3375 CM-1
     4.399730E-04_EB, 5.039732E-04_EB, 4.232400E-04_EB, 4.772033E-04_EB, 4.129961E-04_EB, 5.016760E-04_EB, 4.444099E-04_EB, &
     3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, 3.684034E-04_EB, &
     3.684034E-04_EB/),(/7,2/))
  
  !-------------------------PROPYLENE DATA-------------------
  
  
  ! THERE ARE 3 BANDS FOR PROPYLENE
  
  ! BAND #1: 775 CM-1 - 1150 CM-1
  ! BAND #2: 1225 CM-1 - 1975 CM-1
  ! BAND #3: 2650 CM-1 - 3275 CM-1
  
  ALLOCATE(SD_C3H6_TEMP(N_TEMP_C3H6))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR PROPYLENE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C3H6(N_BAND_C3H6,3))
  ALLOCATE(BE_C3H6(N_BAND_C3H6))
  
  OM_BND_C3H6 = RESHAPE((/ &
     775._EB, 1225._EB, 2650._EB, &
     1150._EB, 1975._EB, 3275._EB, &
     5._EB, 25._EB, 25._EB/),(/N_BAND_C3H6,3/))
  
  SD_C3H6_TEMP = (/ &
     296._EB, 390._EB, 444._EB, 491._EB, 594._EB, 793._EB,&
     1003._EB/)
  
  BE_C3H6 = (/ &
     1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C3H6(N_TEMP_C3H6,68))
  
  ! BAND #1: 775 CM-1 - 1150 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.3448 %
  
  SD1_C3H6(1:7,1:8) = RESHAPE((/ &  ! 775-810 CM-1
     2.921820E-04_EB, 1.885331E-04_EB, 1.578479E-04_EB, 1.195361E-04_EB, 1.447279E-04_EB, 1.698242E-04_EB, 3.510553E-04_EB, &
     5.786383E-04_EB, 4.698237E-04_EB, 3.471753E-04_EB, 3.368251E-04_EB, 1.561044E-04_EB, 2.151079E-04_EB, 4.880960E-04_EB, &
     5.146434E-04_EB, 4.282047E-04_EB, 3.953252E-04_EB, 3.606827E-04_EB, 3.453987E-04_EB, 3.100075E-04_EB, 5.373971E-04_EB, &
     1.002033E-03_EB, 3.754947E-04_EB, 3.830171E-04_EB, 3.397481E-04_EB, 4.382293E-03_EB, 1.980601E-04_EB, 4.996406E-04_EB, &
     5.974180E-04_EB, 4.192863E-04_EB, 2.153249E-04_EB, 1.486372E-03_EB, 3.085406E-02_EB, 4.786688E-03_EB, 4.055803E-04_EB, &
     3.186779E-02_EB, 1.217059E-02_EB, 8.908478E-03_EB, 1.366154E-02_EB, 1.604611E-01_EB, 1.277554E-02_EB, 3.868758E-04_EB, &
     2.287860E-02_EB, 1.347562E-02_EB, 1.761538E-02_EB, 1.670141E-02_EB, 3.006989E-01_EB, 1.352943E-02_EB, 4.562671E-04_EB, &
     3.847401E-01_EB, 1.311464E-01_EB, 1.806964E-02_EB, 2.138006E-02_EB, 6.075345E-01_EB, 2.375582E-02_EB, &
     4.382283E-04_EB/),(/7,8/))
  
  SD1_C3H6(1:7,9:16) = RESHAPE((/ &  ! 815-850 CM-1
     3.612608E-01_EB, 3.310333E-02_EB, 2.135533E-02_EB, 6.703345E-02_EB, 3.383135E-01_EB, 3.802107E-02_EB, 1.684642E-03_EB, &
     4.242283E-01_EB, 3.658435E-02_EB, 3.805267E-02_EB, 5.077876E-02_EB, 3.413346E-01_EB, 6.513409E-02_EB, 1.587704E-04_EB, &
     1.644787E-01_EB, 5.568292E-02_EB, 5.486572E-02_EB, 6.891789E-02_EB, 1.332364E-01_EB, 6.265865E-02_EB, 4.187924E-03_EB, &
     7.882443E-02_EB, 7.779061E-02_EB, 7.929456E-02_EB, 1.096667E-01_EB, 1.347277E-01_EB, 9.669708E-02_EB, 2.546892E-02_EB, &
     9.754850E-02_EB, 1.076154E-01_EB, 1.043330E-01_EB, 1.111524E-01_EB, 1.883759E-01_EB, 1.329948E-01_EB, 5.845340E-02_EB, &
     1.538045E-01_EB, 1.691789E-01_EB, 1.519359E-01_EB, 1.496250E-01_EB, 2.160998E-01_EB, 1.631159E-01_EB, 9.210403E-02_EB, &
     2.041607E-01_EB, 2.369334E-01_EB, 1.944714E-01_EB, 2.025469E-01_EB, 2.541597E-01_EB, 1.848773E-01_EB, 1.157566E-01_EB, &
     2.823440E-01_EB, 3.067145E-01_EB, 2.545703E-01_EB, 3.082214E-01_EB, 3.115871E-01_EB, 2.118905E-01_EB, &
     1.367771E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,17:24) = RESHAPE((/ &  ! 855-890 CM-1
     3.934069E-01_EB, 3.902770E-01_EB, 3.324288E-01_EB, 3.655227E-01_EB, 4.852182E-01_EB, 2.278497E-01_EB, 1.418258E-01_EB, &
     5.098671E-01_EB, 4.707600E-01_EB, 3.953366E-01_EB, 4.123636E-01_EB, 5.023609E-01_EB, 3.093041E-01_EB, 2.172109E-01_EB, &
     6.861408E-01_EB, 5.874598E-01_EB, 4.823945E-01_EB, 4.930154E-01_EB, 5.112207E-01_EB, 3.097694E-01_EB, 1.945893E-01_EB, &
     8.621571E-01_EB, 7.069132E-01_EB, 5.626431E-01_EB, 5.778790E-01_EB, 6.253640E-01_EB, 4.501915E-01_EB, 1.364634E-01_EB, &
     1.117672E+00_EB, 8.597340E-01_EB, 6.702957E-01_EB, 6.824590E-01_EB, 6.721777E-01_EB, 4.204596E-01_EB, 2.336953E-01_EB, &
     1.296785E+00_EB, 9.660400E-01_EB, 7.508644E-01_EB, 7.657156E-01_EB, 6.694906E-01_EB, 4.150445E-01_EB, 2.912663E-01_EB, &
     1.612024E+00_EB, 1.132199E+00_EB, 8.825466E-01_EB, 8.439805E-01_EB, 7.306116E-01_EB, 4.492608E-01_EB, 2.586394E-01_EB, &
     1.769679E+00_EB, 1.240089E+00_EB, 9.826761E-01_EB, 9.126471E-01_EB, 7.901846E-01_EB, 4.958428E-01_EB, &
     2.975731E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,25:32) = RESHAPE((/ &  ! 895-930 CM-1
     2.035152E+00_EB, 1.372164E+00_EB, 1.084943E+00_EB, 9.759957E-01_EB, 8.670922E-01_EB, 5.511628E-01_EB, 5.051868E-01_EB, &
     2.110903E+00_EB, 1.411810E+00_EB, 1.107883E+00_EB, 1.032360E+00_EB, 8.891386E-01_EB, 6.607676E-01_EB, 4.105057E-01_EB, &
     2.241734E+00_EB, 1.509671E+00_EB, 1.226689E+00_EB, 1.120333E+00_EB, 1.019009E+00_EB, 6.960237E-01_EB, 6.300682E-01_EB, &
     4.690927E+00_EB, 3.301112E+00_EB, 2.617543E+00_EB, 2.271022E+00_EB, 1.868783E+00_EB, 1.104123E+00_EB, 6.791524E-01_EB, &
     3.538563E+00_EB, 2.596313E+00_EB, 2.151089E+00_EB, 1.982625E+00_EB, 1.674390E+00_EB, 1.121363E+00_EB, 6.319589E-01_EB, &
     2.529174E+00_EB, 1.690171E+00_EB, 1.371477E+00_EB, 1.268574E+00_EB, 1.124475E+00_EB, 7.538665E-01_EB, 4.997968E-01_EB, &
     2.442382E+00_EB, 1.621890E+00_EB, 1.292151E+00_EB, 1.185851E+00_EB, 1.045526E+00_EB, 6.515910E-01_EB, 4.350142E-01_EB, &
     2.359003E+00_EB, 1.574882E+00_EB, 1.255634E+00_EB, 1.148501E+00_EB, 1.005751E+00_EB, 6.742696E-01_EB, &
     4.032512E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,33:40) = RESHAPE((/ &  ! 935-970 CM-1
     2.292826E+00_EB, 1.573504E+00_EB, 1.257992E+00_EB, 1.148404E+00_EB, 9.819016E-01_EB, 6.786328E-01_EB, 3.987199E-01_EB, &
     2.256277E+00_EB, 1.614009E+00_EB, 1.308043E+00_EB, 1.170636E+00_EB, 1.005170E+00_EB, 6.614059E-01_EB, 3.824164E-01_EB, &
     2.128388E+00_EB, 1.579098E+00_EB, 1.312822E+00_EB, 1.165846E+00_EB, 1.012764E+00_EB, 6.750425E-01_EB, 4.478263E-01_EB, &
     2.002676E+00_EB, 1.570187E+00_EB, 1.337531E+00_EB, 1.201187E+00_EB, 1.060851E+00_EB, 6.651784E-01_EB, 5.518473E-01_EB, &
     1.769536E+00_EB, 1.476601E+00_EB, 1.281675E+00_EB, 1.168120E+00_EB, 1.059359E+00_EB, 6.557750E-01_EB, 4.612030E-01_EB, &
     1.513007E+00_EB, 1.314704E+00_EB, 1.154175E+00_EB, 1.078702E+00_EB, 9.708818E-01_EB, 7.985200E-01_EB, 4.095132E-01_EB, &
     1.300819E+00_EB, 1.112939E+00_EB, 9.729632E-01_EB, 9.305722E-01_EB, 9.107075E-01_EB, 6.817647E-01_EB, 3.869006E-01_EB, &
     1.122524E+00_EB, 9.240820E-01_EB, 7.997622E-01_EB, 8.045075E-01_EB, 8.225817E-01_EB, 5.935068E-01_EB, &
     4.076619E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,41:48) = RESHAPE((/ &  ! 975-1010 CM-1
     1.090787E+00_EB, 8.705917E-01_EB, 7.392297E-01_EB, 7.356904E-01_EB, 7.567491E-01_EB, 5.944416E-01_EB, 3.882052E-01_EB, &
     1.097680E+00_EB, 8.498178E-01_EB, 7.146480E-01_EB, 7.049228E-01_EB, 7.300468E-01_EB, 5.868185E-01_EB, 4.235053E-01_EB, &
     1.175184E+00_EB, 9.551431E-01_EB, 8.117959E-01_EB, 7.958744E-01_EB, 7.668238E-01_EB, 5.942202E-01_EB, 4.784101E-01_EB, &
     2.200917E+00_EB, 1.489225E+00_EB, 1.189617E+00_EB, 1.045546E+00_EB, 8.888219E-01_EB, 6.345618E-01_EB, 3.753116E-01_EB, &
     1.026273E+00_EB, 8.138120E-01_EB, 7.081956E-01_EB, 6.489008E-01_EB, 5.962778E-01_EB, 4.346981E-01_EB, 3.144834E-01_EB, &
     8.545948E-01_EB, 6.501326E-01_EB, 5.807415E-01_EB, 5.228005E-01_EB, 5.069268E-01_EB, 3.587344E-01_EB, 2.535124E-01_EB, &
     8.182404E-01_EB, 6.020895E-01_EB, 5.272828E-01_EB, 4.843306E-01_EB, 4.757196E-01_EB, 3.642910E-01_EB, 2.463011E-01_EB, &
     7.867336E-01_EB, 5.627888E-01_EB, 4.859257E-01_EB, 4.529062E-01_EB, 4.373186E-01_EB, 2.999539E-01_EB, &
     2.195520E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,49:56) = RESHAPE((/ &  ! 1015-1050 CM-1
     7.370735E-01_EB, 5.261814E-01_EB, 4.365308E-01_EB, 4.196529E-01_EB, 3.794978E-01_EB, 3.100276E-01_EB, 2.316864E-01_EB, &
     6.545905E-01_EB, 4.754812E-01_EB, 3.879959E-01_EB, 3.680691E-01_EB, 3.486950E-01_EB, 2.537942E-01_EB, 2.192666E-01_EB, &
     5.636151E-01_EB, 4.220184E-01_EB, 3.368352E-01_EB, 3.294973E-01_EB, 3.480874E-01_EB, 2.278502E-01_EB, 1.435619E-01_EB, &
     4.794628E-01_EB, 3.716607E-01_EB, 2.986875E-01_EB, 2.920226E-01_EB, 2.849022E-01_EB, 2.098157E-01_EB, 1.086582E-01_EB, &
     3.987250E-01_EB, 3.273405E-01_EB, 2.706509E-01_EB, 2.488392E-01_EB, 2.796603E-01_EB, 1.937969E-01_EB, 1.318512E-01_EB, &
     3.618884E-01_EB, 3.043278E-01_EB, 2.752540E-01_EB, 2.348242E-01_EB, 2.449431E-01_EB, 1.840862E-01_EB, 1.365370E-01_EB, &
     4.327196E-01_EB, 3.118666E-01_EB, 2.824791E-01_EB, 2.285493E-01_EB, 2.297279E-01_EB, 1.660089E-01_EB, 6.776279E-02_EB, &
     2.158610E-01_EB, 1.711786E-01_EB, 1.890422E-01_EB, 1.508251E-01_EB, 1.710093E-01_EB, 1.189088E-01_EB, &
     3.722276E-01_EB/),(/7,8/))
  
  SD1_C3H6(1:7,57:64) = RESHAPE((/ &  ! 1055-1090 CM-1
     1.808366E-01_EB, 1.285694E-01_EB, 1.347601E-01_EB, 1.159091E-01_EB, 1.328783E-01_EB, 9.806016E-02_EB, 4.385238E-02_EB, &
     1.688521E-01_EB, 1.098959E-01_EB, 9.863147E-02_EB, 1.007307E-01_EB, 1.218736E-01_EB, 1.096671E-01_EB, 3.048481E-02_EB, &
     1.509152E-01_EB, 9.784628E-02_EB, 8.122169E-02_EB, 7.571922E-02_EB, 8.082920E-02_EB, 6.716860E-02_EB, 6.805299E-01_EB, &
     1.236023E-01_EB, 8.420975E-02_EB, 6.449748E-02_EB, 5.721581E-02_EB, 8.699266E-02_EB, 4.794369E-02_EB, 5.275249E-02_EB, &
     1.005482E-01_EB, 7.333190E-02_EB, 5.246391E-02_EB, 4.854230E-02_EB, 8.581595E-02_EB, 3.857051E-02_EB, 1.047535E+00_EB, &
     8.140574E-02_EB, 6.139425E-02_EB, 4.191643E-02_EB, 3.330029E-02_EB, 6.128860E-02_EB, 3.771955E-02_EB, 5.547067E-01_EB, &
     5.876207E-02_EB, 4.748412E-02_EB, 3.403509E-02_EB, 2.491123E-02_EB, 1.741583E-01_EB, 3.685622E-02_EB, 1.173988E+00_EB, &
     5.067589E-02_EB, 3.249100E-02_EB, 3.614176E-02_EB, 1.695154E-02_EB, 5.607839E-02_EB, 4.126856E-02_EB, &
     4.414252E-02_EB/),(/7,8/))
  
  SD1_C3H6(1:7,65:68) = RESHAPE((/ &  ! 1095-1150 CM-1
     3.475507E-02_EB, 1.803126E-02_EB, 2.233876E-01_EB, 1.137397E-02_EB, 1.233139E-02_EB, 2.244437E-02_EB, 3.055494E-04_EB, &
     8.633613E-02_EB, 9.384641E-03_EB, 3.751848E-01_EB, 5.532895E-03_EB, 6.183470E-03_EB, 7.005080E-03_EB, 5.030021E-04_EB, &
     4.004646E-04_EB, 1.996236E-04_EB, 3.332406E-04_EB, 1.767862E-04_EB, 1.467998E-04_EB, 1.391831E-04_EB, 3.497050E-04_EB, &
     1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, &
     1.027560E-04_EB/),(/7,4/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C3H6(N_TEMP_C3H6,68))
  
  ! BAND #1: 775 CM-1 - 1150 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.3448 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C3H6(1:7,1:8) = RESHAPE((/ &  ! 775-810 CM-1
     1.865203E-04_EB, 1.481280E-04_EB, 1.121426E-04_EB, 8.618315E-05_EB, 9.939553E-05_EB, 1.228308E-04_EB, 2.571832E-04_EB, &
     2.784672E-04_EB, 2.629293E-04_EB, 2.613280E-04_EB, 2.166322E-04_EB, 1.060275E-04_EB, 1.512432E-04_EB, 3.364746E-04_EB, &
     3.584490E-04_EB, 2.571836E-04_EB, 2.937264E-04_EB, 2.336679E-04_EB, 2.672244E-04_EB, 2.128761E-04_EB, 2.711168E-04_EB, &
     1.050069E-03_EB, 2.060006E-04_EB, 2.640878E-04_EB, 2.179849E-04_EB, 2.169826E-04_EB, 1.354118E-04_EB, 2.786454E-04_EB, &
     5.631752E-04_EB, 2.967683E-04_EB, 1.474684E-04_EB, 6.104105E-04_EB, 4.865310E-04_EB, 1.882053E-01_EB, 2.951885E-04_EB, &
     8.382309E-05_EB, 1.999192E-03_EB, 2.110707E-01_EB, 2.657106E-03_EB, 4.279171E-04_EB, 8.580741E-01_EB, 2.380492E-04_EB, &
     4.133686E-04_EB, 2.280390E-03_EB, 8.751086E-01_EB, 3.295157E-03_EB, 5.879263E-04_EB, 8.275870E-01_EB, 2.164440E-04_EB, &
     6.177217E-05_EB, 2.052275E-04_EB, 1.783767E+00_EB, 1.180004E-02_EB, 4.686960E-04_EB, 2.654668E+00_EB, &
     2.743441E-04_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,9:16) = RESHAPE((/ &  ! 815-850 CM-1
     1.362853E-04_EB, 9.486143E-03_EB, 2.766580E+00_EB, 2.523733E-03_EB, 1.516289E-03_EB, 8.166695E+00_EB, 1.693790E-01_EB, &
     2.370331E-04_EB, 1.279314E+00_EB, 1.307893E+01_EB, 1.368493E-01_EB, 2.662950E-03_EB, 9.028076E+00_EB, 1.501266E-04_EB, &
     1.605909E-03_EB, 3.888338E+00_EB, 3.291564E+01_EB, 2.430327E+00_EB, 1.840118E-02_EB, 4.830532E+00_EB, 1.460557E-01_EB, &
     1.751757E-02_EB, 7.388926E+00_EB, 6.531922E+01_EB, 9.190465E-02_EB, 7.887271E-02_EB, 7.702450E+00_EB, 3.065075E+00_EB, &
     4.005618E-02_EB, 5.793342E+00_EB, 6.531359E+01_EB, 3.481985E+01_EB, 7.477765E-02_EB, 1.306801E+01_EB, 3.031110E+01_EB, &
     4.670461E-02_EB, 1.511945E-01_EB, 6.531029E+01_EB, 5.058553E+01_EB, 1.162566E-01_EB, 1.593096E+01_EB, 4.345904E+01_EB, &
     6.963672E-02_EB, 1.180935E-01_EB, 6.530489E+01_EB, 8.198354E-01_EB, 1.298311E-01_EB, 4.887623E+01_EB, 4.345787E+01_EB, &
     1.032951E-01_EB, 1.651780E-01_EB, 6.527527E+01_EB, 1.583085E-01_EB, 1.439537E-01_EB, 4.887639E+01_EB, &
     4.345745E+01_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,17:24) = RESHAPE((/ &  ! 855-890 CM-1
     1.554114E-01_EB, 2.463349E-01_EB, 1.552737E+00_EB, 2.489268E-01_EB, 7.175075E-02_EB, 4.877618E+01_EB, 4.344856E+01_EB, &
     2.216480E-01_EB, 3.911085E-01_EB, 6.528132E+01_EB, 4.847826E-01_EB, 1.055938E-01_EB, 7.890568E-01_EB, 4.345834E+01_EB, &
     3.344937E-01_EB, 5.937512E-01_EB, 6.440865E+01_EB, 5.685496E-01_EB, 2.154384E-01_EB, 4.887601E+01_EB, 4.345865E+01_EB, &
     4.563788E-01_EB, 6.544545E-01_EB, 6.527427E+01_EB, 5.645359E-01_EB, 1.603139E-01_EB, 2.220849E-01_EB, 4.345957E+01_EB, &
     6.971662E-01_EB, 8.419195E-01_EB, 6.602209E+00_EB, 6.185587E-01_EB, 2.185881E-01_EB, 1.026546E+00_EB, 4.345911E+01_EB, &
     9.177302E-01_EB, 8.698788E-01_EB, 4.219718E+00_EB, 5.938638E-01_EB, 3.550496E-01_EB, 4.887400E+01_EB, 4.345951E+01_EB, &
     1.024886E+00_EB, 8.931182E-01_EB, 1.906388E+00_EB, 7.671322E-01_EB, 4.049625E-01_EB, 4.886302E+01_EB, 4.345956E+01_EB, &
     1.138590E+00_EB, 8.055441E-01_EB, 1.266173E+00_EB, 7.247405E-01_EB, 4.313090E-01_EB, 2.888925E+00_EB, &
     4.345947E+01_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,25:32) = RESHAPE((/ &  ! 895-930 CM-1
     1.258896E+00_EB, 8.879635E-01_EB, 1.183716E+00_EB, 8.697144E-01_EB, 3.994743E-01_EB, 1.020734E+00_EB, 1.469295E-01_EB, &
     1.489911E+00_EB, 9.449031E-01_EB, 1.364975E+00_EB, 7.600728E-01_EB, 4.690280E-01_EB, 5.532825E-01_EB, 2.320330E+01_EB, &
     1.791634E+00_EB, 1.068040E+00_EB, 1.344772E+00_EB, 1.025605E+00_EB, 5.570787E-01_EB, 4.887568E+01_EB, 1.866191E-01_EB, &
     6.582008E-01_EB, 6.151496E-01_EB, 7.320593E-01_EB, 7.674633E-01_EB, 5.984986E-01_EB, 1.256776E+00_EB, 1.505021E+00_EB, &
     8.496429E-01_EB, 6.647729E-01_EB, 8.138054E-01_EB, 6.996761E-01_EB, 6.263920E-01_EB, 7.887495E-01_EB, 4.345957E+01_EB, &
     2.585850E+00_EB, 1.312862E+00_EB, 1.669178E+00_EB, 1.005278E+00_EB, 5.484994E-01_EB, 1.645085E+00_EB, 4.301288E+01_EB, &
     2.304432E+00_EB, 1.337031E+00_EB, 1.903523E+00_EB, 1.080752E+00_EB, 4.772959E-01_EB, 4.887638E+01_EB, 3.954397E+01_EB, &
     2.284405E+00_EB, 1.252628E+00_EB, 1.761317E+00_EB, 1.081162E+00_EB, 5.126407E-01_EB, 9.460859E-01_EB, &
     4.345934E+01_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,33:40) = RESHAPE((/ &  ! 935-970 CM-1
     2.011991E+00_EB, 1.160491E+00_EB, 1.606206E+00_EB, 1.044964E+00_EB, 6.166918E-01_EB, 8.541470E-01_EB, 4.345947E+01_EB, &
     1.951894E+00_EB, 1.077050E+00_EB, 1.340221E+00_EB, 1.005762E+00_EB, 5.377001E-01_EB, 1.813695E+00_EB, 4.345915E+01_EB, &
     1.862497E+00_EB, 1.110545E+00_EB, 1.226215E+00_EB, 1.004332E+00_EB, 5.640741E-01_EB, 1.260546E+00_EB, 2.061631E+01_EB, &
     1.735085E+00_EB, 1.152792E+00_EB, 1.235271E+00_EB, 1.029092E+00_EB, 5.304049E-01_EB, 3.364825E+00_EB, 4.109795E-01_EB, &
     1.514333E+00_EB, 1.096526E+00_EB, 1.190673E+00_EB, 9.738878E-01_EB, 4.991815E-01_EB, 2.598609E+01_EB, 4.345955E+01_EB, &
     1.323596E+00_EB, 1.020536E+00_EB, 1.276590E+00_EB, 9.362680E-01_EB, 5.648663E-01_EB, 3.325554E-01_EB, 4.345900E+01_EB, &
     1.090160E+00_EB, 8.522171E-01_EB, 1.383531E+00_EB, 8.696999E-01_EB, 3.985636E-01_EB, 6.142456E-01_EB, 4.345952E+01_EB, &
     9.568718E-01_EB, 7.965634E-01_EB, 2.061656E+00_EB, 6.937459E-01_EB, 3.185588E-01_EB, 1.043529E+00_EB, &
     4.345956E+01_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,41:48) = RESHAPE((/ &  ! 975-1010 CM-1
     8.780028E-01_EB, 7.171719E-01_EB, 1.797413E+00_EB, 7.191605E-01_EB, 3.123087E-01_EB, 5.370041E-01_EB, 6.031057E-01_EB, &
     7.683322E-01_EB, 6.697888E-01_EB, 1.564974E+00_EB, 6.922381E-01_EB, 2.866901E-01_EB, 6.100381E-01_EB, 5.296325E-01_EB, &
     7.710645E-01_EB, 6.686977E-01_EB, 1.316990E+00_EB, 7.356423E-01_EB, 3.962548E-01_EB, 7.103715E-01_EB, 3.121685E-01_EB, &
     7.152139E-01_EB, 7.181107E-01_EB, 9.272079E-01_EB, 7.998523E-01_EB, 4.476511E-01_EB, 4.403214E-01_EB, 1.432304E+00_EB, &
     7.215480E-01_EB, 5.222809E-01_EB, 7.034660E-01_EB, 5.939143E-01_EB, 3.557110E-01_EB, 7.369583E+00_EB, 4.343647E+01_EB, &
     7.509675E-01_EB, 5.541920E-01_EB, 6.013325E-01_EB, 5.827632E-01_EB, 2.516345E-01_EB, 4.887235E+01_EB, 4.345657E+01_EB, &
     6.655689E-01_EB, 5.909646E-01_EB, 7.175681E-01_EB, 5.191324E-01_EB, 2.139999E-01_EB, 4.270810E-01_EB, 3.186474E+00_EB, &
     5.936443E-01_EB, 6.111940E-01_EB, 8.318915E-01_EB, 4.526249E-01_EB, 2.171504E-01_EB, 4.874889E+01_EB, &
     4.345936E+01_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,49:56) = RESHAPE((/ &  ! 1015-1050 CM-1
     5.108597E-01_EB, 5.449935E-01_EB, 1.467166E+00_EB, 4.175570E-01_EB, 2.800624E-01_EB, 2.807650E-01_EB, 1.226529E-01_EB, &
     4.396741E-01_EB, 4.212443E-01_EB, 1.991238E+00_EB, 4.853656E-01_EB, 1.994488E-01_EB, 3.606763E+00_EB, 1.195304E-01_EB, &
     3.521564E-01_EB, 3.419630E-01_EB, 9.696171E+00_EB, 3.944128E-01_EB, 1.086559E-01_EB, 4.887097E+01_EB, 4.345940E+01_EB, &
     2.826655E-01_EB, 2.596188E-01_EB, 1.720670E+00_EB, 3.339207E-01_EB, 1.507599E-01_EB, 1.947669E+00_EB, 4.345956E+01_EB, &
     2.103926E-01_EB, 1.918390E-01_EB, 5.187904E-01_EB, 5.571757E-01_EB, 8.852491E-02_EB, 1.040530E+00_EB, 4.345956E+01_EB, &
     2.190684E-01_EB, 2.166025E-01_EB, 2.770976E-01_EB, 6.790640E-01_EB, 1.398958E-01_EB, 4.887609E+01_EB, 1.273985E+01_EB, &
     2.372381E-01_EB, 2.099844E-01_EB, 1.691730E-01_EB, 3.370993E-01_EB, 9.039351E-02_EB, 5.560844E-01_EB, 3.729305E+01_EB, &
     1.338894E-01_EB, 2.270514E-01_EB, 8.598819E-02_EB, 2.237195E-01_EB, 4.915478E-02_EB, 3.404705E+01_EB, &
     2.634276E-03_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,57:64) = RESHAPE((/ &  ! 1055-1090 CM-1
     8.590987E-02_EB, 2.939130E-01_EB, 1.322061E-01_EB, 2.325564E-01_EB, 4.121415E-02_EB, 1.890644E+01_EB, 6.653137E+00_EB, &
     5.828702E-02_EB, 1.919845E-01_EB, 3.558396E+00_EB, 8.935135E-02_EB, 2.151974E-02_EB, 1.813839E-02_EB, 5.291639E+00_EB, &
     4.560095E-02_EB, 8.801874E-02_EB, 4.240838E+00_EB, 1.971226E-01_EB, 2.805033E-02_EB, 3.159379E-01_EB, 4.231868E-04_EB, &
     5.236543E-02_EB, 4.750499E-02_EB, 7.719299E+00_EB, 2.230632E+00_EB, 1.029862E-02_EB, 3.970081E+00_EB, 1.254647E-02_EB, &
     4.584112E-02_EB, 2.781221E-02_EB, 3.521327E+00_EB, 1.069332E-01_EB, 5.513817E-03_EB, 7.390687E-01_EB, 8.785510E-05_EB, &
     2.952585E-02_EB, 1.659069E-02_EB, 1.232312E+00_EB, 1.610279E+00_EB, 3.746132E-03_EB, 1.888989E-02_EB, 1.172808E-05_EB, &
     2.783898E-02_EB, 1.191524E-02_EB, 1.737513E-01_EB, 6.337914E-01_EB, 3.927326E-04_EB, 1.256543E-02_EB, 9.593758E-05_EB, &
     1.161773E-02_EB, 1.234249E-02_EB, 7.173288E-03_EB, 4.651250E-01_EB, 6.905694E-04_EB, 6.625808E-03_EB, &
     1.875822E-05_EB/),(/7,8/))
  
  GAMMAD1_C3H6(1:7,65:68) = RESHAPE((/ &  ! 1095-1150 CM-1
     7.371375E-03_EB, 3.892307E-02_EB, 2.066948E-04_EB, 2.148055E-01_EB, 5.123043E-03_EB, 8.826795E-03_EB, 1.519386E-04_EB, &
     1.685293E-04_EB, 4.052437E-02_EB, 5.766893E-05_EB, 1.099394E-01_EB, 1.056916E-02_EB, 3.703491E-03_EB, 4.534644E-04_EB, &
     2.576720E-04_EB, 1.502775E-04_EB, 2.394291E-04_EB, 1.106949E-04_EB, 1.070129E-04_EB, 1.035473E-04_EB, 2.424308E-04_EB, &
     8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, &
     8.047518E-05_EB/),(/7,4/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C3H6(N_TEMP_C3H6,31))
  
  ! BAND #2: 1225 CM-1 - 1975 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.89939 %
  
  SD2_C3H6(1:7,1:8) = RESHAPE((/ &  ! 1225-1400 CM-1
     3.558545E-04_EB, 3.234771E-04_EB, 3.304950E-04_EB, 1.651299E-04_EB, 1.336215E-04_EB, 1.510735E-04_EB, 1.993574E-04_EB, &
     6.741050E-04_EB, 3.773009E-04_EB, 4.527377E-04_EB, 3.445857E-04_EB, 2.150432E-04_EB, 3.112911E-04_EB, 3.405452E-03_EB, &
     8.500802E-04_EB, 5.928536E-03_EB, 5.109505E-02_EB, 5.939970E-03_EB, 5.544562E-03_EB, 4.216340E-02_EB, 7.821472E-02_EB, &
     6.900284E-04_EB, 1.754929E-02_EB, 1.351477E-01_EB, 1.875618E-02_EB, 1.689271E-02_EB, 5.437608E-01_EB, 8.042160E-02_EB, &
     6.597844E-03_EB, 3.076774E-02_EB, 7.267186E-02_EB, 3.875256E-02_EB, 4.198566E-02_EB, 1.377841E-01_EB, 4.353146E-02_EB, &
     1.425388E-01_EB, 7.292994E-02_EB, 1.006956E-01_EB, 8.530846E-02_EB, 8.207286E-02_EB, 1.024217E-01_EB, 9.040341E-02_EB, &
     2.757070E-01_EB, 2.011514E-01_EB, 2.183300E-01_EB, 1.901067E-01_EB, 1.708424E-01_EB, 1.802992E-01_EB, 1.306124E-01_EB, &
     5.487648E-01_EB, 3.944423E-01_EB, 3.612309E-01_EB, 3.179025E-01_EB, 2.635343E-01_EB, 2.207712E-01_EB, &
     1.537228E-01_EB/),(/7,8/))
  
  SD2_C3H6(1:7,9:16) = RESHAPE((/ &  ! 1425-1600 CM-1
     7.347914E-01_EB, 4.838524E-01_EB, 4.349597E-01_EB, 3.807440E-01_EB, 3.206784E-01_EB, 2.496395E-01_EB, 1.756546E-01_EB, &
     1.230079E+00_EB, 7.176913E-01_EB, 5.767768E-01_EB, 4.861231E-01_EB, 3.530715E-01_EB, 2.411707E-01_EB, 1.663700E-01_EB, &
     1.076204E+00_EB, 6.242017E-01_EB, 5.169408E-01_EB, 4.238453E-01_EB, 3.142849E-01_EB, 2.371514E-01_EB, 1.547102E-01_EB, &
     4.989020E-01_EB, 3.259007E-01_EB, 2.647985E-01_EB, 2.506597E-01_EB, 2.113725E-01_EB, 1.667162E-01_EB, 1.268622E-01_EB, &
     3.050060E-01_EB, 1.549283E-01_EB, 1.437705E-01_EB, 1.418842E-01_EB, 1.284408E-01_EB, 1.165257E-01_EB, 1.181179E-01_EB, &
     2.901797E-01_EB, 1.013263E-01_EB, 8.839726E-02_EB, 9.945842E-02_EB, 9.936424E-02_EB, 9.382087E-02_EB, 1.109026E-01_EB, &
     9.170595E-01_EB, 1.077723E-01_EB, 1.126792E-01_EB, 1.012963E-01_EB, 1.008830E-01_EB, 1.343878E-01_EB, 1.433742E-01_EB, &
     1.723540E+00_EB, 1.340775E-01_EB, 1.803447E-01_EB, 1.684967E-01_EB, 1.917971E-01_EB, 2.426751E-01_EB, &
     1.993900E-01_EB/),(/7,8/))
  
  SD2_C3H6(1:7,17:24) = RESHAPE((/ &  ! 1625-1800 CM-1
     7.534624E-01_EB, 5.257745E-01_EB, 4.873627E-01_EB, 4.420277E-01_EB, 3.752945E-01_EB, 2.872981E-01_EB, 2.158678E-01_EB, &
     1.173360E+00_EB, 6.714563E-01_EB, 5.383806E-01_EB, 4.764335E-01_EB, 3.802518E-01_EB, 2.635373E-01_EB, 1.882440E-01_EB, &
     7.574636E-01_EB, 4.662984E-01_EB, 4.191013E-01_EB, 3.278277E-01_EB, 2.460639E-01_EB, 1.547873E-01_EB, 1.018707E-01_EB, &
     3.622467E-02_EB, 3.135298E-02_EB, 1.070575E-02_EB, 1.197498E-02_EB, 2.172120E-02_EB, 1.437764E-02_EB, 1.246169E-02_EB, &
     6.790247E-04_EB, 4.477004E-04_EB, 4.003496E-04_EB, 2.372342E-03_EB, 2.112353E-04_EB, 1.899291E-04_EB, 4.337606E-04_EB, &
     6.821738E-04_EB, 3.841181E-04_EB, 4.398296E-04_EB, 9.336168E-04_EB, 3.215112E-04_EB, 1.577836E-03_EB, 1.387750E-03_EB, &
     5.357513E-03_EB, 9.513971E-03_EB, 9.586573E-03_EB, 1.177708E-02_EB, 1.894358E-02_EB, 1.778693E-02_EB, 2.131572E-02_EB, &
     1.558459E-01_EB, 1.086936E-01_EB, 1.035246E-01_EB, 8.484628E-02_EB, 7.171917E-02_EB, 5.505700E-02_EB, &
     3.996848E-02_EB/),(/7,8/))
  
  SD2_C3H6(1:7,25:31) = RESHAPE((/ &  ! 1825-1975 CM-1
     2.622036E-01_EB, 1.516085E-01_EB, 1.303312E-01_EB, 1.109721E-01_EB, 9.231520E-02_EB, 7.419268E-02_EB, 4.811877E-02_EB, &
     1.824093E-01_EB, 1.314846E-01_EB, 1.287875E-01_EB, 9.898525E-02_EB, 8.120577E-02_EB, 6.960379E-02_EB, 4.479529E-02_EB, &
     4.747023E-02_EB, 3.221598E-02_EB, 3.332202E-02_EB, 2.756103E-02_EB, 2.423984E-02_EB, 2.922304E-02_EB, 1.964140E-02_EB, &
     1.531867E-02_EB, 9.915829E-03_EB, 3.275042E-02_EB, 4.962254E-03_EB, 3.664153E-03_EB, 1.736865E-03_EB, 2.806612E-03_EB, &
     1.672196E-03_EB, 6.907827E-04_EB, 9.686969E-04_EB, 4.056228E-04_EB, 1.810253E-04_EB, 2.048415E-04_EB, 3.860056E-04_EB, &
     4.937814E-04_EB, 1.785822E-04_EB, 3.303675E-04_EB, 1.807431E-04_EB, 1.381312E-04_EB, 1.579684E-04_EB, 2.163472E-04_EB, &
     1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, &
     1.027560E-04_EB/),(/7,7/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C3H6(N_TEMP_C3H6,31))
  
  ! BAND #2: 1225 CM-1 - 1975 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.89939 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C3H6(1:7,1:8) = RESHAPE((/ &  ! 1225-1400 CM-1
     2.622715E-04_EB, 2.415333E-04_EB, 2.285633E-04_EB, 1.138182E-04_EB, 1.023912E-04_EB, 1.165998E-04_EB, 1.100001E-04_EB, &
     5.083865E-04_EB, 2.678443E-04_EB, 3.093172E-04_EB, 2.072846E-04_EB, 1.338274E-04_EB, 2.187271E-04_EB, 3.932176E-03_EB, &
     5.760161E-04_EB, 3.452147E-02_EB, 1.478839E-04_EB, 3.228596E-03_EB, 3.197521E-03_EB, 2.939038E-05_EB, 1.383337E-03_EB, &
     4.544833E-04_EB, 8.199799E-02_EB, 3.788188E-04_EB, 1.070417E-02_EB, 1.812632E-02_EB, 7.216282E-05_EB, 3.552942E-03_EB, &
     4.941401E-04_EB, 7.477210E-02_EB, 2.805114E-03_EB, 1.723863E-02_EB, 2.045615E-02_EB, 2.807456E-03_EB, 4.838154E+00_EB, &
     3.708619E-03_EB, 1.501171E-01_EB, 2.088233E-02_EB, 5.723047E-02_EB, 2.236513E-01_EB, 5.128140E-02_EB, 4.345874E+01_EB, &
     5.695155E-02_EB, 2.842757E-01_EB, 8.565045E-02_EB, 1.664632E-01_EB, 2.596688E-01_EB, 6.733220E-02_EB, 4.345955E+01_EB, &
     1.810625E-01_EB, 3.644158E-01_EB, 2.284041E-01_EB, 2.941351E-01_EB, 2.787627E-01_EB, 1.246260E-01_EB, &
     4.345946E+01_EB/),(/7,8/))
  
  GAMMAD2_C3H6(1:7,9:16) = RESHAPE((/ &  ! 1425-1600 CM-1
     2.618227E-01_EB, 4.657918E-01_EB, 2.858630E-01_EB, 3.534168E-01_EB, 2.920606E-01_EB, 2.314596E-01_EB, 4.345293E+01_EB, &
     4.735753E-01_EB, 5.151092E-01_EB, 4.261774E-01_EB, 3.947653E-01_EB, 3.773149E-01_EB, 1.853547E-01_EB, 4.343606E+01_EB, &
     4.430151E-01_EB, 5.018903E-01_EB, 3.534603E-01_EB, 4.029514E-01_EB, 3.684172E-01_EB, 1.453836E-01_EB, 4.345940E+01_EB, &
     1.212938E-01_EB, 3.173309E-01_EB, 1.209401E+00_EB, 3.624133E-01_EB, 2.461181E-01_EB, 2.905692E-01_EB, 4.345952E+01_EB, &
     1.084288E-02_EB, 1.935743E-01_EB, 3.826811E-01_EB, 2.209504E-01_EB, 3.384784E-01_EB, 5.030323E+00_EB, 4.314517E+00_EB, &
     3.502530E-03_EB, 4.235158E-01_EB, 4.492198E+01_EB, 4.178424E-01_EB, 3.215097E-01_EB, 1.976012E+01_EB, 3.306259E+01_EB, &
     9.195743E-04_EB, 5.344729E-02_EB, 3.856228E-02_EB, 8.090926E-02_EB, 1.993074E-01_EB, 8.752817E-02_EB, 4.345936E+01_EB, &
     5.991440E-04_EB, 1.174575E-01_EB, 4.116301E-02_EB, 1.163800E-01_EB, 2.048843E-01_EB, 1.170091E-01_EB, &
     4.345936E+01_EB/),(/7,8/))
  
  GAMMAD2_C3H6(1:7,17:24) = RESHAPE((/ &  ! 1625-1800 CM-1
     1.048318E-01_EB, 4.077170E-01_EB, 3.250763E-01_EB, 4.204265E-01_EB, 4.172624E-01_EB, 3.501140E-01_EB, 4.345754E+01_EB, &
     3.891245E-01_EB, 5.297782E-01_EB, 5.753653E-01_EB, 4.671660E-01_EB, 3.550334E-01_EB, 5.129497E-01_EB, 1.852430E+01_EB, &
     1.315391E-01_EB, 2.233168E-01_EB, 1.643737E-01_EB, 2.846889E-01_EB, 2.529524E-01_EB, 5.109478E-01_EB, 5.217994E+00_EB, &
     2.202200E-04_EB, 6.992095E-05_EB, 6.651429E-02_EB, 1.261036E-01_EB, 2.793432E-04_EB, 3.400065E-01_EB, 2.976967E-01_EB, &
     4.407006E-04_EB, 3.060631E-04_EB, 3.078173E-04_EB, 1.997468E-02_EB, 1.414429E-04_EB, 1.272939E-04_EB, 2.920596E-04_EB, &
     4.075042E-04_EB, 2.572692E-04_EB, 2.809507E-04_EB, 7.570268E-04_EB, 2.248097E-04_EB, 6.557878E-04_EB, 1.214879E-02_EB, &
     5.533543E-04_EB, 2.280793E-03_EB, 5.727351E-03_EB, 1.258039E-01_EB, 2.877495E-03_EB, 1.528211E-01_EB, 3.641746E-01_EB, &
     2.750324E-02_EB, 5.042429E-02_EB, 3.703191E-02_EB, 1.112856E-01_EB, 1.394191E-01_EB, 2.852003E-01_EB, &
     5.289596E+00_EB/),(/7,8/))
  
  GAMMAD2_C3H6(1:7,25:31) = RESHAPE((/ &  ! 1825-1975 CM-1
     1.249123E-01_EB, 1.287617E-01_EB, 8.856076E-02_EB, 1.063268E-01_EB, 6.381303E-02_EB, 3.721067E-02_EB, 1.078497E+01_EB, &
     9.224931E-02_EB, 7.783664E-02_EB, 4.282341E-02_EB, 1.077656E-01_EB, 9.668966E-02_EB, 3.557773E-02_EB, 4.459730E+00_EB, &
     1.094300E-02_EB, 1.484660E-02_EB, 1.474169E-02_EB, 2.868794E-02_EB, 2.363462E-02_EB, 7.563694E-03_EB, 9.480691E-01_EB, &
     3.143676E-03_EB, 1.423552E-03_EB, 2.803890E-04_EB, 1.197387E-02_EB, 1.810420E-03_EB, 9.517693E-04_EB, 1.253779E-03_EB, &
     9.700043E-04_EB, 5.310996E-04_EB, 3.238508E-04_EB, 2.462185E-04_EB, 1.221073E-04_EB, 1.352439E-04_EB, 2.806980E-04_EB, &
     3.482794E-04_EB, 1.171460E-04_EB, 2.319252E-04_EB, 1.036437E-04_EB, 1.041061E-04_EB, 1.117176E-04_EB, 1.472074E-04_EB, &
     8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, &
     8.047518E-05_EB/),(/7,7/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_C3H6(N_TEMP_C3H6,26))
  
  ! BAND #3: 2650 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.84732 %
  
  SD3_C3H6(1:7,1:8) = RESHAPE((/ &  ! 2650-2825 CM-1
     9.842396E-04_EB, 9.773581E-04_EB, 4.737803E-04_EB, 1.731125E-04_EB, 1.636141E-04_EB, 1.470685E-04_EB, 1.906099E-04_EB, &
     2.026987E-03_EB, 1.186057E-03_EB, 9.296802E-04_EB, 1.762232E-03_EB, 6.242290E-04_EB, 2.052893E-03_EB, 1.454807E-02_EB, &
     1.375163E-02_EB, 8.857038E-03_EB, 1.157316E-02_EB, 1.514073E-02_EB, 7.647375E-03_EB, 2.028955E-02_EB, 7.263667E-02_EB, &
     6.091687E-02_EB, 3.794720E-02_EB, 3.692778E-02_EB, 3.669497E-02_EB, 2.246508E-02_EB, 2.837078E-02_EB, 4.660372E-02_EB, &
     7.796068E-02_EB, 5.480320E-02_EB, 5.466178E-02_EB, 5.561425E-02_EB, 3.895555E-02_EB, 4.987873E-02_EB, 5.885558E-02_EB, &
     5.994425E-02_EB, 4.512610E-02_EB, 5.182436E-02_EB, 5.600091E-02_EB, 4.405629E-02_EB, 5.968023E-02_EB, 9.479119E-02_EB, &
     9.789297E-02_EB, 7.603902E-02_EB, 8.316338E-02_EB, 8.497910E-02_EB, 7.201492E-02_EB, 9.033387E-02_EB, 1.461816E-01_EB, &
     1.180654E-01_EB, 1.124261E-01_EB, 1.279063E-01_EB, 1.423319E-01_EB, 1.323416E-01_EB, 1.543846E-01_EB, &
     1.754013E-01_EB/),(/7,8/))
  
  SD3_C3H6(1:7,9:16) = RESHAPE((/ &  ! 2850-3025 CM-1
     4.934323E-01_EB, 3.715076E-01_EB, 3.606179E-01_EB, 3.406474E-01_EB, 2.903159E-01_EB, 2.686381E-01_EB, 2.632060E-01_EB, &
     9.542159E-01_EB, 7.012988E-01_EB, 6.454962E-01_EB, 5.929394E-01_EB, 5.042463E-01_EB, 4.353109E-01_EB, 4.219635E-01_EB, &
     1.390515E+00_EB, 1.083207E+00_EB, 1.007094E+00_EB, 9.304473E-01_EB, 8.055580E-01_EB, 6.623870E-01_EB, 5.866959E-01_EB, &
     2.165889E+00_EB, 1.557403E+00_EB, 1.377848E+00_EB, 1.234664E+00_EB, 1.013037E+00_EB, 7.883431E-01_EB, 6.628056E-01_EB, &
     2.955798E+00_EB, 2.081509E+00_EB, 1.819270E+00_EB, 1.598535E+00_EB, 1.286353E+00_EB, 9.640864E-01_EB, 7.596691E-01_EB, &
     2.749633E+00_EB, 1.810398E+00_EB, 1.545370E+00_EB, 1.334588E+00_EB, 1.045362E+00_EB, 8.023541E-01_EB, 6.307507E-01_EB, &
     2.482580E+00_EB, 1.760628E+00_EB, 1.526249E+00_EB, 1.327667E+00_EB, 1.049659E+00_EB, 7.936791E-01_EB, 6.269325E-01_EB, &
     1.476540E+00_EB, 1.169856E+00_EB, 1.094611E+00_EB, 9.890179E-01_EB, 8.496338E-01_EB, 7.194488E-01_EB, &
     6.198264E-01_EB/),(/7,8/))
  
  SD3_C3H6(1:7,17:24) = RESHAPE((/ &  ! 3050-3225 CM-1
     1.158768E+00_EB, 9.970946E-01_EB, 9.717818E-01_EB, 9.018919E-01_EB, 8.089673E-01_EB, 6.965923E-01_EB, 5.756752E-01_EB, &
     1.617699E+00_EB, 1.161452E+00_EB, 1.056867E+00_EB, 9.368936E-01_EB, 7.790857E-01_EB, 6.211223E-01_EB, 4.978033E-01_EB, &
     1.668409E+00_EB, 1.154363E+00_EB, 1.028890E+00_EB, 8.900880E-01_EB, 7.204607E-01_EB, 5.621992E-01_EB, 4.193038E-01_EB, &
     6.627374E-01_EB, 5.511257E-01_EB, 5.408762E-01_EB, 4.741726E-01_EB, 4.065990E-01_EB, 3.500514E-01_EB, 2.603275E-01_EB, &
     1.943149E-01_EB, 1.812675E-01_EB, 1.997641E-01_EB, 1.725390E-01_EB, 1.584383E-01_EB, 1.668560E-01_EB, 1.239099E-01_EB, &
     3.848101E-02_EB, 4.502827E-02_EB, 8.182965E-02_EB, 6.478508E-02_EB, 6.632017E-02_EB, 7.060523E-02_EB, 5.939407E-02_EB, &
     1.823763E-02_EB, 6.889882E-03_EB, 9.139773E-02_EB, 8.162446E-02_EB, 2.475465E-02_EB, 3.168406E-02_EB, 1.903134E-02_EB, &
     6.725369E-04_EB, 3.888602E-04_EB, 1.980271E-01_EB, 3.039167E-02_EB, 1.104407E-02_EB, 1.220321E-02_EB, &
     4.484167E-03_EB/),(/7,8/))
  
  SD3_C3H6(1:7,25:26) = RESHAPE((/ &  ! 3250-3275 CM-1
     4.840794E-04_EB, 3.312870E-04_EB, 5.789111E-03_EB, 3.214095E-03_EB, 3.311342E-03_EB, 2.947009E-03_EB, 1.302455E-04_EB, &
     1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, 1.027560E-04_EB, &
     1.027560E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_C3H6(N_TEMP_C3H6,26))
  
  ! BAND #3: 2650 CM-1 - 3275 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.84732 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_C3H6(1:7,1:8) = RESHAPE((/ &  ! 2650-2825 CM-1
     3.045289E-04_EB, 1.015641E-03_EB, 3.935463E-04_EB, 1.154192E-04_EB, 1.194489E-04_EB, 1.102285E-04_EB, 1.137523E-04_EB, &
     5.888900E-04_EB, 1.065118E-03_EB, 5.931355E-04_EB, 8.588542E-04_EB, 5.730959E-04_EB, 5.277001E-04_EB, 2.327868E-03_EB, &
     3.553832E-03_EB, 5.225375E-02_EB, 5.508119E-03_EB, 3.764204E-03_EB, 6.360672E-02_EB, 6.490060E-04_EB, 1.126737E-03_EB, &
     3.234273E-02_EB, 6.202832E-02_EB, 1.838655E-02_EB, 1.292609E-02_EB, 1.730868E-01_EB, 7.897375E-03_EB, 1.175871E-02_EB, &
     5.722213E-02_EB, 8.665120E-02_EB, 3.332681E-02_EB, 1.901355E-02_EB, 3.938769E-02_EB, 7.412539E-03_EB, 2.819413E-02_EB, &
     3.022697E-02_EB, 1.129809E-01_EB, 2.531468E-02_EB, 1.970225E-02_EB, 5.471032E-02_EB, 2.097209E-02_EB, 2.390018E-02_EB, &
     5.826107E-02_EB, 1.114796E-01_EB, 3.749457E-02_EB, 3.774872E-02_EB, 1.009734E-01_EB, 4.970945E-02_EB, 3.868475E-02_EB, &
     7.083218E-02_EB, 1.686291E-01_EB, 7.156561E-02_EB, 6.619537E-02_EB, 2.202441E-01_EB, 1.169745E-01_EB, &
     3.834597E-01_EB/),(/7,8/))
  
  GAMMAD3_C3H6(1:7,9:16) = RESHAPE((/ &  ! 2850-3025 CM-1
     2.387749E-01_EB, 3.465833E-01_EB, 1.768091E-01_EB, 2.165351E-01_EB, 3.664688E-01_EB, 2.483037E-01_EB, 8.926665E-01_EB, &
     5.324178E-01_EB, 5.980304E-01_EB, 3.793473E-01_EB, 4.509406E-01_EB, 5.538922E-01_EB, 4.079465E-01_EB, 5.945021E-01_EB, &
     8.715520E-01_EB, 9.293503E-01_EB, 6.306967E-01_EB, 7.198743E-01_EB, 7.551117E-01_EB, 6.154785E-01_EB, 8.223511E-01_EB, &
     1.499464E+00_EB, 1.399873E+00_EB, 9.866448E-01_EB, 1.025786E+00_EB, 9.581477E-01_EB, 7.125299E-01_EB, 1.107012E+00_EB, &
     2.156257E+00_EB, 1.637737E+00_EB, 1.241655E+00_EB, 1.280306E+00_EB, 1.138186E+00_EB, 8.441688E-01_EB, 1.384899E+00_EB, &
     3.002594E+00_EB, 1.714061E+00_EB, 1.257507E+00_EB, 1.172490E+00_EB, 1.028409E+00_EB, 6.569541E-01_EB, 2.100100E+00_EB, &
     2.734771E+00_EB, 1.525371E+00_EB, 1.227801E+00_EB, 1.124537E+00_EB, 1.012834E+00_EB, 6.561761E-01_EB, 1.786964E+00_EB, &
     1.391166E+00_EB, 1.039743E+00_EB, 8.609837E-01_EB, 8.549996E-01_EB, 8.423802E-01_EB, 6.266077E-01_EB, &
     1.102257E+00_EB/),(/7,8/))
  
  GAMMAD3_C3H6(1:7,17:24) = RESHAPE((/ &  ! 3050-3225 CM-1
     8.645946E-01_EB, 9.364314E-01_EB, 7.448637E-01_EB, 7.668057E-01_EB, 7.630071E-01_EB, 5.882839E-01_EB, 1.479949E+00_EB, &
     1.230685E+00_EB, 1.046279E+00_EB, 7.526449E-01_EB, 7.500084E-01_EB, 7.007694E-01_EB, 5.329368E-01_EB, 1.354177E+00_EB, &
     1.587192E+00_EB, 9.549637E-01_EB, 7.345138E-01_EB, 6.867975E-01_EB, 5.981748E-01_EB, 4.326344E-01_EB, 4.822820E+00_EB, &
     6.944559E-01_EB, 3.901526E-01_EB, 3.458891E-01_EB, 3.287273E-01_EB, 2.870524E-01_EB, 2.152839E-01_EB, 4.345222E+01_EB, &
     1.550994E-01_EB, 1.096247E-01_EB, 1.314631E-01_EB, 1.210936E-01_EB, 1.139491E-01_EB, 5.956151E-02_EB, 3.313368E+01_EB, &
     2.202410E-02_EB, 2.065956E-02_EB, 1.775205E-02_EB, 2.386698E-02_EB, 3.888119E-02_EB, 2.898450E-02_EB, 2.058336E+00_EB, &
     1.065388E-04_EB, 1.920534E-03_EB, 6.158394E-04_EB, 4.540651E-04_EB, 1.753716E-02_EB, 7.274816E-03_EB, 1.007187E+00_EB, &
     4.230956E-04_EB, 2.525852E-04_EB, 8.709782E-05_EB, 2.954917E-04_EB, 5.762183E-03_EB, 3.267777E-03_EB, &
     1.887507E-02_EB/),(/7,8/))
  
  GAMMAD3_C3H6(1:7,25:26) = RESHAPE((/ &  ! 3250-3275 CM-1
     3.563014E-04_EB, 2.388188E-04_EB, 5.650871E-04_EB, 1.353722E-03_EB, 1.592126E-03_EB, 7.501643E-04_EB, 1.070038E-04_EB, &
     8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, 8.047518E-05_EB, &
     8.047518E-05_EB/),(/7,2/))
  
  
  !-------------------------TOLUENE DATA-------------------
  
  
  ! THERE ARE 5 BANDS FOR TOLUENE
  
  ! BAND #1: 700 CM-1 - 805 CM-1
  ! BAND #2: 975 CM-1 - 1175 CM-1
  ! BAND #3: 1275 CM-1 - 1675 CM-1
  ! BAND #4: 1650 CM-1 - 2075 CM-1
  ! BAND #5: 2675 CM-1 - 3225 CM-1
  
  ALLOCATE(SD_C7H8_TEMP(N_TEMP_C7H8))
  
  ! INITIALIZE BANDS WAVENUMBER BOUNDS FOR TOLUENE ABS(OPTION COEFFICIENTS.
  ! BANDS ARE ORGANIZED BY ROW:
  ! 1ST COLUMN IS THE LOWER BOUND BAND LIMIT IN CM-1.
  ! 2ND COLUMN IS THE UPPER BOUND BAND LIMIT IN CM-1.
  ! 3RD COLUMN IS THE STRIDE BETWEEN WAVENUMBERS IN BAND.
  ! IF 3RD COLUMN = 0., BAND IS CALCULATED, NOT TABULATED.
  
  ALLOCATE(OM_BND_C7H8(N_BAND_C7H8,3))
  ALLOCATE(BE_C7H8(N_BAND_C7H8))
  
  OM_BND_C7H8 = RESHAPE((/ &
     700._EB,  975._EB, 1275._EB, 1650._EB, 2675._EB, &
     805._EB, 1175._EB, 1675._EB, 2075._EB, 3225._EB, &
     5._EB, 5._EB, 25._EB, 25._EB, 25._EB/),(/N_BAND_C7H8,3/))
  
  SD_C7H8_TEMP = (/ &
     300._EB, 396._EB, 440._EB, 477._EB, 587._EB, 795._EB,&
     999._EB/)
  
  BE_C7H8 = (/ &
     1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB, 1.000_EB/)
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD1_C7H8(N_TEMP_C7H8,22))
  
  ! BAND #1: 700 CM-1 - 805 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 5.5814 %
  
  SD1_C7H8(1:7,1:8) = RESHAPE((/ &  ! 700-735 CM-1
     1.112466E+00_EB, 9.044923E-01_EB, 9.061370E-01_EB, 8.938794E-01_EB, 9.084825E-01_EB, 1.435389E+00_EB, 1.297156E+01_EB, &
     2.840815E+00_EB, 2.482407E+00_EB, 2.360535E+00_EB, 2.276458E+00_EB, 2.122272E+00_EB, 1.940697E+00_EB, 5.112554E+00_EB, &
     3.455206E+00_EB, 3.166147E+00_EB, 2.863080E+00_EB, 2.620674E+00_EB, 2.467633E+00_EB, 2.005290E+00_EB, 7.244894E-01_EB, &
     4.288216E+00_EB, 3.577673E+00_EB, 2.963877E+00_EB, 2.789847E+00_EB, 2.401611E+00_EB, 1.912466E+00_EB, 2.024019E+00_EB, &
     4.666515E+00_EB, 3.754488E+00_EB, 3.254065E+00_EB, 3.058494E+00_EB, 2.875391E+00_EB, 2.451298E+00_EB, 4.223163E+00_EB, &
     7.363590E+00_EB, 6.122925E+00_EB, 5.403265E+00_EB, 5.328257E+00_EB, 4.641149E+00_EB, 3.466727E+00_EB, 1.373953E+01_EB, &
     9.587057E+00_EB, 6.742653E+00_EB, 5.600793E+00_EB, 5.363171E+00_EB, 4.064656E+00_EB, 2.508085E+00_EB, 1.195299E+00_EB, &
     4.715829E+00_EB, 3.108857E+00_EB, 2.753587E+00_EB, 2.650163E+00_EB, 2.249724E+00_EB, 1.963447E+00_EB, &
     7.262488E+00_EB/),(/7,8/))
  
  SD1_C7H8(1:7,9:16) = RESHAPE((/ &  ! 740-775 CM-1
     4.190702E+00_EB, 2.766122E+00_EB, 2.537781E+00_EB, 2.386878E+00_EB, 2.084718E+00_EB, 1.344226E+00_EB, 3.448390E+00_EB, &
     2.838874E+00_EB, 2.217681E+00_EB, 2.081071E+00_EB, 1.986804E+00_EB, 1.810042E+00_EB, 1.549486E+00_EB, 7.126841E-01_EB, &
     1.327883E+00_EB, 1.440906E+00_EB, 1.390571E+00_EB, 1.421333E+00_EB, 1.328347E+00_EB, 1.296316E+00_EB, 1.254896E+00_EB, &
     4.533944E-01_EB, 8.351739E-01_EB, 7.591511E-01_EB, 7.962784E-01_EB, 8.186310E-01_EB, 8.370456E-01_EB, 2.685634E+00_EB, &
     1.131517E-01_EB, 7.896344E-01_EB, 3.378503E-01_EB, 3.523472E-01_EB, 4.364146E-01_EB, 5.594990E-01_EB, 3.259981E+00_EB, &
     3.791615E-02_EB, 8.912653E-01_EB, 4.878342E-01_EB, 1.492598E-01_EB, 2.103530E-01_EB, 3.269232E-01_EB, 2.144533E+00_EB, &
     4.206761E-02_EB, 7.530056E-02_EB, 1.233550E-01_EB, 7.429326E-02_EB, 9.115926E-02_EB, 1.525590E-01_EB, 1.109247E+00_EB, &
     6.711521E-02_EB, 8.510326E-04_EB, 6.739778E-02_EB, 5.411094E-02_EB, 6.504658E-02_EB, 5.754676E-02_EB, &
     5.875940E-01_EB/),(/7,8/))
  
  SD1_C7H8(1:7,17:22) = RESHAPE((/ &  ! 780-805 CM-1
     6.275862E-02_EB, 6.962504E-04_EB, 4.265822E-02_EB, 2.937821E-02_EB, 3.183374E-02_EB, 1.453078E-02_EB, 8.515825E-02_EB, &
     5.193232E-02_EB, 7.365615E-04_EB, 1.939785E-02_EB, 1.719349E-02_EB, 2.278960E-02_EB, 1.331369E-03_EB, 5.520836E-02_EB, &
     3.535671E-02_EB, 8.579228E-04_EB, 1.765940E-03_EB, 1.491081E-02_EB, 1.181497E-02_EB, 5.221427E-04_EB, 2.334611E-03_EB, &
     6.188348E-03_EB, 7.316561E-04_EB, 8.181678E-04_EB, 6.095900E-03_EB, 3.380075E-03_EB, 5.968569E-04_EB, 7.411591E-04_EB, &
     6.328121E-04_EB, 6.599274E-04_EB, 5.510258E-04_EB, 5.104659E-04_EB, 5.023646E-04_EB, 5.757667E-04_EB, 6.209242E-04_EB, &
     4.621323E-04_EB, 4.638592E-04_EB, 4.665860E-04_EB, 4.636519E-04_EB, 4.646393E-04_EB, 4.633936E-04_EB, &
     4.615859E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD1_C7H8(N_TEMP_C7H8,22))
  
  ! BAND #1: 700 CM-1 - 805 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 5.5814 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD1_C7H8(1:7,1:8) = RESHAPE((/ &  ! 700-735 CM-1
     7.999461E+01_EB, 6.960752E+01_EB, 3.022045E+01_EB, 6.344408E+01_EB, 5.719128E+01_EB, 3.598038E-02_EB, 1.819109E-03_EB, &
     7.999993E+01_EB, 6.962945E+01_EB, 6.605713E+01_EB, 6.344357E+01_EB, 5.719074E+01_EB, 3.344331E-01_EB, 1.001242E-02_EB, &
     8.000000E+01_EB, 6.922109E+01_EB, 4.454022E+00_EB, 6.344038E+01_EB, 5.719013E+01_EB, 9.751497E-02_EB, 4.383971E+01_EB, &
     8.000000E+01_EB, 1.649903E+01_EB, 6.605768E+01_EB, 6.344412E+01_EB, 5.719149E+01_EB, 6.787669E-01_EB, 1.717471E-01_EB, &
     8.000000E+01_EB, 5.534136E+00_EB, 6.605782E+01_EB, 6.344412E+01_EB, 5.719151E+01_EB, 4.914284E+01_EB, 6.407876E-02_EB, &
     8.000000E+01_EB, 6.962930E+01_EB, 6.605773E+01_EB, 8.838043E+00_EB, 5.719150E+01_EB, 2.254685E+00_EB, 1.178609E-02_EB, &
     8.000000E+01_EB, 6.963055E+01_EB, 6.605773E+01_EB, 3.115435E+00_EB, 5.719151E+01_EB, 4.914358E+01_EB, 4.383966E+01_EB, &
     8.000000E+01_EB, 6.963104E+01_EB, 6.605612E+01_EB, 6.343942E+01_EB, 5.719109E+01_EB, 1.671127E-01_EB, &
     6.618119E-03_EB/),(/7,8/))
  
  GAMMAD1_C7H8(1:7,9:16) = RESHAPE((/ &  ! 740-775 CM-1
     8.000000E+01_EB, 6.963105E+01_EB, 6.605690E+01_EB, 6.333100E+01_EB, 5.718653E+01_EB, 4.913467E+01_EB, 1.209833E-02_EB, &
     8.000000E+01_EB, 6.962982E+01_EB, 6.605767E+01_EB, 6.342460E+01_EB, 5.718540E+01_EB, 2.011652E-01_EB, 4.383963E+01_EB, &
     7.999980E+01_EB, 6.960747E+01_EB, 6.602987E+01_EB, 6.326339E+01_EB, 5.714448E+01_EB, 3.303355E-01_EB, 2.494003E-02_EB, &
     4.634778E+01_EB, 1.999423E-01_EB, 1.445536E+01_EB, 3.851197E+01_EB, 5.716296E+01_EB, 2.419503E+00_EB, 4.403455E-03_EB, &
     1.788269E+00_EB, 8.781616E-03_EB, 1.079139E-01_EB, 1.421403E+01_EB, 9.057111E+00_EB, 1.781522E+01_EB, 1.669472E-03_EB, &
     2.864129E-01_EB, 1.515581E-03_EB, 2.119890E-03_EB, 5.013687E+00_EB, 3.747774E+00_EB, 1.844443E+00_EB, 1.069786E-03_EB, &
     1.102908E+01_EB, 4.896633E-02_EB, 1.798393E-02_EB, 6.492346E-01_EB, 8.863603E-02_EB, 2.773305E-01_EB, 5.841296E-04_EB, &
     1.251724E+00_EB, 6.490441E-04_EB, 2.113061E-02_EB, 1.326897E+00_EB, 8.049318E-03_EB, 8.055391E-03_EB, &
     2.478640E-04_EB/),(/7,8/))
  
  GAMMAD1_C7H8(1:7,17:22) = RESHAPE((/ &  ! 780-805 CM-1
     6.819808E-01_EB, 5.093301E-04_EB, 2.666337E-02_EB, 2.101043E-01_EB, 1.980342E-02_EB, 1.679664E-03_EB, 1.906432E-02_EB, &
     4.691940E-01_EB, 5.429738E-04_EB, 1.319467E-02_EB, 4.975402E-03_EB, 2.433969E-02_EB, 1.884068E-03_EB, 5.887236E-03_EB, &
     1.875981E-01_EB, 6.598198E-04_EB, 1.786636E-03_EB, 1.408548E-02_EB, 2.119727E-01_EB, 4.335098E-04_EB, 1.937100E-03_EB, &
     1.442921E-02_EB, 5.711043E-04_EB, 5.971323E-04_EB, 7.973510E-03_EB, 3.341200E-03_EB, 4.314868E-04_EB, 5.200300E-04_EB, &
     5.156874E-04_EB, 5.125082E-04_EB, 4.318513E-04_EB, 3.992184E-04_EB, 3.936730E-04_EB, 4.154189E-04_EB, 4.736124E-04_EB, &
     3.682775E-04_EB, 3.700575E-04_EB, 3.724614E-04_EB, 3.699127E-04_EB, 3.709688E-04_EB, 3.696394E-04_EB, &
     3.680801E-04_EB/),(/7,6/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD2_C7H8(N_TEMP_C7H8,29))
  
  ! BAND #2: 975 CM-1 - 1175 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.91355 %
  
  SD2_C7H8(1:7,1:8) = RESHAPE((/ &  ! 975-1010 CM-1
     5.806929E-04_EB, 5.942617E-04_EB, 6.726459E-04_EB, 7.052569E-04_EB, 6.695985E-04_EB, 5.159322E-04_EB, 5.551144E-04_EB, &
     6.785508E-04_EB, 8.056701E-04_EB, 8.454611E-04_EB, 7.340346E-04_EB, 7.540252E-04_EB, 6.231487E-04_EB, 1.161712E-02_EB, &
     7.608293E-04_EB, 5.613980E-02_EB, 8.330584E-04_EB, 7.050990E-04_EB, 7.281009E-04_EB, 1.902747E-03_EB, 2.699830E-02_EB, &
     4.497896E-02_EB, 9.748044E-02_EB, 5.769989E-04_EB, 8.307786E-04_EB, 1.048030E-03_EB, 3.071367E-02_EB, 5.746590E-02_EB, &
     4.185662E-02_EB, 5.807183E-02_EB, 5.845956E-03_EB, 4.738381E-03_EB, 1.373288E-02_EB, 1.722897E-02_EB, 6.537832E-02_EB, &
     2.338216E-02_EB, 1.675285E-02_EB, 2.368298E-02_EB, 3.338373E-02_EB, 1.128221E-02_EB, 2.346587E-02_EB, 3.565197E-02_EB, &
     1.379198E-02_EB, 9.132916E-04_EB, 3.690042E-02_EB, 2.275924E-02_EB, 2.434022E-02_EB, 4.242178E-02_EB, 6.940845E-02_EB, &
     2.629167E-02_EB, 2.433785E-03_EB, 7.441229E-02_EB, 7.329327E-02_EB, 8.154865E-02_EB, 8.520170E-02_EB, &
     8.926539E-02_EB/),(/7,8/))
  
  SD2_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1015-1050 CM-1
     8.643728E-02_EB, 8.397464E-02_EB, 1.634758E-01_EB, 1.741891E-01_EB, 1.714205E-01_EB, 1.480038E-01_EB, 1.360983E-01_EB, &
     3.004729E-01_EB, 2.793190E-01_EB, 2.877798E-01_EB, 2.821584E-01_EB, 2.456569E-01_EB, 1.463510E-01_EB, 1.826942E-01_EB, &
     5.278878E-01_EB, 3.693913E-01_EB, 2.973200E-01_EB, 2.717632E-01_EB, 2.438624E-01_EB, 1.379726E-01_EB, 2.050903E-01_EB, &
     5.845808E-01_EB, 4.794762E-01_EB, 3.584954E-01_EB, 3.427664E-01_EB, 2.786454E-01_EB, 1.226379E-01_EB, 2.097466E-01_EB, &
     4.729738E-01_EB, 3.788669E-01_EB, 2.664993E-01_EB, 2.564802E-01_EB, 2.264334E-01_EB, 1.535049E-01_EB, 1.682791E-01_EB, &
     5.530868E-01_EB, 4.490113E-01_EB, 3.310727E-01_EB, 3.288768E-01_EB, 3.019277E-01_EB, 2.043861E-01_EB, 1.497158E-01_EB, &
     4.129235E-01_EB, 3.251444E-01_EB, 2.714955E-01_EB, 2.657956E-01_EB, 2.487687E-01_EB, 1.862679E-01_EB, 1.223084E-01_EB, &
     2.614169E-01_EB, 1.802809E-01_EB, 1.975745E-01_EB, 1.888234E-01_EB, 2.189458E-01_EB, 1.348280E-01_EB, &
     9.276862E-02_EB/),(/7,8/))
  
  SD2_C7H8(1:7,17:24) = RESHAPE((/ &  ! 1055-1090 CM-1
     2.730370E-01_EB, 1.767450E-01_EB, 2.218796E-01_EB, 2.155878E-01_EB, 2.223112E-01_EB, 1.469945E-01_EB, 1.150109E-01_EB, &
     2.816011E-01_EB, 2.052777E-01_EB, 2.522512E-01_EB, 2.342314E-01_EB, 2.280630E-01_EB, 2.544731E-01_EB, 1.975636E-01_EB, &
     3.260058E-01_EB, 2.887673E-01_EB, 2.910159E-01_EB, 2.801621E-01_EB, 2.791987E-01_EB, 2.761989E-01_EB, 6.486488E-01_EB, &
     4.240289E-01_EB, 3.848016E-01_EB, 3.433772E-01_EB, 3.147066E-01_EB, 2.873021E-01_EB, 2.027784E-01_EB, 6.801384E-01_EB, &
     5.531291E-01_EB, 4.341564E-01_EB, 3.312172E-01_EB, 3.045238E-01_EB, 2.620640E-01_EB, 1.519635E-01_EB, 9.321833E-01_EB, &
     4.365089E-01_EB, 3.538039E-01_EB, 2.730701E-01_EB, 2.397118E-01_EB, 2.227185E-01_EB, 2.009481E-01_EB, 1.174461E+00_EB, &
     4.683512E-01_EB, 3.712916E-01_EB, 2.862375E-01_EB, 2.540628E-01_EB, 2.485619E-01_EB, 2.060439E-01_EB, 9.951951E-01_EB, &
     4.698469E-01_EB, 3.518932E-01_EB, 2.825430E-01_EB, 2.624504E-01_EB, 2.213420E-01_EB, 1.625252E-01_EB, &
     5.760843E-01_EB/),(/7,8/))
  
  SD2_C7H8(1:7,25:29) = RESHAPE((/ &  ! 1095-1175 CM-1
     3.649981E-01_EB, 2.736054E-01_EB, 2.408070E-01_EB, 2.323294E-01_EB, 1.878487E-01_EB, 1.252916E-01_EB, 4.029469E-02_EB, &
     2.681413E-01_EB, 1.701855E-01_EB, 1.674993E-01_EB, 1.511744E-01_EB, 1.166087E-01_EB, 7.290456E-02_EB, 1.474340E-01_EB, &
     4.990165E-02_EB, 6.292687E-02_EB, 4.665808E-02_EB, 3.377088E-02_EB, 2.693981E-02_EB, 9.990414E-03_EB, 9.979516E-03_EB, &
     6.130796E-04_EB, 1.597828E-03_EB, 5.178852E-03_EB, 6.236302E-04_EB, 6.358216E-04_EB, 6.358332E-04_EB, 5.729829E-04_EB, &
     4.621323E-04_EB, 4.638592E-04_EB, 4.665860E-04_EB, 4.636519E-04_EB, 4.646393E-04_EB, 4.633936E-04_EB, &
     4.615859E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD2_C7H8(N_TEMP_C7H8,29))
  
  ! BAND #2: 975 CM-1 - 1175 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.91355 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD2_C7H8(1:7,1:8) = RESHAPE((/ &  ! 975-1010 CM-1
     4.305850E-04_EB, 4.663364E-04_EB, 5.289580E-04_EB, 5.402269E-04_EB, 5.024478E-04_EB, 4.070836E-04_EB, 4.471953E-04_EB, &
     5.202785E-04_EB, 6.465361E-04_EB, 6.452178E-04_EB, 5.771613E-04_EB, 5.746126E-04_EB, 4.735889E-04_EB, 1.573544E-04_EB, &
     5.872521E-04_EB, 7.042066E-03_EB, 5.999286E-04_EB, 5.331992E-04_EB, 6.220132E-04_EB, 6.364420E-02_EB, 1.528351E-04_EB, &
     5.511126E-01_EB, 1.497331E-02_EB, 4.594486E-04_EB, 5.729761E-04_EB, 7.713361E-04_EB, 7.130935E-03_EB, 1.427152E-04_EB, &
     2.212250E+00_EB, 1.945735E-01_EB, 2.212567E-01_EB, 9.922155E-03_EB, 9.234920E-02_EB, 1.013608E-02_EB, 4.272371E-04_EB, &
     4.405486E-01_EB, 7.436540E-01_EB, 1.920483E-01_EB, 2.962863E-03_EB, 3.448915E-01_EB, 3.486423E-01_EB, 1.313079E-01_EB, &
     2.410517E-01_EB, 1.039535E-03_EB, 1.254824E-01_EB, 1.067258E-01_EB, 2.942350E-01_EB, 5.806212E-01_EB, 1.774699E+00_EB, &
     4.514842E-01_EB, 1.759071E-01_EB, 2.902656E-01_EB, 2.267366E-01_EB, 8.401946E-02_EB, 7.681227E+00_EB, &
     1.330635E+00_EB/),(/7,8/))
  
  GAMMAD2_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1015-1050 CM-1
     2.224412E+00_EB, 1.484769E+00_EB, 1.494944E+00_EB, 1.832759E+00_EB, 3.314911E+00_EB, 5.865543E+00_EB, 6.106454E-01_EB, &
     2.999242E+01_EB, 7.193297E+00_EB, 3.422464E+00_EB, 4.614503E+00_EB, 2.188441E+00_EB, 7.394814E+00_EB, 3.908543E-02_EB, &
     7.999990E+01_EB, 3.581705E+00_EB, 7.707850E+00_EB, 3.420693E+00_EB, 6.146487E+00_EB, 7.025651E+00_EB, 3.617788E-02_EB, &
     7.998352E+01_EB, 4.444656E-01_EB, 1.228523E+01_EB, 3.433637E+00_EB, 2.072175E+01_EB, 4.335871E+00_EB, 7.248922E-02_EB, &
     7.410363E+01_EB, 5.532136E-01_EB, 5.267901E+00_EB, 5.384235E+00_EB, 5.570719E+00_EB, 7.078253E+00_EB, 7.681535E+00_EB, &
     7.999988E+01_EB, 1.364684E+01_EB, 1.337888E+01_EB, 5.824947E+00_EB, 5.724261E+00_EB, 6.510348E+00_EB, 2.593089E+00_EB, &
     5.835221E+01_EB, 2.086568E+01_EB, 4.818524E+00_EB, 1.625989E+00_EB, 4.963013E+00_EB, 9.091313E+00_EB, 2.862616E+00_EB, &
     1.807887E+01_EB, 1.240441E+01_EB, 1.649639E+00_EB, 3.870645E+00_EB, 4.710413E+00_EB, 5.816990E+00_EB, &
     2.011503E-01_EB/),(/7,8/))
  
  GAMMAD2_C7H8(1:7,17:24) = RESHAPE((/ &  ! 1055-1090 CM-1
     2.242814E+01_EB, 1.324109E+01_EB, 2.772538E+00_EB, 2.132624E+00_EB, 2.967247E+00_EB, 5.544644E+00_EB, 1.492977E-02_EB, &
     2.726543E+01_EB, 8.755811E+00_EB, 4.268738E+00_EB, 8.268829E+00_EB, 3.471302E+00_EB, 7.655547E+00_EB, 4.678557E-03_EB, &
     3.856386E+01_EB, 1.415885E+01_EB, 4.621129E+00_EB, 7.774568E+00_EB, 5.265771E-01_EB, 7.296652E+00_EB, 8.956780E-04_EB, &
     6.779154E+01_EB, 1.689515E+01_EB, 8.227216E+00_EB, 7.685408E+00_EB, 6.275187E+00_EB, 4.111618E+00_EB, 1.120381E-03_EB, &
     7.998412E+01_EB, 5.217367E+00_EB, 1.270480E+01_EB, 7.011278E+00_EB, 9.533137E+00_EB, 6.557224E+00_EB, 7.187912E-04_EB, &
     6.476932E+01_EB, 4.324490E+00_EB, 7.006941E+00_EB, 3.059077E+00_EB, 2.551623E+00_EB, 6.781168E+00_EB, 4.850850E-04_EB, &
     7.999697E+01_EB, 1.683983E+01_EB, 7.523811E+00_EB, 3.934915E+00_EB, 3.190601E+00_EB, 5.987392E+00_EB, 4.640575E-04_EB, &
     7.298422E+01_EB, 1.746059E+01_EB, 8.445975E+00_EB, 4.651083E+00_EB, 5.086497E+00_EB, 1.446891E+00_EB, &
     2.261182E-04_EB/),(/7,8/))
  
  GAMMAD2_C7H8(1:7,25:29) = RESHAPE((/ &  ! 1095-1175 CM-1
     5.656308E+01_EB, 1.932458E+01_EB, 5.566997E+00_EB, 2.210155E-01_EB, 4.019081E+00_EB, 7.861722E-02_EB, 3.404900E-03_EB, &
     2.190597E+01_EB, 1.019795E+01_EB, 2.244564E+00_EB, 1.625625E+00_EB, 5.393117E-01_EB, 1.054102E+00_EB, 7.309670E-05_EB, &
     4.172119E-01_EB, 6.066095E-01_EB, 3.794528E-01_EB, 2.201505E-01_EB, 8.146470E-02_EB, 1.686354E-01_EB, 2.521455E-03_EB, &
     4.904118E-04_EB, 8.240680E-03_EB, 2.319123E-01_EB, 4.751613E-04_EB, 5.109468E-04_EB, 5.032463E-04_EB, 4.422597E-04_EB, &
     3.682775E-04_EB, 3.700575E-04_EB, 3.724614E-04_EB, 3.699127E-04_EB, 3.709688E-04_EB, 3.696394E-04_EB, &
     3.680801E-04_EB/),(/7,5/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD3_C7H8(N_TEMP_C7H8,17))
  
  ! BAND #3: 1275 CM-1 - 1675 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.8457 %
  
  SD3_C7H8(1:7,1:8) = RESHAPE((/ &  ! 1275-1450 CM-1
     6.100102E-04_EB, 7.780830E-03_EB, 1.134938E-03_EB, 8.737574E-04_EB, 6.027841E-03_EB, 4.138198E-03_EB, 9.056224E-04_EB, &
     7.403110E-04_EB, 3.544033E-02_EB, 3.023568E-02_EB, 1.508266E-02_EB, 2.813528E-02_EB, 2.043206E-02_EB, 4.350956E-01_EB, &
     3.178283E-03_EB, 3.702754E-02_EB, 4.100162E-02_EB, 2.423149E-02_EB, 4.352025E-02_EB, 3.192771E-02_EB, 9.676683E-01_EB, &
     5.605844E-02_EB, 6.834484E-02_EB, 8.335619E-02_EB, 6.360984E-02_EB, 6.991888E-02_EB, 5.926399E-02_EB, 6.248318E-02_EB, &
     2.335707E-01_EB, 2.104431E-01_EB, 2.014754E-01_EB, 1.664392E-01_EB, 1.529464E-01_EB, 1.145999E-01_EB, 4.880863E-02_EB, &
     2.297034E-01_EB, 1.952774E-01_EB, 2.009723E-01_EB, 1.554485E-01_EB, 1.472329E-01_EB, 9.989047E-02_EB, 5.114395E-02_EB, &
     2.466205E-01_EB, 2.254143E-01_EB, 2.146406E-01_EB, 1.846656E-01_EB, 1.917496E-01_EB, 1.694292E-01_EB, 9.885420E-02_EB, &
     6.338228E-01_EB, 4.862753E-01_EB, 4.470592E-01_EB, 3.954809E-01_EB, 3.379362E-01_EB, 2.524978E-01_EB, &
     2.245216E-01_EB/),(/7,8/))
  
  SD3_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1475-1650 CM-1
     8.091914E-01_EB, 6.844493E-01_EB, 6.417303E-01_EB, 6.044514E-01_EB, 5.830416E-01_EB, 4.886091E-01_EB, 3.460225E-01_EB, &
     1.985404E+00_EB, 1.434197E+00_EB, 1.197360E+00_EB, 1.090591E+00_EB, 8.747838E-01_EB, 5.725550E-01_EB, 3.573484E-01_EB, &
     5.171385E-01_EB, 4.486683E-01_EB, 4.336080E-01_EB, 3.554049E-01_EB, 3.143224E-01_EB, 2.347278E-01_EB, 1.742309E-01_EB, &
     2.372746E-01_EB, 2.197212E-01_EB, 2.373528E-01_EB, 1.855960E-01_EB, 1.760600E-01_EB, 1.693906E-01_EB, 1.742322E-01_EB, &
     2.366393E-01_EB, 3.786876E-01_EB, 4.105672E-01_EB, 2.381817E-01_EB, 2.272899E-01_EB, 2.664032E-01_EB, 3.863583E-01_EB, &
     8.572620E-01_EB, 1.527668E+00_EB, 1.063149E+00_EB, 7.295884E-01_EB, 4.745380E-01_EB, 3.602757E-01_EB, 2.354867E-01_EB, &
     5.567486E-01_EB, 5.472333E-01_EB, 5.016325E-01_EB, 3.512578E-01_EB, 1.717825E-01_EB, 9.711190E-02_EB, 2.718347E-02_EB, &
     2.625054E-02_EB, 5.072059E-03_EB, 1.694459E-02_EB, 9.001577E-03_EB, 5.938464E-04_EB, 6.681563E-04_EB, &
     5.196216E-04_EB/),(/7,8/))
  
  SD3_C7H8(1:7,17:17) = RESHAPE((/ &  ! 1675-1675 CM-1
     4.621323E-04_EB, 4.638592E-04_EB, 4.665860E-04_EB, 4.636519E-04_EB, 4.646393E-04_EB, 4.633936E-04_EB, &
     4.615859E-04_EB/),(/7,1/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD3_C7H8(N_TEMP_C7H8,17))
  
  ! BAND #3: 1275 CM-1 - 1675 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 1.8457 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD3_C7H8(1:7,1:8) = RESHAPE((/ &  ! 1275-1450 CM-1
     4.795815E-04_EB, 2.124259E-03_EB, 1.024725E-03_EB, 7.095131E-04_EB, 6.311264E-03_EB, 2.305633E-03_EB, 5.045893E-04_EB, &
     5.695615E-04_EB, 1.692360E-02_EB, 7.400058E-03_EB, 1.063887E-01_EB, 2.392876E-01_EB, 3.837883E-04_EB, 3.113013E-05_EB, &
     2.535772E-03_EB, 3.802603E-02_EB, 2.314277E-02_EB, 4.430523E-01_EB, 1.112554E-01_EB, 1.504970E-01_EB, 4.347453E-05_EB, &
     7.174141E-02_EB, 1.160640E+00_EB, 2.191895E-02_EB, 4.952819E-01_EB, 4.273983E-01_EB, 3.451409E-01_EB, 2.592647E-01_EB, &
     8.276943E+00_EB, 3.502859E-01_EB, 5.113046E-02_EB, 2.027660E+00_EB, 2.707192E+00_EB, 3.833564E-01_EB, 3.464319E-01_EB, &
     1.015475E+01_EB, 4.674500E+00_EB, 4.689087E-02_EB, 3.954451E+00_EB, 3.031215E+00_EB, 1.038644E+00_EB, 6.356775E-02_EB, &
     1.948113E+01_EB, 7.058967E+00_EB, 9.857392E-01_EB, 6.992797E+00_EB, 4.529865E+00_EB, 2.876236E+00_EB, 1.523489E+00_EB, &
     7.999993E+01_EB, 4.801475E+01_EB, 2.297044E+00_EB, 2.307491E+01_EB, 2.255518E+01_EB, 6.921021E+00_EB, &
     3.793481E+00_EB/),(/7,8/))
  
  GAMMAD3_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1475-1650 CM-1
     7.999994E+01_EB, 3.335220E+01_EB, 5.984703E-01_EB, 2.853393E+01_EB, 3.626523E+01_EB, 2.277723E+01_EB, 2.603661E+01_EB, &
     7.999988E+01_EB, 6.963104E+01_EB, 6.603136E+01_EB, 6.344400E+01_EB, 5.716242E+01_EB, 4.913311E+01_EB, 1.650821E+01_EB, &
     7.999998E+01_EB, 6.963102E+01_EB, 2.177188E+01_EB, 3.299642E+01_EB, 1.878956E+01_EB, 8.669014E+00_EB, 7.333480E+00_EB, &
     5.251899E+01_EB, 2.739552E+01_EB, 6.379395E+00_EB, 1.192897E+01_EB, 1.481504E+01_EB, 6.745394E+00_EB, 2.823356E+00_EB, &
     1.643612E-01_EB, 5.735340E-03_EB, 4.062201E-03_EB, 3.334872E-02_EB, 1.282097E+00_EB, 8.493361E-02_EB, 6.376486E-03_EB, &
     1.487048E-01_EB, 1.035601E-02_EB, 1.158524E-02_EB, 3.774427E-02_EB, 1.523506E-01_EB, 2.811809E-02_EB, 7.547214E-03_EB, &
     7.999361E+01_EB, 1.936478E-02_EB, 9.051617E-03_EB, 1.944160E-02_EB, 2.206877E-01_EB, 2.134674E-02_EB, 3.778034E-01_EB, &
     1.287431E-02_EB, 7.240508E-04_EB, 6.507482E-03_EB, 3.950013E-03_EB, 4.716179E-04_EB, 5.110565E-04_EB, &
     4.179497E-04_EB/),(/7,8/))
  
  GAMMAD3_C7H8(1:7,17:17) = RESHAPE((/ &  ! 1675-1675 CM-1
     3.682775E-04_EB, 3.700575E-04_EB, 3.724614E-04_EB, 3.699127E-04_EB, 3.709688E-04_EB, 3.696394E-04_EB, &
     3.680801E-04_EB/),(/7,1/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD4_C7H8(N_TEMP_C7H8,18))
  
  ! BAND #4: 1650 CM-1 - 2075 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.43921 %
  
  SD4_C7H8(1:7,1:8) = RESHAPE((/ &  ! 1650-1825 CM-1
     1.608510E-02_EB, 8.538057E-04_EB, 2.868555E-03_EB, 8.340494E-04_EB, 6.015596E-04_EB, 4.952974E-04_EB, 5.998542E-04_EB, &
     4.848768E-02_EB, 9.249328E-03_EB, 2.165734E-02_EB, 1.578699E-02_EB, 7.483581E-04_EB, 5.699315E-04_EB, 7.083490E-04_EB, &
     3.748462E-02_EB, 1.617457E-02_EB, 2.578284E-02_EB, 1.643850E-02_EB, 1.017398E-02_EB, 2.017300E-03_EB, 7.500522E-03_EB, &
     1.132410E-01_EB, 2.967893E-01_EB, 6.916754E-02_EB, 5.538010E-02_EB, 3.122037E-02_EB, 1.282020E-02_EB, 6.409946E-02_EB, &
     4.946037E-01_EB, 4.749997E-02_EB, 4.638123E-02_EB, 4.364247E-02_EB, 3.296949E-02_EB, 3.250858E-02_EB, 6.216037E-02_EB, &
     9.754174E-01_EB, 6.827422E-01_EB, 5.097573E-01_EB, 4.113609E-01_EB, 9.436322E-02_EB, 1.578733E-01_EB, 1.005549E-01_EB, &
     5.760301E-01_EB, 1.058899E+00_EB, 5.428139E-01_EB, 2.925165E-01_EB, 1.220623E-01_EB, 2.559121E-01_EB, 8.881943E-02_EB, &
     1.187295E+00_EB, 1.013370E+00_EB, 7.226648E-01_EB, 5.498312E-01_EB, 8.139112E-02_EB, 4.364089E-01_EB, &
     8.132406E-02_EB/),(/7,8/))
  
  SD4_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1850-2025 CM-1
     8.856836E-01_EB, 9.186222E-01_EB, 4.794847E-01_EB, 4.024356E-01_EB, 1.306238E-01_EB, 3.063448E-01_EB, 9.935498E-02_EB, &
     1.034528E+00_EB, 7.215443E-01_EB, 5.929663E-01_EB, 4.319927E-01_EB, 8.863470E-02_EB, 3.544881E-01_EB, 5.660195E-02_EB, &
     1.495500E+00_EB, 3.838684E-01_EB, 1.268890E-01_EB, 4.632815E-02_EB, 1.148509E-01_EB, 6.472883E-02_EB, 8.665695E-02_EB, &
     5.568983E-01_EB, 5.685082E-01_EB, 5.071619E-01_EB, 3.647283E-01_EB, 1.319697E-01_EB, 1.328525E-01_EB, 8.945221E-02_EB, &
     2.939080E-01_EB, 3.996266E-01_EB, 2.679096E-01_EB, 1.696599E-01_EB, 1.249259E-01_EB, 8.650031E-02_EB, 7.539025E-02_EB, &
     4.677446E-01_EB, 2.881514E-02_EB, 6.793664E-02_EB, 3.565764E-02_EB, 1.939151E-02_EB, 1.637475E-02_EB, 3.310412E-02_EB, &
     3.406776E-02_EB, 1.092503E-02_EB, 1.198880E-02_EB, 1.579425E-02_EB, 1.184388E-02_EB, 1.945188E-03_EB, 2.385167E-02_EB, &
     1.429157E-02_EB, 8.354021E-04_EB, 4.409521E-03_EB, 4.730578E-03_EB, 4.878561E-03_EB, 8.332528E-04_EB, &
     2.664558E-02_EB/),(/7,8/))
  
  SD4_C7H8(1:7,17:18) = RESHAPE((/ &  ! 2050-2075 CM-1
     5.862965E-04_EB, 5.938092E-04_EB, 6.747537E-04_EB, 5.948772E-04_EB, 6.040692E-04_EB, 6.075352E-04_EB, 3.980874E-03_EB, &
     4.621323E-04_EB, 4.638592E-04_EB, 4.665860E-04_EB, 4.636519E-04_EB, 4.646393E-04_EB, 4.633936E-04_EB, &
     4.615859E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD4_C7H8(N_TEMP_C7H8,18))
  
  ! BAND #4: 1650 CM-1 - 2075 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 0.43921 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD4_C7H8(1:7,1:8) = RESHAPE((/ &  ! 1650-1825 CM-1
     9.073750E-01_EB, 7.155535E-04_EB, 1.417709E-01_EB, 6.862278E-04_EB, 4.770609E-04_EB, 3.962002E-04_EB, 4.599493E-04_EB, &
     4.897835E-01_EB, 2.228040E-03_EB, 1.889228E-03_EB, 3.037127E-03_EB, 5.957388E-04_EB, 4.412357E-04_EB, 5.439496E-04_EB, &
     8.222146E-01_EB, 1.967261E-01_EB, 1.176890E-01_EB, 1.993414E-01_EB, 3.392040E-01_EB, 1.285307E+00_EB, 7.330343E-02_EB, &
     1.711715E-02_EB, 2.387489E-04_EB, 4.930892E-03_EB, 6.589700E-03_EB, 1.627007E-01_EB, 8.239901E-03_EB, 5.086131E-03_EB, &
     2.105689E-04_EB, 4.813970E-03_EB, 5.785146E-03_EB, 2.367207E-02_EB, 2.418442E-01_EB, 7.693889E-03_EB, 3.096368E-02_EB, &
     3.797437E-04_EB, 2.010270E-04_EB, 4.063113E-04_EB, 7.930910E-04_EB, 6.260656E-02_EB, 3.447434E-03_EB, 2.052893E+00_EB, &
     5.974715E-03_EB, 9.625448E-04_EB, 1.385440E-03_EB, 4.460370E-03_EB, 7.510642E-02_EB, 1.409188E-03_EB, 5.077965E-01_EB, &
     2.598721E-04_EB, 9.700799E-05_EB, 1.875798E-04_EB, 3.395949E-04_EB, 1.967132E-02_EB, 5.386934E-04_EB, &
     7.215293E-01_EB/),(/7,8/))
  
  GAMMAD4_C7H8(1:7,9:16) = RESHAPE((/ &  ! 1850-2025 CM-1
     1.840578E-03_EB, 8.312411E-04_EB, 1.279188E-03_EB, 2.105186E-03_EB, 3.505265E-02_EB, 1.459376E-03_EB, 1.277784E+00_EB, &
     1.258299E-03_EB, 4.510848E-04_EB, 4.294071E-04_EB, 8.136257E-04_EB, 9.696057E-03_EB, 2.146063E-04_EB, 6.860048E-01_EB, &
     4.671598E-05_EB, 4.670991E-05_EB, 7.143144E-05_EB, 4.655956E-03_EB, 4.081375E-04_EB, 5.438877E-03_EB, 8.906804E-02_EB, &
     1.496812E-03_EB, 6.530123E-04_EB, 7.078867E-04_EB, 1.683327E-03_EB, 3.846642E-02_EB, 1.605013E-02_EB, 5.460498E-01_EB, &
     6.920106E-02_EB, 4.084630E-03_EB, 4.488361E-03_EB, 4.217654E-02_EB, 7.816064E-02_EB, 2.053699E-02_EB, 9.131605E-03_EB, &
     2.787181E-04_EB, 4.069568E-03_EB, 6.638116E-04_EB, 5.502709E-03_EB, 9.104577E-03_EB, 6.898146E-03_EB, 1.209388E-01_EB, &
     4.515662E-03_EB, 2.851322E-03_EB, 2.748099E-03_EB, 5.552875E-03_EB, 6.615247E-03_EB, 9.856806E-04_EB, 1.115308E-02_EB, &
     3.124492E-03_EB, 5.314268E-04_EB, 2.263215E-03_EB, 1.662162E-03_EB, 2.480485E-03_EB, 6.346151E-04_EB, &
     2.031025E-03_EB/),(/7,8/))
  
  GAMMAD4_C7H8(1:7,17:18) = RESHAPE((/ &  ! 2050-2075 CM-1
     4.587128E-04_EB, 4.524884E-04_EB, 5.170999E-04_EB, 4.681410E-04_EB, 4.819639E-04_EB, 4.673877E-04_EB, 8.021840E-04_EB, &
     3.682775E-04_EB, 3.700575E-04_EB, 3.724614E-04_EB, 3.699127E-04_EB, 3.709688E-04_EB, 3.696394E-04_EB, &
     3.680801E-04_EB/),(/7,2/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(SD5_C7H8(N_TEMP_C7H8,23))
  
  ! BAND #5: 2675 CM-1 - 3225 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.2868 %
  
  SD5_C7H8(1:7,1:8) = RESHAPE((/ &  ! 2675-2850 CM-1
     5.916860E-04_EB, 6.494496E-04_EB, 7.055877E-04_EB, 6.603478E-04_EB, 6.674805E-04_EB, 5.589319E-04_EB, 6.137597E-04_EB, &
     7.500569E-04_EB, 7.074450E-04_EB, 9.098169E-04_EB, 7.561953E-04_EB, 1.607193E-03_EB, 1.018018E-02_EB, 7.780318E-03_EB, &
     7.029259E-04_EB, 8.479757E-04_EB, 9.039741E-04_EB, 8.123582E-04_EB, 2.347565E-02_EB, 3.011753E-02_EB, 2.717306E-02_EB, &
     8.267165E-04_EB, 8.801454E-04_EB, 2.940361E-03_EB, 1.990166E-03_EB, 4.660083E-02_EB, 4.429277E-02_EB, 3.863177E-02_EB, &
     8.156025E-04_EB, 1.506400E-03_EB, 6.730104E-03_EB, 3.740574E-03_EB, 2.586356E-02_EB, 3.987065E-02_EB, 4.205663E-02_EB, &
     9.809286E-03_EB, 1.335514E-02_EB, 2.488364E-02_EB, 1.572642E-02_EB, 4.731877E-02_EB, 6.718605E-02_EB, 6.938131E-02_EB, &
     5.850971E-02_EB, 6.588341E-02_EB, 7.434265E-02_EB, 6.744072E-02_EB, 1.018290E-01_EB, 1.263017E-01_EB, 1.302993E-01_EB, &
     2.663902E-01_EB, 2.671000E-01_EB, 2.879771E-01_EB, 2.569076E-01_EB, 2.774278E-01_EB, 2.512113E-01_EB, &
     2.305380E-01_EB/),(/7,8/))
  
  SD5_C7H8(1:7,9:16) = RESHAPE((/ &  ! 2875-3050 CM-1
     1.192316E+00_EB, 9.205767E-01_EB, 8.299791E-01_EB, 7.348094E-01_EB, 6.292028E-01_EB, 4.584459E-01_EB, 3.314507E-01_EB, &
     1.111204E+00_EB, 9.394978E-01_EB, 8.641911E-01_EB, 8.038659E-01_EB, 7.457709E-01_EB, 6.165272E-01_EB, 4.772364E-01_EB, &
     2.020089E+00_EB, 1.631718E+00_EB, 1.548727E+00_EB, 1.354242E+00_EB, 1.167657E+00_EB, 8.526752E-01_EB, 6.021600E-01_EB, &
     1.932741E+00_EB, 1.403246E+00_EB, 1.298233E+00_EB, 1.078566E+00_EB, 8.872613E-01_EB, 5.993978E-01_EB, 4.326418E-01_EB, &
     9.805520E-01_EB, 7.107386E-01_EB, 6.778887E-01_EB, 5.479328E-01_EB, 4.804311E-01_EB, 3.935294E-01_EB, 3.642029E-01_EB, &
     1.226852E+00_EB, 9.501327E-01_EB, 8.230054E-01_EB, 8.274332E-01_EB, 8.323208E-01_EB, 7.816587E-01_EB, 6.650895E-01_EB, &
     3.262768E+00_EB, 2.723650E+00_EB, 2.296188E+00_EB, 2.270140E+00_EB, 1.935929E+00_EB, 1.369446E+00_EB, 9.666500E-01_EB, &
     3.556303E+00_EB, 2.816675E+00_EB, 2.390948E+00_EB, 2.282893E+00_EB, 1.948012E+00_EB, 1.461546E+00_EB, &
     1.092304E+00_EB/),(/7,8/))
  
  SD5_C7H8(1:7,17:23) = RESHAPE((/ &  ! 3075-3225 CM-1
     2.694239E+00_EB, 2.217181E+00_EB, 1.960010E+00_EB, 1.867801E+00_EB, 1.644870E+00_EB, 1.225906E+00_EB, 8.559281E-01_EB, &
     1.505365E+00_EB, 1.180006E+00_EB, 1.047132E+00_EB, 9.563041E-01_EB, 8.157730E-01_EB, 5.594937E-01_EB, 3.588645E-01_EB, &
     3.952204E-01_EB, 3.072414E-01_EB, 2.787226E-01_EB, 2.333774E-01_EB, 1.986791E-01_EB, 1.344281E-01_EB, 8.253592E-02_EB, &
     2.640387E-02_EB, 3.373476E-02_EB, 3.927558E-02_EB, 2.200042E-02_EB, 3.743437E-02_EB, 3.283105E-02_EB, 1.723376E-02_EB, &
     2.071719E-02_EB, 1.345537E-02_EB, 1.924395E-02_EB, 6.019999E-03_EB, 1.908321E-02_EB, 1.111107E-02_EB, 6.304850E-04_EB, &
     1.966078E-03_EB, 1.825102E-03_EB, 3.977009E-03_EB, 6.125614E-04_EB, 1.893366E-03_EB, 2.342482E-03_EB, 5.793976E-04_EB, &
     4.621323E-04_EB, 4.638592E-04_EB, 4.665860E-04_EB, 4.636519E-04_EB, 4.646393E-04_EB, 4.633936E-04_EB, &
     4.615859E-04_EB/),(/7,7/))
  
  !---------------------------------------------------------------------------
  ALLOCATE(GAMMAD5_C7H8(N_TEMP_C7H8,23))
  
  ! BAND #5: 2675 CM-1 - 3225 CM-1
  
  ! SNB FIT WITH MALKMUS MODEL
  
  ! ERROR ASSOCIATED WITH MALKMUS FIT:
  ! ON TRANSMISSIVITY: 2.2868 %
  
  ! PRINT FINE STRUCTURE ARRAY GAMMA_D
  
  GAMMAD5_C7H8(1:7,1:8) = RESHAPE((/ &  ! 2675-2850 CM-1
     4.498679E-04_EB, 5.206905E-04_EB, 5.314804E-04_EB, 5.225909E-04_EB, 5.382880E-04_EB, 4.354686E-04_EB, 4.954396E-04_EB, &
     5.733660E-04_EB, 5.664218E-04_EB, 6.760255E-04_EB, 5.720172E-04_EB, 1.214045E-03_EB, 6.728005E-03_EB, 6.901498E-02_EB, &
     5.501549E-04_EB, 6.422611E-04_EB, 6.751496E-04_EB, 6.170879E-04_EB, 2.505333E-02_EB, 2.929665E-02_EB, 2.183072E-01_EB, &
     6.226316E-04_EB, 6.634878E-04_EB, 2.204441E-03_EB, 1.315450E-03_EB, 1.427511E-01_EB, 5.684139E-02_EB, 1.991618E-01_EB, &
     6.173941E-04_EB, 8.607660E-04_EB, 4.084909E-03_EB, 1.485988E-03_EB, 6.217446E-02_EB, 1.696125E-01_EB, 6.362403E-01_EB, &
     2.271432E-01_EB, 2.575315E-02_EB, 1.742774E-02_EB, 4.872962E-03_EB, 1.222993E-01_EB, 2.494679E-01_EB, 4.960213E-01_EB, &
     3.499358E-01_EB, 9.426016E-01_EB, 5.241002E-02_EB, 4.920380E-02_EB, 6.407093E-01_EB, 1.208700E+00_EB, 3.229169E+00_EB, &
     2.056851E+01_EB, 2.155787E+00_EB, 1.241796E-01_EB, 3.443147E-01_EB, 8.158180E+00_EB, 8.235706E+00_EB, &
     4.544885E+00_EB/),(/7,8/))
  
  GAMMAD5_C7H8(1:7,9:16) = RESHAPE((/ &  ! 2875-3050 CM-1
     7.999651E+01_EB, 4.892463E+01_EB, 2.269762E+00_EB, 1.699238E+01_EB, 3.883167E+01_EB, 2.126359E+01_EB, 1.128396E+01_EB, &
     7.999972E+01_EB, 6.309208E+01_EB, 3.234965E+00_EB, 1.718937E+01_EB, 4.942497E+01_EB, 3.563188E+01_EB, 2.569318E+01_EB, &
     7.999990E+01_EB, 6.940301E+01_EB, 2.588169E+00_EB, 6.006982E+00_EB, 5.718259E+01_EB, 4.914102E+01_EB, 3.825054E+01_EB, &
     7.999998E+01_EB, 6.945636E+01_EB, 5.656023E+01_EB, 4.602265E+01_EB, 5.718979E+01_EB, 4.365360E+01_EB, 2.767624E+01_EB, &
     7.999997E+01_EB, 6.310533E+01_EB, 2.112740E+01_EB, 2.715276E+01_EB, 2.826351E+01_EB, 1.692961E+01_EB, 1.913465E+01_EB, &
     7.999883E+01_EB, 6.945732E+01_EB, 3.458543E+00_EB, 4.892432E+01_EB, 5.719058E+01_EB, 4.910638E+01_EB, 3.932336E+01_EB, &
     7.999636E+01_EB, 6.932335E+01_EB, 2.959489E+01_EB, 2.214939E+01_EB, 5.718273E+01_EB, 4.914071E+01_EB, 4.383529E+01_EB, &
     7.999930E+01_EB, 6.963014E+01_EB, 6.599550E+01_EB, 5.266039E+01_EB, 5.718071E+01_EB, 4.910109E+01_EB, &
     4.383604E+01_EB/),(/7,8/))
  
  GAMMAD5_C7H8(1:7,17:23) = RESHAPE((/ &  ! 3075-3225 CM-1
     7.999949E+01_EB, 6.961299E+01_EB, 6.604063E+01_EB, 2.849107E+01_EB, 5.719148E+01_EB, 4.914326E+01_EB, 4.383622E+01_EB, &
     7.999993E+01_EB, 6.944137E+01_EB, 6.603883E+01_EB, 3.834261E+01_EB, 5.713287E+01_EB, 3.198295E+01_EB, 1.533847E+01_EB, &
     5.103942E+01_EB, 7.534768E+00_EB, 6.064864E+00_EB, 1.229512E+00_EB, 4.034341E+00_EB, 1.526492E+00_EB, 9.982477E-01_EB, &
     4.966937E-01_EB, 3.630636E-01_EB, 1.127309E-01_EB, 1.271562E-02_EB, 2.831161E-01_EB, 2.892147E-01_EB, 8.723984E-02_EB, &
     2.678214E-01_EB, 1.122623E-01_EB, 2.684864E-02_EB, 1.687467E-03_EB, 8.582904E-03_EB, 1.126356E-01_EB, 4.870184E-04_EB, &
     5.319443E-03_EB, 2.133031E-03_EB, 2.657648E-03_EB, 4.684001E-04_EB, 1.112851E-03_EB, 5.919668E-03_EB, 4.552670E-04_EB, &
     3.682775E-04_EB, 3.700575E-04_EB, 3.724614E-04_EB, 3.699127E-04_EB, 3.709688E-04_EB, 3.696394E-04_EB, &
     3.680801E-04_EB/),(/7,7/))
  
  !--------------------------------OLD RADCAL DATA----------------------------------------
  !  INITIALIZE SD ARRAY
  
  ! TEMP,K= 300     600      1000      1500      2000      2500
  
  SD(1:6,1:8) = RESHAPE ((/  & ! 50-225
  .950E+00_EB, .103E+00_EB, .420E-01_EB, .114E-01_EB, .450E-02_EB, .300E-02_EB, &
  .208E+01_EB, .365E+00_EB, .113E+00_EB, .375E-01_EB, .195E-01_EB, .134E-01_EB, &
  .368E+01_EB, .990E+00_EB, .300E+00_EB, .104E+00_EB, .577E-01_EB, .365E-01_EB, &
  .650E+01_EB, .201E+01_EB, .650E+00_EB, .214E+00_EB, .128E+00_EB, .845E-01_EB, &
  .825E+01_EB, .325E+01_EB, .121E+01_EB, .415E+00_EB, .260E+00_EB, .168E+00_EB, &
  .870E+01_EB, .452E+01_EB, .189E+01_EB, .765E+00_EB, .450E+00_EB, .289E+00_EB, &
  .810E+01_EB, .540E+01_EB, .261E+01_EB, .126E+01_EB, .695E+00_EB, .460E+00_EB, &
  .682E+01_EB, .600E+01_EB, .337E+01_EB, .179E+01_EB, .101E+01_EB, .679E+00_EB/), &
  (/6,8/))
  SD(1:6,9:16) = RESHAPE ((/ &  ! 250-425
  .493E+01_EB, .622E+01_EB, .407E+01_EB, .230E+01_EB, .135E+01_EB, .935E+00_EB, &
  .316E+01_EB, .592E+01_EB, .456E+01_EB, .281E+01_EB, .172E+01_EB, .122E+01_EB, &
  .199E+01_EB, .528E+01_EB, .479E+01_EB, .328E+01_EB, .213E+01_EB, .149E+01_EB, &
  .113E+01_EB, .450E+01_EB, .484E+01_EB, .361E+01_EB, .249E+01_EB, .179E+01_EB, &
  .585E+00_EB, .370E+01_EB, .471E+01_EB, .383E+01_EB, .284E+01_EB, .208E+01_EB, &
  .293E+00_EB, .289E+01_EB, .443E+01_EB, .394E+01_EB, .312E+01_EB, .237E+01_EB, &
  .138E+00_EB, .205E+01_EB, .400E+01_EB, .396E+01_EB, .330E+01_EB, .260E+01_EB, &
  .620E-01_EB, .143E+01_EB, .347E+01_EB, .388E+01_EB, .341E+01_EB, .280E+01_EB/), &
  (/6,8/))
  SD(1:6,17:24) = RESHAPE ((/ & ! 450-625
  .255E-01_EB, .950E+00_EB, .292E+01_EB, .370E+01_EB, .345E+01_EB, .295E+01_EB, &
  .940E-02_EB, .610E+00_EB, .236E+01_EB, .343E+01_EB, .342E+01_EB, .304E+01_EB, &
  .340E-02_EB, .386E+00_EB, .188E+01_EB, .310E+01_EB, .334E+01_EB, .309E+01_EB, &
  .105E-02_EB, .236E+00_EB, .145E+01_EB, .274E+01_EB, .319E+01_EB, .307E+01_EB, &
  .350E-03_EB, .144E+00_EB, .110E+01_EB, .238E+01_EB, .300E+01_EB, .301E+01_EB, &
  .126E-03_EB, .820E-01_EB, .818E+00_EB, .204E+01_EB, .276E+01_EB, .289E+01_EB, &
  .430E-04_EB, .445E-01_EB, .598E+00_EB, .174E+01_EB, .248E+01_EB, .275E+01_EB, &
  .150E-04_EB, .242E-01_EB, .427E+00_EB, .145E+01_EB, .222E+01_EB, .260E+01_EB/), &
  (/6,8/))
  SD(1:6,25:32) = RESHAPE ((/  &! 650-825
  .510E-05_EB, .127E-01_EB, .294E+00_EB, .118E+01_EB, .195E+01_EB, .241E+01_EB, &
  .170E-05_EB, .630E-02_EB, .200E+00_EB, .950E+00_EB, .169E+01_EB, .221E+01_EB, &
  .570E-06_EB, .300E-02_EB, .134E+00_EB, .748E+00_EB, .146E+01_EB, .200E+01_EB, &
  .195E-06_EB, .140E-02_EB, .902E-01_EB, .580E+00_EB, .124E+01_EB, .178E+01_EB, &
  .680E-07_EB, .620E-03_EB, .590E-01_EB, .443E+00_EB, .103E+01_EB, .156E+01_EB, &
  .385E-07_EB, .275E-03_EB, .450E-01_EB, .330E+00_EB, .845E+00_EB, .136E+01_EB, &
  .670E-07_EB, .113E-03_EB, .355E-01_EB, .242E+00_EB, .695E+00_EB, .117E+01_EB, &
  .113E-06_EB, .500E-04_EB, .289E-01_EB, .174E+00_EB, .560E+00_EB, .100E+01_EB/), &
  (/6,8/))
  SD(1:6,33:40) = RESHAPE ((/ & ! 850-1025
  .195E-06_EB, .230E-04_EB, .245E-01_EB, .123E+00_EB, .450E+00_EB, .855E+00_EB, &
  .328E-06_EB, .103E-04_EB, .214E-01_EB, .100E+00_EB, .357E+00_EB, .718E+00_EB, &
  .560E-06_EB, .460E-05_EB, .189E-01_EB, .830E-01_EB, .278E+00_EB, .595E+00_EB, &
  .950E-06_EB, .205E-05_EB, .174E-01_EB, .730E-01_EB, .239E+00_EB, .492E+00_EB, &
  .160E-05_EB, .140E-05_EB, .166E-01_EB, .665E-01_EB, .211E+00_EB, .405E+00_EB, &
  .275E-05_EB, .350E-05_EB, .165E-01_EB, .630E-01_EB, .195E+00_EB, .352E+00_EB, &
  .470E-05_EB, .850E-05_EB, .167E-01_EB, .620E-01_EB, .190E+00_EB, .312E+00_EB, &
  .810E-05_EB, .215E-04_EB, .175E-01_EB, .630E-01_EB, .191E+00_EB, .289E+00_EB/), &
  (/6,8/))
  SD(1:6,41:48) = RESHAPE ((/ & ! 1050-1225
  .136E-04_EB, .570E-04_EB, .188E-01_EB, .675E-01_EB, .194E+00_EB, .281E+00_EB, &
  .235E-04_EB, .150E-03_EB, .208E-01_EB, .745E-01_EB, .202E+00_EB, .283E+00_EB, &
  .400E-04_EB, .380E-03_EB, .233E-01_EB, .865E-01_EB, .223E+00_EB, .314E+00_EB, &
  .680E-04_EB, .950E-03_EB, .268E-01_EB, .122E+00_EB, .260E+00_EB, .380E+00_EB, &
  .120E-03_EB, .245E-02_EB, .343E-01_EB, .176E+00_EB, .328E+00_EB, .461E+00_EB, &
  .200E-03_EB, .620E-02_EB, .638E-01_EB, .251E+00_EB, .411E+00_EB, .511E+00_EB, &
  .365E-03_EB, .140E-01_EB, .107E+00_EB, .330E+00_EB, .458E+00_EB, .542E+00_EB, &
  .680E-03_EB, .330E-01_EB, .166E+00_EB, .405E+00_EB, .487E+00_EB, .571E+00_EB/),&
  (/6,8/))
  SD(1:6,49:56) = RESHAPE ((/ & ! 1250-1425
  .130E-02_EB, .635E-01_EB, .244E+00_EB, .459E+00_EB, .535E+00_EB, .557E+00_EB, &
  .250E-02_EB, .123E+00_EB, .341E+00_EB, .477E+00_EB, .502E+00_EB, .562E+00_EB, &
  .500E-02_EB, .212E+00_EB, .407E+00_EB, .547E+00_EB, .531E+00_EB, .514E+00_EB, &
  .103E-01_EB, .285E+00_EB, .489E+00_EB, .592E+00_EB, .497E+00_EB, .486E+00_EB, &
  .219E-01_EB, .328E+00_EB, .491E+00_EB, .558E+00_EB, .489E+00_EB, .485E+00_EB, &
  .485E-01_EB, .345E+00_EB, .505E+00_EB, .521E+00_EB, .477E+00_EB, .484E+00_EB, &
  .114E+00_EB, .361E+00_EB, .538E+00_EB, .563E+00_EB, .503E+00_EB, .502E+00_EB, &
  .249E+00_EB, .460E+00_EB, .621E+00_EB, .624E+00_EB, .538E+00_EB, .538E+00_EB/), &
  (/6,8/))
  SD(1:6,57:64) = RESHAPE ((/ & ! 1450-1625
  .397E+00_EB, .569E+00_EB, .749E+00_EB, .768E+00_EB, .581E+00_EB, .565E+00_EB, &
  .418E+00_EB, .627E+00_EB, .824E+00_EB, .849E+00_EB, .640E+00_EB, .594E+00_EB, &
  .108E+01_EB, .125E+01_EB, .113E+01_EB, .940E+00_EB, .807E+00_EB, .663E+00_EB, &
  .165E+01_EB, .155E+01_EB, .118E+01_EB, .670E+00_EB, .562E+00_EB, .483E+00_EB, &
  .142E+01_EB, .675E+00_EB, .557E+00_EB, .349E+00_EB, .276E+00_EB, .263E+00_EB, &
  .451E+00_EB, .202E+00_EB, .132E+00_EB, .118E+00_EB, .134E+00_EB, .156E+00_EB, &
  .603E-01_EB, .538E-01_EB, .863E-01_EB, .112E+00_EB, .120E+00_EB, .125E+00_EB, &
  .501E+00_EB, .252E+00_EB, .118E+00_EB, .112E+00_EB, .131E+00_EB, .140E+00_EB/), &
  (/6,8/))
  SD(1:6,65:72) = RESHAPE ((/ & ! 1650-1825
  .730E+00_EB, .430E+00_EB, .237E+00_EB, .191E+00_EB, .171E+00_EB, .170E+00_EB, &
  .149E+01_EB, .506E+00_EB, .294E+00_EB, .238E+00_EB, .210E+00_EB, .201E+00_EB, &
  .100E+01_EB, .553E+00_EB, .434E+00_EB, .340E+00_EB, .260E+00_EB, .220E+00_EB, &
  .802E+00_EB, .658E+00_EB, .528E+00_EB, .411E+00_EB, .300E+00_EB, .240E+00_EB, &
  .580E+00_EB, .527E+00_EB, .460E+00_EB, .378E+00_EB, .322E+00_EB, .283E+00_EB, &
  .330E+00_EB, .403E+00_EB, .430E+00_EB, .356E+00_EB, .318E+00_EB, .270E+00_EB, &
  .250E+00_EB, .393E+00_EB, .405E+00_EB, .342E+00_EB, .301E+00_EB, .275E+00_EB, &
  .147E+00_EB, .249E+00_EB, .313E+00_EB, .318E+00_EB, .291E+00_EB, .268E+00_EB/), &
  (/6,8/))
  SD(1:6,73:80) = RESHAPE ((/ & ! 1850-2025
  .910E-01_EB, .252E+00_EB, .298E+00_EB, .295E+00_EB, .269E+00_EB, .253E+00_EB, &
  .580E-01_EB, .158E+00_EB, .214E+00_EB, .244E+00_EB, .244E+00_EB, .245E+00_EB, &
  .370E-01_EB, .113E+00_EB, .184E+00_EB, .218E+00_EB, .214E+00_EB, .218E+00_EB, &
  .244E-01_EB, .118E+00_EB, .156E+00_EB, .188E+00_EB, .195E+00_EB, .200E+00_EB, &
  .162E-01_EB, .606E-01_EB, .976E-01_EB, .141E+00_EB, .166E+00_EB, .179E+00_EB, &
  .112E-01_EB, .425E-01_EB, .903E-01_EB, .133E+00_EB, .148E+00_EB, .156E+00_EB, &
  .780E-02_EB, .400E-01_EB, .765E-01_EB, .112E+00_EB, .129E+00_EB, .137E+00_EB, &
  .540E-02_EB, .352E-01_EB, .647E-01_EB, .876E-01_EB, .110E+00_EB, .118E+00_EB/), &
  (/6,8/))
  SD(1:6,81:88) = RESHAPE ((/ & ! 2050-2225
  .380E-02_EB, .252E-01_EB, .507E-01_EB, .705E-01_EB, .888E-01_EB, .100E+00_EB, &
  .260E-02_EB, .179E-01_EB, .377E-01_EB, .546E-01_EB, .724E-01_EB, .828E-01_EB, &
  .180E-02_EB, .123E-01_EB, .294E-01_EB, .443E-01_EB, .608E-01_EB, .686E-01_EB, &
  .127E-02_EB, .850E-02_EB, .212E-01_EB, .378E-01_EB, .579E-01_EB, .640E-01_EB, &
  .880E-03_EB, .680E-02_EB, .152E-01_EB, .275E-01_EB, .449E-01_EB, .521E-01_EB, &
  .620E-02_EB, .400E-02_EB, .107E-01_EB, .214E-01_EB, .374E-01_EB, .453E-01_EB, &
  .480E-03_EB, .298E-02_EB, .931E-02_EB, .189E-01_EB, .329E-01_EB, .403E-01_EB, &
  .405E-03_EB, .175E-02_EB, .696E-02_EB, .152E-01_EB, .295E-01_EB, .365E-01_EB/), &
  (/6,8/))
  SD(1:6,89:96) = RESHAPE ((/ & ! 2250-2425
  .321E-03_EB, .120E-02_EB, .452E-02_EB, .101E-01_EB, .252E-01_EB, .331E-01_EB, &
  .229E-03_EB, .721E-03_EB, .364E-02_EB, .930E-02_EB, .225E-01_EB, .305E-01_EB, &
  .195E-03_EB, .544E-03_EB, .318E-02_EB, .750E-02_EB, .202E-01_EB, .284E-01_EB, &
  .154E-03_EB, .375E-03_EB, .185E-02_EB, .603E-02_EB, .175E-01_EB, .269E-01_EB, &
  .101E-03_EB, .263E-03_EB, .119E-02_EB, .480E-02_EB, .156E-01_EB, .253E-01_EB, &
  .852E-04_EB, .185E-03_EB, .909E-03_EB, .360E-02_EB, .133E-01_EB, .241E-01_EB, &
  .763E-04_EB, .137E-03_EB, .711E-03_EB, .316E-02_EB, .122E-01_EB, .237E-01_EB, &
  .615E-04_EB, .126E-03_EB, .610E-03_EB, .257E-02_EB, .101E-01_EB, .218E-01_EB/), &
  (/6,8/))
  SD(1:6,97:104) = RESHAPE ((/ & ! 2450-2625
  .480E-04_EB, .113E-03_EB, .518E-03_EB, .201E-02_EB, .920E-02_EB, .200E-01_EB, &
  .372E-04_EB, .106E-03_EB, .435E-03_EB, .168E-02_EB, .785E-02_EB, .183E-01_EB, &
  .355E-04_EB, .101E-03_EB, .376E-03_EB, .168E-02_EB, .669E-02_EB, .166E-01_EB, &
  .358E-04_EB, .990E-04_EB, .366E-03_EB, .167E-02_EB, .651E-02_EB, .156E-01_EB, &
  .389E-04_EB, .102E-03_EB, .376E-03_EB, .167E-02_EB, .641E-02_EB, .152E-01_EB, &
  .422E-04_EB, .106E-03_EB, .373E-03_EB, .168E-02_EB, .656E-02_EB, .150E-01_EB, &
  .521E-04_EB, .111E-03_EB, .371E-03_EB, .170E-02_EB, .673E-02_EB, .152E-01_EB, &
  .646E-04_EB, .121E-03_EB, .384E-03_EB, .179E-02_EB, .798E-02_EB, .179E-01_EB/), &
  (/6,8/))
  SD(1:6,105:112) = RESHAPE ((/ & ! 2650-2825
  .742E-04_EB, .129E-03_EB, .479E-03_EB, .201E-02_EB, .788E-02_EB, .175E-01_EB, &
  .953E-04_EB, .165E-03_EB, .544E-03_EB, .249E-02_EB, .945E-02_EB, .204E-01_EB, &
  .101E-03_EB, .190E-03_EB, .761E-03_EB, .324E-02_EB, .106E-01_EB, .231E-01_EB, &
  .147E-03_EB, .272E-03_EB, .892E-03_EB, .441E-02_EB, .125E-01_EB, .257E-01_EB, &
  .195E-03_EB, .326E-03_EB, .100E-02_EB, .499E-02_EB, .147E-01_EB, .295E-01_EB, &
  .261E-03_EB, .421E-03_EB, .145E-02_EB, .568E-02_EB, .161E-01_EB, .306E-01_EB, &
  .305E-03_EB, .515E-03_EB, .195E-02_EB, .754E-02_EB, .185E-01_EB, .363E-01_EB, &
  .362E-03_EB, .645E-03_EB, .237E-02_EB, .830E-02_EB, .205E-01_EB, .373E-01_EB/), &
  (/6,8/))
  SD(1:6,113:120) = RESHAPE ((/ & ! 2850-3025
  .507E-03_EB, .850E-03_EB, .274E-02_EB, .888E-02_EB, .234E-01_EB, .431E-01_EB, &
  .799E-03_EB, .118E-02_EB, .322E-02_EB, .110E-01_EB, .262E-01_EB, .451E-01_EB, &
  .935E-03_EB, .160E-02_EB, .386E-02_EB, .126E-01_EB, .292E-01_EB, .530E-01_EB, &
  .108E-02_EB, .231E-02_EB, .451E-02_EB, .140E-01_EB, .306E-01_EB, .536E-01_EB, &
  .192E-02_EB, .271E-02_EB, .563E-02_EB, .159E-01_EB, .357E-01_EB, .629E-01_EB, &
  .263E-02_EB, .300E-02_EB, .625E-02_EB, .179E-01_EB, .385E-01_EB, .666E-01_EB, &
  .295E-02_EB, .330E-02_EB, .701E-02_EB, .203E-01_EB, .460E-01_EB, .782E-01_EB, &
  .310E-02_EB, .370E-02_EB, .846E-02_EB, .220E-01_EB, .519E-01_EB, .889E-01_EB/), &
  (/6,8/))
  SD(1:6,121:128) = RESHAPE ((/ & ! 3050-3225
  .340E-02_EB, .400E-02_EB, .969E-02_EB, .279E-01_EB, .662E-01_EB, .109E+00_EB, &
  .730E-02_EB, .450E-02_EB, .111E-01_EB, .272E-01_EB, .676E-01_EB, .109E+00_EB, &
  .900E-02_EB, .480E-02_EB, .137E-01_EB, .372E-01_EB, .864E-01_EB, .133E+00_EB, &
  .100E-02_EB, .510E-02_EB, .162E-01_EB, .471E-01_EB, .100E+00_EB, .142E+00_EB, &
  .640E-03_EB, .550E-02_EB, .205E-01_EB, .530E-01_EB, .122E+00_EB, .168E+00_EB, &
  .160E-02_EB, .600E-02_EB, .247E-01_EB, .633E-01_EB, .135E+00_EB, .177E+00_EB, &
  .330E-02_EB, .700E-02_EB, .283E-01_EB, .770E-01_EB, .153E+00_EB, .185E+00_EB, &
  .410E-02_EB, .860E-02_EB, .376E-01_EB, .914E-01_EB, .166E+00_EB, .206E+00_EB/),&
  (/6,8/))
  SD(1:6,129:136) = RESHAPE ((/ & ! 3250-3425
  .410E-02_EB, .103E-01_EB, .514E-01_EB, .117E+00_EB, .194E+00_EB, .228E+00_EB, &
  .290E-02_EB, .129E-01_EB, .664E-01_EB, .147E+00_EB, .220E+00_EB, .254E+00_EB, &
  .220E-02_EB, .161E-01_EB, .834E-01_EB, .171E+00_EB, .237E+00_EB, .263E+00_EB, &
  .220E-02_EB, .212E-01_EB, .103E+00_EB, .201E+00_EB, .268E+00_EB, .283E+00_EB, &
  .250E-02_EB, .285E-01_EB, .135E+00_EB, .240E+00_EB, .295E+00_EB, .295E+00_EB, &
  .310E-02_EB, .385E-01_EB, .169E+00_EB, .272E+00_EB, .312E+00_EB, .301E+00_EB, &
  .420E-02_EB, .540E-01_EB, .214E+00_EB, .309E+00_EB, .329E+00_EB, .307E+00_EB, &
  .600E-02_EB, .770E-01_EB, .267E+00_EB, .343E+00_EB, .332E+00_EB, .314E+00_EB/), &
  (/6,8/))
  SD(1:6,137:144) = RESHAPE ((/ & ! 3450-3625
  .940E-02_EB, .117E+00_EB, .333E+00_EB, .372E+00_EB, .344E+00_EB, .303E+00_EB, &
  .165E-01_EB, .173E+00_EB, .365E+00_EB, .385E+00_EB, .353E+00_EB, .300E+00_EB, &
  .360E-01_EB, .258E+00_EB, .438E+00_EB, .393E+00_EB, .315E+00_EB, .288E+00_EB, &
  .720E-01_EB, .375E+00_EB, .510E+00_EB, .409E+00_EB, .294E+00_EB, .271E+00_EB, &
  .133E+00_EB, .401E+00_EB, .499E+00_EB, .390E+00_EB, .281E+00_EB, .257E+00_EB, &
  .215E+00_EB, .500E+00_EB, .443E+00_EB, .341E+00_EB, .254E+00_EB, .230E+00_EB, &
  .318E+00_EB, .450E+00_EB, .346E+00_EB, .286E+00_EB, .245E+00_EB, .219E+00_EB, &
  .442E+00_EB, .400E+00_EB, .354E+00_EB, .279E+00_EB, .233E+00_EB, .216E+00_EB/), &
  (/6,8/))
  SD(1:6,145:152) = RESHAPE ((/ & ! 3650-3825
  .473E+00_EB, .405E+00_EB, .347E+00_EB, .281E+00_EB, .238E+00_EB, .219E+00_EB, &
  .568E+00_EB, .501E+00_EB, .423E+00_EB, .315E+00_EB, .243E+00_EB, .218E+00_EB, &
  .690E+00_EB, .708E+00_EB, .673E+00_EB, .432E+00_EB, .268E+00_EB, .189E+00_EB, &
  .617E+00_EB, .831E+00_EB, .566E+00_EB, .320E+00_EB, .194E+00_EB, .123E+00_EB, &
  .181E+01_EB, .520E+00_EB, .200E+00_EB, .131E+00_EB, .124E+00_EB, .107E+00_EB, &
  .136E+00_EB, .124E+00_EB, .120E+00_EB, .119E+00_EB, .115E+00_EB, .115E+00_EB, &
  .455E+00_EB, .298E+00_EB, .167E+00_EB, .129E+00_EB, .123E+00_EB, .112E+00_EB, &
  .760E+00_EB, .503E+00_EB, .242E+00_EB, .154E+00_EB, .129E+00_EB, .127E+00_EB/), &
  (/6,8/))
  SD(1:6,153:160) = RESHAPE ((/ & ! 3850-4025
  .836E+00_EB, .584E+00_EB, .277E+00_EB, .184E+00_EB, .161E+00_EB, .145E+00_EB, &
  .840E+00_EB, .728E+00_EB, .422E+00_EB, .236E+00_EB, .197E+00_EB, .167E+00_EB, &
  .505E+00_EB, .500E+00_EB, .379E+00_EB, .276E+00_EB, .227E+00_EB, .192E+00_EB, &
  .117E+00_EB, .400E+00_EB, .423E+00_EB, .315E+00_EB, .243E+00_EB, .202E+00_EB, &
  .460E-01_EB, .300E+00_EB, .358E+00_EB, .290E+00_EB, .230E+00_EB, .202E+00_EB, &
  .183E-01_EB, .205E+00_EB, .269E+00_EB, .235E+00_EB, .195E+00_EB, .192E+00_EB, &
  .730E-02_EB, .135E+00_EB, .186E+00_EB, .179E+00_EB, .159E+00_EB, .168E+00_EB, &
  .557E-02_EB, .790E-01_EB, .113E+00_EB, .124E+00_EB, .124E+00_EB, .134E+00_EB/), &
  (/6,8/))
  SD(1:6,161:168) = RESHAPE ((/ & ! 4050-4225
  .283E-02_EB, .415E-01_EB, .662E-01_EB, .886E-01_EB, .103E+00_EB, .106E+00_EB, &
  .226E-02_EB, .197E-01_EB, .367E-01_EB, .594E-01_EB, .801E-01_EB, .879E-01_EB, &
  .155E-02_EB, .860E-02_EB, .211E-01_EB, .395E-01_EB, .503E-01_EB, .610E-01_EB, &
  .103E-02_EB, .521E-02_EB, .119E-01_EB, .246E-01_EB, .354E-01_EB, .480E-01_EB, &
  .821E-03_EB, .365E-02_EB, .759E-02_EB, .166E-01_EB, .258E-01_EB, .370E-01_EB, &
  .752E-03_EB, .183E-02_EB, .445E-02_EB, .100E-01_EB, .179E-01_EB, .268E-01_EB, &
  .429E-03_EB, .141E-02_EB, .354E-02_EB, .821E-02_EB, .142E-01_EB, .212E-01_EB, &
  .327E-03_EB, .902E-03_EB, .209E-02_EB, .588E-02_EB, .112E-01_EB, .172E-01_EB/), &
  (/6,8/))
  SD(1:6,169:176) = RESHAPE ((/ & ! 4250-4425
  .225E-03_EB, .685E-03_EB, .189E-02_EB, .512E-02_EB, .101E-01_EB, .164E-01_EB, &
  .186E-03_EB, .551E-03_EB, .156E-02_EB, .366E-02_EB, .812E-02_EB, .136E-01_EB, &
  .173E-03_EB, .472E-03_EB, .139E-02_EB, .306E-02_EB, .661E-02_EB, .115E-01_EB, &
  .138E-03_EB, .395E-03_EB, .110E-02_EB, .272E-02_EB, .587E-02_EB, .104E-01_EB, &
  .900E-04_EB, .270E-03_EB, .968E-03_EB, .222E-02_EB, .497E-02_EB, .921E-02_EB, &
  .752E-04_EB, .233E-03_EB, .744E-03_EB, .208E-02_EB, .466E-02_EB, .876E-02_EB, &
  .618E-04_EB, .175E-03_EB, .638E-03_EB, .185E-02_EB, .465E-02_EB, .914E-02_EB, &
  .504E-04_EB, .134E-03_EB, .499E-03_EB, .174E-02_EB, .455E-02_EB, .935E-02_EB/), &
  (/6,8/))
  SD(1:6,177:184) = RESHAPE ((/ & ! 4450-4625
  .375E-04_EB, .123E-03_EB, .485E-03_EB, .182E-02_EB, .456E-02_EB, .971E-02_EB, &
  .305E-04_EB, .892E-04_EB, .338E-03_EB, .134E-02_EB, .460E-02_EB, .104E-01_EB, &
  .257E-04_EB, .790E-04_EB, .329E-03_EB, .154E-02_EB, .477E-02_EB, .112E-01_EB, &
  .242E-04_EB, .740E-04_EB, .308E-03_EB, .135E-02_EB, .497E-02_EB, .122E-01_EB, &
  .215E-04_EB, .653E-04_EB, .282E-03_EB, .131E-02_EB, .521E-02_EB, .133E-01_EB, &
  .218E-04_EB, .660E-04_EB, .272E-03_EB, .152E-02_EB, .573E-02_EB, .148E-01_EB, &
  .215E-04_EB, .671E-04_EB, .268E-03_EB, .134E-02_EB, .607E-02_EB, .159E-01_EB, &
  .217E-04_EB, .695E-04_EB, .285E-03_EB, .161E-02_EB, .677E-02_EB, .173E-01_EB/), &
  (/6,8/))
  SD(1:6,185:192) = RESHAPE ((/ & ! 4650-4825
  .219E-04_EB, .722E-04_EB, .297E-03_EB, .169E-02_EB, .783E-02_EB, .197E-01_EB, &
  .226E-04_EB, .771E-04_EB, .341E-03_EB, .236E-02_EB, .925E-02_EB, .226E-01_EB, &
  .250E-04_EB, .815E-04_EB, .387E-03_EB, .286E-02_EB, .106E-01_EB, .250E-01_EB, &
  .280E-04_EB, .845E-04_EB, .420E-03_EB, .357E-02_EB, .124E-01_EB, .276E-01_EB, &
  .351E-04_EB, .192E-03_EB, .470E-03_EB, .467E-02_EB, .166E-01_EB, .313E-01_EB, &
  .435E-04_EB, .200E-03_EB, .105E-02_EB, .566E-02_EB, .185E-01_EB, .341E-01_EB, &
  .522E-04_EB, .233E-03_EB, .129E-02_EB, .736E-02_EB, .229E-01_EB, .378E-01_EB, &
  .673E-04_EB, .306E-03_EB, .183E-02_EB, .982E-02_EB, .258E-01_EB, .404E-01_EB/), &
  (/6,8/))
  SD(1:6,193:200) = RESHAPE ((/ & ! 4850-5025
  .886E-04_EB, .399E-03_EB, .246E-02_EB, .128E-01_EB, .302E-01_EB, .430E-01_EB, &
  .113E-03_EB, .618E-03_EB, .346E-02_EB, .161E-01_EB, .358E-01_EB, .459E-01_EB, &
  .174E-03_EB, .825E-03_EB, .441E-02_EB, .200E-01_EB, .417E-01_EB, .493E-01_EB, &
  .265E-03_EB, .163E-02_EB, .777E-02_EB, .245E-01_EB, .450E-01_EB, .507E-01_EB, &
  .355E-03_EB, .200E-02_EB, .978E-02_EB, .317E-01_EB, .492E-01_EB, .527E-01_EB, &
  .538E-03_EB, .271E-02_EB, .167E-01_EB, .401E-01_EB, .503E-01_EB, .523E-01_EB, &
  .651E-03_EB, .301E-02_EB, .264E-01_EB, .467E-01_EB, .520E-01_EB, .526E-01_EB, &
  .987E-03_EB, .530E-02_EB, .321E-01_EB, .499E-01_EB, .523E-01_EB, .510E-01_EB/), &
  (/6,8/))
  SD(1:6,201:208) = RESHAPE ((/ & ! 5050-5225
  .135E-02_EB, .860E-02_EB, .389E-01_EB, .528E-01_EB, .513E-01_EB, .492E-01_EB, &
  .226E-02_EB, .130E-01_EB, .472E-01_EB, .559E-01_EB, .500E-01_EB, .469E-01_EB, &
  .431E-02_EB, .198E-01_EB, .526E-01_EB, .557E-01_EB, .480E-01_EB, .452E-01_EB, &
  .628E-02_EB, .282E-01_EB, .488E-01_EB, .495E-01_EB, .451E-01_EB, .430E-01_EB, &
  .900E-02_EB, .390E-01_EB, .471E-01_EB, .449E-01_EB, .430E-01_EB, .423E-01_EB, &
  .180E-01_EB, .462E-01_EB, .412E-01_EB, .391E-01_EB, .403E-01_EB, .415E-01_EB, &
  .348E-01_EB, .710E-01_EB, .402E-01_EB, .360E-01_EB, .384E-01_EB, .414E-01_EB, &
  .718E-01_EB, .590E-01_EB, .399E-01_EB, .360E-01_EB, .376E-01_EB, .420E-01_EB/), &
  (/6,8/))
  SD(1:6,209:216) = RESHAPE ((/ & ! 5250-5425
  .111E+00_EB, .368E-01_EB, .340E-01_EB, .369E-01_EB, .409E-01_EB, .454E-01_EB, &
  .329E-01_EB, .285E-01_EB, .365E-01_EB, .423E-01_EB, .461E-01_EB, .482E-01_EB, &
  .281E-01_EB, .270E-01_EB, .432E-01_EB, .505E-01_EB, .529E-01_EB, .511E-01_EB, &
  .121E+00_EB, .422E-01_EB, .589E-01_EB, .598E-01_EB, .572E-01_EB, .544E-01_EB, &
  .139E+00_EB, .105E+00_EB, .844E-01_EB, .687E-01_EB, .593E-01_EB, .560E-01_EB, &
  .774E-01_EB, .710E-01_EB, .683E-01_EB, .618E-01_EB, .556E-01_EB, .534E-01_EB, &
  .858E-01_EB, .483E-01_EB, .579E-01_EB, .547E-01_EB, .503E-01_EB, .495E-01_EB, &
  .985E-01_EB, .575E-01_EB, .589E-01_EB, .510E-01_EB, .451E-01_EB, .449E-01_EB/), &
  (/6,8/))
  SD(1:6,217:224) = RESHAPE ((/ & ! 5450-5625
  .996E-01_EB, .682E-01_EB, .539E-01_EB, .489E-01_EB, .454E-01_EB, .446E-01_EB, &
  .680E-01_EB, .680E-01_EB, .548E-01_EB, .495E-01_EB, .460E-01_EB, .458E-01_EB, &
  .325E-01_EB, .520E-01_EB, .515E-01_EB, .483E-01_EB, .449E-01_EB, .454E-01_EB, &
  .150E-01_EB, .350E-01_EB, .451E-01_EB, .464E-01_EB, .452E-01_EB, .449E-01_EB, &
  .620E-02_EB, .238E-01_EB, .369E-01_EB, .408E-01_EB, .414E-01_EB, .417E-01_EB, &
  .270E-02_EB, .158E-01_EB, .282E-01_EB, .339E-01_EB, .366E-01_EB, .384E-01_EB, &
  .113E-02_EB, .101E-01_EB, .203E-01_EB, .263E-01_EB, .303E-01_EB, .333E-01_EB, &
  .829E-03_EB, .590E-02_EB, .148E-01_EB, .206E-01_EB, .247E-01_EB, .295E-01_EB/), &
  (/6,8/))
  SD(1:6,225:232) = RESHAPE ((/ & ! 5650-5825
  .365E-03_EB, .310E-02_EB, .969E-02_EB, .154E-01_EB, .203E-01_EB, .258E-01_EB, &
  .240E-03_EB, .130E-02_EB, .589E-02_EB, .112E-01_EB, .164E-01_EB, .222E-01_EB, &
  .158E-03_EB, .400E-03_EB, .417E-02_EB, .850E-02_EB, .134E-01_EB, .190E-01_EB, &
  .103E-03_EB, .262E-03_EB, .208E-02_EB, .594E-02_EB, .109E-01_EB, .162E-01_EB, &
  .741E-04_EB, .181E-03_EB, .142E-02_EB, .455E-02_EB, .907E-02_EB, .141E-01_EB, &
  .625E-04_EB, .135E-03_EB, .816E-03_EB, .316E-02_EB, .698E-02_EB, .121E-01_EB, &
  .499E-04_EB, .111E-03_EB, .624E-03_EB, .230E-02_EB, .551E-02_EB, .102E-01_EB, &
  .325E-04_EB, .677E-04_EB, .425E-03_EB, .124E-02_EB, .385E-02_EB, .818E-02_EB/), &
  (/6,8/))
  SD(1:6,233:240) = RESHAPE ((/ & ! 5850-6025
  .231E-04_EB, .563E-04_EB, .278E-03_EB, .986E-03_EB, .290E-02_EB, .672E-02_EB, &
  .165E-04_EB, .481E-04_EB, .247E-03_EB, .944E-03_EB, .253E-02_EB, .612E-02_EB, &
  .126E-04_EB, .432E-04_EB, .241E-03_EB, .886E-03_EB, .220E-02_EB, .582E-02_EB, &
  .118E-04_EB, .420E-04_EB, .235E-03_EB, .847E-03_EB, .209E-02_EB, .571E-02_EB, &
  .110E-04_EB, .408E-04_EB, .226E-03_EB, .812E-03_EB, .221E-02_EB, .604E-02_EB, &
  .101E-04_EB, .400E-04_EB, .213E-03_EB, .805E-03_EB, .239E-02_EB, .641E-02_EB, &
  .983E-05_EB, .395E-04_EB, .186E-03_EB, .801E-03_EB, .247E-02_EB, .691E-02_EB, &
  .979E-05_EB, .401E-04_EB, .193E-03_EB, .805E-03_EB, .260E-02_EB, .732E-02_EB/), &
  (/6,8/))
  SD(1:6,241:248) = RESHAPE ((/ & ! 6050-6225
  .976E-05_EB, .410E-04_EB, .201E-03_EB, .814E-03_EB, .285E-02_EB, .776E-02_EB, &
  .988E-05_EB, .420E-04_EB, .210E-03_EB, .832E-03_EB, .317E-02_EB, .842E-02_EB, &
  .991E-05_EB, .425E-04_EB, .219E-03_EB, .877E-03_EB, .340E-02_EB, .888E-02_EB, &
  .102E-04_EB, .435E-04_EB, .231E-03_EB, .937E-03_EB, .361E-02_EB, .929E-02_EB, &
  .110E-04_EB, .486E-04_EB, .244E-03_EB, .971E-03_EB, .402E-02_EB, .994E-02_EB, &
  .127E-04_EB, .579E-04_EB, .257E-03_EB, .111E-02_EB, .437E-02_EB, .104E-01_EB, &
  .131E-04_EB, .612E-04_EB, .277E-03_EB, .113E-02_EB, .465E-02_EB, .110E-01_EB, &
  .150E-04_EB, .783E-04_EB, .353E-03_EB, .116E-02_EB, .510E-02_EB, .116E-01_EB/), &
  (/6,8/))
  SD(1:6,249:256) = RESHAPE ((/ & ! 6250-6425
  .178E-04_EB, .922E-04_EB, .394E-03_EB, .157E-02_EB, .555E-02_EB, .123E-01_EB, &
  .203E-04_EB, .115E-03_EB, .481E-03_EB, .188E-02_EB, .601E-02_EB, .131E-01_EB, &
  .230E-04_EB, .145E-03_EB, .617E-03_EB, .183E-02_EB, .644E-02_EB, .139E-01_EB, &
  .280E-04_EB, .187E-03_EB, .723E-03_EB, .202E-02_EB, .686E-02_EB, .146E-01_EB, &
  .305E-04_EB, .209E-03_EB, .811E-03_EB, .243E-02_EB, .779E-02_EB, .157E-01_EB, &
  .455E-04_EB, .244E-03_EB, .935E-03_EB, .243E-02_EB, .844E-02_EB, .166E-01_EB, &
  .661E-04_EB, .320E-03_EB, .989E-03_EB, .288E-02_EB, .902E-02_EB, .173E-01_EB, &
  .723E-04_EB, .397E-03_EB, .122E-02_EB, .359E-02_EB, .100E-01_EB, .184E-01_EB/), &
  (/6,8/))
  SD(1:6,257:264) = RESHAPE ((/ & ! 6450-6625
  .847E-04_EB, .481E-03_EB, .143E-02_EB, .429E-02_EB, .108E-01_EB, .192E-01_EB, &
  .103E-03_EB, .591E-03_EB, .174E-02_EB, .488E-02_EB, .116E-01_EB, .200E-01_EB, &
  .131E-03_EB, .703E-03_EB, .247E-02_EB, .549E-02_EB, .124E-01_EB, .205E-01_EB, &
  .165E-03_EB, .872E-03_EB, .265E-02_EB, .641E-02_EB, .131E-01_EB, .211E-01_EB, &
  .205E-03_EB, .110E-02_EB, .298E-02_EB, .749E-02_EB, .140E-01_EB, .218E-01_EB, &
  .253E-03_EB, .130E-02_EB, .346E-02_EB, .811E-02_EB, .150E-01_EB, .230E-01_EB, &
  .338E-03_EB, .150E-02_EB, .445E-02_EB, .890E-02_EB, .159E-01_EB, .237E-01_EB, &
  .437E-03_EB, .170E-02_EB, .491E-02_EB, .107E-01_EB, .170E-01_EB, .245E-01_EB/), &
  (/6,8/))
  SD(1:6,265:272) = RESHAPE ((/ & ! 6650-6825
  .581E-03_EB, .190E-02_EB, .537E-02_EB, .116E-01_EB, .179E-01_EB, .254E-01_EB, &
  .685E-03_EB, .220E-02_EB, .578E-02_EB, .128E-01_EB, .189E-01_EB, .263E-01_EB, &
  .900E-03_EB, .250E-02_EB, .649E-02_EB, .134E-01_EB, .195E-01_EB, .275E-01_EB, &
  .121E-02_EB, .280E-02_EB, .722E-02_EB, .142E-01_EB, .202E-01_EB, .281E-01_EB, &
  .152E-02_EB, .330E-02_EB, .813E-02_EB, .161E-01_EB, .212E-01_EB, .288E-01_EB, &
  .185E-02_EB, .370E-02_EB, .907E-02_EB, .168E-01_EB, .222E-01_EB, .292E-01_EB, &
  .220E-02_EB, .430E-02_EB, .929E-02_EB, .183E-01_EB, .233E-01_EB, .294E-01_EB, &
  .255E-02_EB, .500E-02_EB, .114E-01_EB, .195E-01_EB, .245E-01_EB, .289E-01_EB/), &
  (/6,8/))
  SD(1:6,273:280) = RESHAPE ((/ & ! 6850-7025
  .290E-02_EB, .580E-02_EB, .167E-01_EB, .215E-01_EB, .260E-01_EB, .291E-01_EB, &
  .320E-02_EB, .670E-02_EB, .208E-01_EB, .237E-01_EB, .274E-01_EB, .293E-01_EB, &
  .360E-02_EB, .880E-02_EB, .220E-01_EB, .253E-01_EB, .282E-01_EB, .300E-01_EB, &
  .400E-02_EB, .920E-02_EB, .238E-01_EB, .273E-01_EB, .290E-01_EB, .304E-01_EB, &
  .460E-02_EB, .108E-01_EB, .272E-01_EB, .279E-01_EB, .298E-01_EB, .310E-01_EB, &
  .530E-02_EB, .128E-01_EB, .304E-01_EB, .292E-01_EB, .297E-01_EB, .312E-01_EB, &
  .620E-02_EB, .152E-01_EB, .344E-01_EB, .303E-01_EB, .293E-01_EB, .310E-01_EB, &
  .760E-02_EB, .182E-01_EB, .341E-01_EB, .297E-01_EB, .290E-01_EB, .300E-01_EB/), &
  (/6,8/))
  SD(1:6,281:288) = RESHAPE ((/ & ! 7050-7225
  .980E-02_EB, .222E-01_EB, .398E-01_EB, .318E-01_EB, .291E-01_EB, .294E-01_EB, &
  .132E-01_EB, .271E-01_EB, .402E-01_EB, .294E-01_EB, .274E-01_EB, .282E-01_EB, &
  .190E-01_EB, .335E-01_EB, .421E-01_EB, .286E-01_EB, .262E-01_EB, .269E-01_EB, &
  .240E-01_EB, .432E-01_EB, .431E-01_EB, .276E-01_EB, .245E-01_EB, .257E-01_EB, &
  .288E-01_EB, .570E-01_EB, .458E-01_EB, .270E-01_EB, .228E-01_EB, .243E-01_EB, &
  .323E-01_EB, .740E-01_EB, .449E-01_EB, .261E-01_EB, .214E-01_EB, .221E-01_EB, &
  .570E-01_EB, .890E-01_EB, .435E-01_EB, .225E-01_EB, .199E-01_EB, .196E-01_EB, &
  .216E-01_EB, .680E-01_EB, .378E-01_EB, .239E-01_EB, .195E-01_EB, .192E-01_EB/), &
  (/6,8/))
  SD(1:6,289:296) = RESHAPE ((/ & ! 7250-7425
  .126E-01_EB, .475E-01_EB, .364E-01_EB, .238E-01_EB, .197E-01_EB, .192E-01_EB, &
  .117E-01_EB, .369E-01_EB, .385E-01_EB, .249E-01_EB, .212E-01_EB, .204E-01_EB, &
  .140E-01_EB, .370E-01_EB, .419E-01_EB, .272E-01_EB, .228E-01_EB, .213E-01_EB, &
  .425E-01_EB, .418E-01_EB, .440E-01_EB, .280E-01_EB, .248E-01_EB, .229E-01_EB, &
  .640E-01_EB, .460E-01_EB, .427E-01_EB, .290E-01_EB, .263E-01_EB, .238E-01_EB, &
  .385E-01_EB, .385E-01_EB, .374E-01_EB, .259E-01_EB, .235E-01_EB, .224E-01_EB, &
  .182E-01_EB, .179E-01_EB, .282E-01_EB, .231E-01_EB, .211E-01_EB, .214E-01_EB, &
  .170E-01_EB, .810E-02_EB, .191E-01_EB, .175E-01_EB, .181E-01_EB, .194E-01_EB/), &
  (/6,8/))
  SD(1:6,297:304) = RESHAPE ((/ & ! 7450-7625
  .161E-01_EB, .370E-02_EB, .105E-01_EB, .127E-01_EB, .152E-01_EB, .171E-01_EB, &
  .145E-01_EB, .170E-02_EB, .554E-02_EB, .855E-02_EB, .113E-01_EB, .131E-01_EB, &
  .175E-02_EB, .140E-02_EB, .385E-02_EB, .595E-02_EB, .803E-02_EB, .945E-02_EB, &
  .772E-03_EB, .751E-03_EB, .384E-02_EB, .575E-02_EB, .537E-02_EB, .594E-02_EB, &
  .491E-03_EB, .600E-03_EB, .301E-02_EB, .453E-02_EB, .380E-02_EB, .434E-02_EB, &
  .275E-03_EB, .410E-03_EB, .193E-02_EB, .366E-02_EB, .319E-02_EB, .332E-02_EB, &
  .185E-01_EB, .280E-03_EB, .131E-02_EB, .232E-02_EB, .247E-02_EB, .256E-02_EB, &
  .101E-03_EB, .160E-03_EB, .915E-03_EB, .150E-02_EB, .186E-02_EB, .197E-02_EB/), &
  (/6,8/))
  SD(1:6,305:312) = RESHAPE ((/ & ! 7650-7825
  .691E-04_EB, .110E-03_EB, .565E-03_EB, .114E-02_EB, .205E-02_EB, .192E-02_EB, &
  .476E-04_EB, .750E-04_EB, .114E-02_EB, .124E-02_EB, .175E-02_EB, .187E-02_EB, &
  .305E-04_EB, .590E-04_EB, .529E-03_EB, .114E-02_EB, .160E-02_EB, .185E-02_EB, &
  .240E-04_EB, .480E-04_EB, .293E-03_EB, .842E-03_EB, .141E-02_EB, .184E-02_EB, &
  .170E-04_EB, .360E-04_EB, .122E-03_EB, .435E-03_EB, .124E-02_EB, .182E-02_EB, &
  .120E-04_EB, .240E-04_EB, .121E-03_EB, .435E-03_EB, .118E-02_EB, .187E-02_EB, &
  .810E-05_EB, .170E-04_EB, .103E-03_EB, .439E-03_EB, .126E-02_EB, .192E-02_EB, &
  .550E-05_EB, .120E-04_EB, .866E-04_EB, .367E-03_EB, .119E-02_EB, .193E-02_EB/), &
  (/6,8/))
  SD(1:6,313:320) = RESHAPE ((/&  ! 7850-8025
  .390E-05_EB, .900E-05_EB, .716E-04_EB, .351E-03_EB, .116E-02_EB, .194E-02_EB, &
  .295E-05_EB, .830E-05_EB, .373E-04_EB, .254E-03_EB, .114E-02_EB, .196E-02_EB, &
  .230E-05_EB, .800E-05_EB, .465E-04_EB, .298E-03_EB, .117E-02_EB, .201E-02_EB, &
  .225E-05_EB, .820E-05_EB, .367E-04_EB, .252E-03_EB, .116E-02_EB, .205E-02_EB, &
  .220E-05_EB, .840E-05_EB, .371E-04_EB, .268E-03_EB, .127E-02_EB, .211E-02_EB, &
  .223E-05_EB, .920E-05_EB, .396E-04_EB, .273E-03_EB, .128E-02_EB, .216E-02_EB, &
  .235E-05_EB, .103E-04_EB, .415E-04_EB, .263E-03_EB, .121E-02_EB, .221E-02_EB, &
  .280E-05_EB, .125E-04_EB, .633E-04_EB, .363E-03_EB, .136E-02_EB, .231E-02_EB/), &
  (/6,8/))
  SD(1:6,321:328) = RESHAPE ((/ & ! 8050-8225
  .310E-05_EB, .150E-04_EB, .979E-04_EB, .492E-03_EB, .150E-02_EB, .241E-02_EB, &
  .370E-05_EB, .180E-04_EB, .120E-03_EB, .580E-03_EB, .167E-02_EB, .251E-02_EB, &
  .420E-05_EB, .200E-04_EB, .987E-04_EB, .509E-03_EB, .171E-02_EB, .257E-02_EB, &
  .510E-05_EB, .240E-04_EB, .134E-03_EB, .547E-03_EB, .173E-02_EB, .267E-02_EB, &
  .600E-05_EB, .270E-04_EB, .121E-03_EB, .534E-03_EB, .172E-02_EB, .274E-02_EB, &
  .720E-05_EB, .300E-04_EB, .204E-03_EB, .684E-03_EB, .184E-02_EB, .285E-02_EB, &
  .820E-05_EB, .330E-04_EB, .276E-03_EB, .819E-03_EB, .199E-02_EB, .297E-02_EB, &
  .100E-04_EB, .380E-04_EB, .317E-03_EB, .859E-03_EB, .214E-02_EB, .308E-02_EB/), &
  (/6,8/))
  SD(1:6,329:336) = RESHAPE ((/ & ! 8250-8425
  .125E-04_EB, .420E-04_EB, .240E-03_EB, .818E-03_EB, .220E-02_EB, .317E-02_EB, &
  .145E-04_EB, .500E-04_EB, .452E-03_EB, .109E-02_EB, .238E-02_EB, .293E-02_EB, &
  .175E-04_EB, .560E-04_EB, .301E-03_EB, .941E-03_EB, .243E-02_EB, .342E-02_EB, &
  .198E-04_EB, .630E-04_EB, .280E-03_EB, .107E-02_EB, .260E-02_EB, .353E-02_EB, &
  .230E-04_EB, .710E-04_EB, .276E-03_EB, .109E-02_EB, .272E-02_EB, .365E-02_EB, &
  .280E-04_EB, .830E-04_EB, .369E-03_EB, .127E-02_EB, .295E-02_EB, .377E-02_EB, &
  .330E-04_EB, .890E-04_EB, .430E-03_EB, .139E-02_EB, .306E-02_EB, .385E-02_EB, &
  .360E-04_EB, .950E-04_EB, .371E-03_EB, .135E-02_EB, .306E-02_EB, .384E-02_EB/), &
  (/6,8/))
  SD(1:6,337:344) = RESHAPE ((/ & ! 8450-8625
  .390E-04_EB, .980E-04_EB, .434E-03_EB, .147E-02_EB, .316E-02_EB, .385E-02_EB, &
  .400E-04_EB, .990E-04_EB, .397E-03_EB, .143E-02_EB, .318E-02_EB, .384E-02_EB, &
  .400E-04_EB, .980E-04_EB, .364E-03_EB, .141E-02_EB, .317E-02_EB, .381E-02_EB, &
  .390E-04_EB, .940E-04_EB, .390E-03_EB, .142E-02_EB, .314E-02_EB, .376E-02_EB, &
  .380E-04_EB, .900E-04_EB, .380E-03_EB, .145E-02_EB, .318E-02_EB, .375E-02_EB, &
  .380E-04_EB, .900E-04_EB, .380E-03_EB, .145E-02_EB, .318E-02_EB, .375E-02_EB, &
  .330E-04_EB, .750E-04_EB, .358E-03_EB, .138E-02_EB, .310E-02_EB, .372E-02_EB, &
  .270E-04_EB, .580E-04_EB, .382E-03_EB, .143E-02_EB, .315E-02_EB, .369E-02_EB/), &
  (/6,8/))
  SD(1:6,345:352) = RESHAPE ((/ & ! 8650-8825
  .240E-04_EB, .500E-04_EB, .343E-03_EB, .136E-02_EB, .306E-02_EB, .363E-02_EB, &
  .200E-04_EB, .450E-04_EB, .309E-03_EB, .134E-02_EB, .306E-02_EB, .359E-02_EB, &
  .180E-04_EB, .400E-04_EB, .281E-03_EB, .127E-02_EB, .294E-02_EB, .341E-02_EB, &
  .170E-04_EB, .360E-04_EB, .276E-03_EB, .124E-02_EB, .290E-02_EB, .336E-02_EB, &
  .160E-04_EB, .310E-04_EB, .272E-03_EB, .122E-02_EB, .283E-02_EB, .323E-02_EB, &
  .140E-04_EB, .280E-04_EB, .241E-03_EB, .117E-02_EB, .273E-02_EB, .309E-02_EB, &
  .120E-04_EB, .250E-04_EB, .237E-03_EB, .115E-02_EB, .269E-02_EB, .297E-02_EB, &
  .100E-04_EB, .220E-04_EB, .218E-03_EB, .111E-02_EB, .259E-02_EB, .284E-02_EB/), &
  (/6,8/))
  SD(1:6,353:360) = RESHAPE ((/ & ! 8850-9025
  .920E-05_EB, .198E-04_EB, .206E-03_EB, .105E-02_EB, .246E-02_EB, .269E-02_EB, &
  .810E-05_EB, .170E-04_EB, .205E-03_EB, .100E-02_EB, .235E-02_EB, .257E-02_EB, &
  .720E-05_EB, .160E-04_EB, .177E-03_EB, .921E-03_EB, .220E-02_EB, .245E-02_EB, &
  .650E-05_EB, .150E-04_EB, .172E-03_EB, .834E-03_EB, .205E-02_EB, .232E-02_EB, &
  .590E-05_EB, .130E-04_EB, .147E-03_EB, .735E-03_EB, .194E-02_EB, .218E-02_EB, &
  .510E-05_EB, .110E-04_EB, .120E-03_EB, .629E-03_EB, .177E-02_EB, .203E-02_EB, &
  .460E-05_EB, .950E-05_EB, .960E-04_EB, .513E-03_EB, .154E-02_EB, .180E-02_EB, &
  .420E-05_EB, .800E-05_EB, .578E-04_EB, .314E-03_EB, .123E-02_EB, .154E-02_EB/), &
  (/6,8/))
  SD(1:6,361:368) = RESHAPE ((/ & ! 9050-9225
  .380E-05_EB, .720E-05_EB, .529E-04_EB, .292E-03_EB, .114E-02_EB, .137E-02_EB, &
  .330E-05_EB, .660E-05_EB, .485E-04_EB, .269E-03_EB, .102E-02_EB, .122E-02_EB, &
  .290E-05_EB, .580E-05_EB, .430E-04_EB, .239E-03_EB, .896E-03_EB, .107E-02_EB, &
  .270E-05_EB, .520E-05_EB, .259E-04_EB, .193E-03_EB, .748E-03_EB, .944E-03_EB, &
  .240E-05_EB, .450E-05_EB, .316E-04_EB, .207E-03_EB, .671E-02_EB, .848E-03_EB, &
  .220E-05_EB, .400E-05_EB, .444E-05_EB, .602E-04_EB, .516E-03_EB, .750E-03_EB, &
  .190E-05_EB, .360E-05_EB, .324E-05_EB, .460E-04_EB, .439E-03_EB, .688E-03_EB, &
  .170E-05_EB, .320E-05_EB, .180E-05_EB, .321E-04_EB, .384E-03_EB, .653E-03_EB/), &
  (/6,8/))
  SD(1:6,369:376) = RESHAPE ((/ & ! 9250-9300
  .140E-05_EB, .280E-05_EB, .171E-05_EB, .344E-04_EB, .340E-03_EB, .616E-03_EB, &
  .130E-05_EB, .250E-05_EB, .299E-05_EB, .600E-04_EB, .343E-03_EB, .619E-03_EB, &
  .120E-05_EB, .220E-05_EB, .299E-05_EB, .600E-04_EB, .343E-03_EB, .619E-03_EB, &
  1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, &
  1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB, 1._EB/), &
  (/6,8/))
  
  ! INTIALIZE GAMMA ARRAY
  
  GAMMA = RESHAPE((/ &
  !     LINE BROADENING PARAMETERS,GAMMA(I,J),
  !     J=CO2,H2O,CH4,CO,O2,N2,SELF RESONANT.
  !   I=     CO2  H2O  CH4   CO
  !    J
  .09_EB , .12_EB, .0_EB , .07_EB,&
  .07_EB , .09_EB, .0_EB , .06_EB,&
  !.0_EB  , .0_EB , .16_EB, .0_EB ,&
  .0_EB  , .0_EB , .12_EB, .0_EB ,&
  .06_EB , .10_EB, .0_EB , .06_EB,&
  .055_EB, .04_EB, .0_EB , .05_EB,&
  .07_EB , .09_EB, .0_EB , .06_EB, &
  .01_EB , .44_EB, .0_EB , .0_EB /),(/4,7/))
  
  ! INITIALIZE SD15 ARRAY
  
  !  THE FOLLOWING ARE DATA FOR THE 15.0 MICRON BAND OF CO2
  !  TEMP, K=300     600      1200      1500  1800    2400
  
  SD15(1:6,1:8) = RESHAPE ((/  &! 500-535
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .105E-01_EB, .300E-01_EB, .880E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .180E-01_EB, .490E-01_EB, .880E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .300E-01_EB, .540E-01_EB, .740E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .300E-01_EB, .560E-01_EB, .890E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .330E-01_EB, .690E-01_EB, .990E-01_EB, &
  .000E+00_EB, .000E+00_EB, .880E-02_EB, .380E-01_EB, .720E-01_EB, .970E-01_EB, &
  .000E+00_EB, .000E+00_EB, .110E-01_EB, .530E-01_EB, .950E-01_EB, .124E+00_EB, &
  .000E+00_EB, .000E+00_EB, .285E-01_EB, .630E-01_EB, .990E-01_EB, .140E+00_EB/), &
  (/6,8/))
  SD15(1:6,9:16) = RESHAPE ((/  &! 540-575
  .000E+00_EB, .000E+00_EB, .330E-01_EB, .680E-01_EB, .103E+00_EB, .134E+00_EB, &
  .000E+00_EB, .000E+00_EB, .450E-01_EB, .920E-01_EB, .138E+00_EB, .176E+00_EB, &
  .000E+00_EB, .000E+00_EB, .490E-01_EB, .970E-01_EB, .148E+00_EB, .191E+00_EB, &
  .000E+00_EB, .000E+00_EB, .490E-01_EB, .120E-01_EB, .188E+00_EB, .247E+00_EB, &
  .000E+00_EB, .000E+00_EB, .480E-01_EB, .126E+00_EB, .201E+00_EB, .241E+00_EB, &
  .000E+00_EB, .000E+00_EB, .820E-01_EB, .198E+00_EB, .270E+00_EB, .265E+00_EB, &
  .000E+00_EB, .750E-02_EB, .690E-01_EB, .140E+00_EB, .225E+00_EB, .340E+00_EB, &
  .000E+00_EB, .205E-01_EB, .820E-01_EB, .145E+00_EB, .236E+00_EB, .530E+00_EB/), &
  (/6,8/))
  SD15(1:6,17:24) = RESHAPE ((/ & ! 580-615
  .000E+00_EB, .355E-01_EB, .117E+00_EB, .193E+00_EB, .295E+00_EB, .550E+00_EB, &
  .157E-01_EB, .520E-01_EB, .170E+00_EB, .235E+00_EB, .305E+00_EB, .410E+00_EB, &
  .150E-01_EB, .880E-01_EB, .270E+00_EB, .330E+00_EB, .440E+00_EB, .520E+00_EB, &
  .510E-01_EB, .130E+00_EB, .400E+00_EB, .530E+00_EB, .560E+00_EB, .540E+00_EB, &
  .120E+00_EB, .165E+00_EB, .275E+00_EB, .320E+00_EB, .420E+00_EB, .560E+00_EB, &
  .880E-01_EB, .190E+00_EB, .430E+00_EB, .540E+00_EB, .620E+00_EB, .680E+00_EB, &
  .110E+00_EB, .350E+00_EB, .710E+00_EB, .760E+00_EB, .760E+00_EB, .690E+00_EB, &
  .180E+00_EB, .470E+00_EB, .920E+00_EB, .970E+00_EB, .910E+00_EB, .670E+00_EB/), &
  (/6,8/))
  SD15(1:6,25:32) = RESHAPE ((/ & ! 620-655
  .970E-01_EB, .265E+00_EB, .610E+00_EB, .720E+00_EB, .780E+00_EB, .730E+00_EB, &
  .175E+00_EB, .380E+00_EB, .720E+00_EB, .790E+00_EB, .830E+00_EB, .840E+00_EB, &
  .370E+00_EB, .640E+00_EB, .920E+00_EB, .960E+00_EB, .980E+00_EB, .940E+00_EB, &
  .590E+00_EB, .840E+00_EB, .107E+01_EB, .110E+01_EB, .111E+01_EB, .106E+01_EB, &
  .940E+00_EB, .103E+01_EB, .115E+01_EB, .115E+01_EB, .115E+01_EB, .118E+01_EB, &
  .196E+01_EB, .177E+01_EB, .146E+01_EB, .136E+01_EB, .132E+01_EB, .139E+01_EB, &
  .345E+01_EB, .282E+01_EB, .198E+01_EB, .172E+01_EB, .156E+01_EB, .148E+01_EB, &
  .282E+01_EB, .248E+01_EB, .200E+01_EB, .190E+01_EB, .186E+01_EB, .205E+01_EB/), &
  (/6,8/))
  SD15(1:6,33:40) = RESHAPE ((/  &! 660-695
  .254E+01_EB, .234E+01_EB, .184E+01_EB, .176E+01_EB, .174E+01_EB, .203E+01_EB, &
  .142E+02_EB, .860E+01_EB, .370E+01_EB, .260E+01_EB, .196E+01_EB, .142E+01_EB, &
  .450E+01_EB, .570E+01_EB, .580E+01_EB, .520E+01_EB, .350E+01_EB, .420E+01_EB, &
  .360E+01_EB, .310E+01_EB, .330E+01_EB, .290E+01_EB, .205E+01_EB, .200E+01_EB, &
  .310E+01_EB, .260E+01_EB, .200E+01_EB, .196E+01_EB, .180E+01_EB, .210E+01_EB, &
  .240E+01_EB, .250E+01_EB, .230E+01_EB, .220E+01_EB, .170E+01_EB, .194E+01_EB, &
  .182E+01_EB, .200E+01_EB, .218E+01_EB, .205E+01_EB, .184E+01_EB, .130E+01_EB, &
  .104E+01_EB, .135E+01_EB, .172E+01_EB, .172E+01_EB, .165E+01_EB, .130E+01_EB/), &
  (/6,8/))
  SD15(1:6,41:48) = RESHAPE ((/  &! 700-735
  .550E+00_EB, .120E+01_EB, .143E+01_EB, .147E+01_EB, .148E+01_EB, .125E+01_EB, &
  .136E+01_EB, .128E+01_EB, .128E+01_EB, .135E+01_EB, .138E+01_EB, .134E+01_EB, &
  .210E+00_EB, .780E+00_EB, .127E+01_EB, .133E+01_EB, .137E+01_EB, .132E+01_EB, &
  .190E+00_EB, .780E+00_EB, .140E+01_EB, .146E+01_EB, .147E+01_EB, .142E+01_EB, &
  .900E+00_EB, .106E+01_EB, .140E+01_EB, .150E+01_EB, .155E+01_EB, .134E+01_EB, &
  .720E-01_EB, .300E+00_EB, .800E+00_EB, .100E+01_EB, .115E+01_EB, .126E+01_EB, &
  .640E-01_EB, .210E+00_EB, .560E+00_EB, .720E+00_EB, .860E+00_EB, .102E+01_EB, &
  .680E-01_EB, .210E+00_EB, .530E+00_EB, .670E+00_EB, .790E+00_EB, .101E+01_EB/), &
  (/6,8/))
  SD15(1:6,49:56) = RESHAPE ((/ & ! 740-775
  .690E-01_EB, .210E+00_EB, .540E+00_EB, .690E+00_EB, .820E+00_EB, .910E+00_EB, &
  .330E-01_EB, .140E+00_EB, .390E+00_EB, .530E+00_EB, .690E+00_EB, .770E+00_EB, &
  .230E-01_EB, .780E-01_EB, .270E+00_EB, .410E+00_EB, .560E+00_EB, .890E+00_EB, &
  .300E-01_EB, .860E-01_EB, .280E+00_EB, .400E+00_EB, .520E+00_EB, .710E+00_EB, &
  .175E-01_EB, .620E-01_EB, .225E+00_EB, .335E+00_EB, .450E+00_EB, .660E+00_EB, &
  .105E-01_EB, .450E-01_EB, .180E+00_EB, .280E+00_EB, .380E+00_EB, .600E+00_EB, &
  .450E-02_EB, .300E-01_EB, .148E+00_EB, .240E+00_EB, .345E+00_EB, .570E+00_EB, &
  .000E+00_EB, .140E-01_EB, .124E+00_EB, .205E+00_EB, .285E+00_EB, .430E+00_EB/), &
  (/6,8/))
  SD15(1:6,57:64) = RESHAPE ((/ & ! 780-815
  .000E+00_EB, .115E-01_EB, .110E+00_EB, .185E+00_EB, .260E+00_EB, .375E+00_EB, &
  .000E+00_EB, .135E-01_EB, .840E-01_EB, .140E+00_EB, .205E+00_EB, .335E+00_EB, &
  .000E+00_EB, .430E-02_EB, .650E-01_EB, .120E+00_EB, .185E+00_EB, .325E+00_EB, &
  .000E+00_EB, .000E+00_EB, .540E-01_EB, .115E+00_EB, .180E+00_EB, .315E+00_EB, &
  .000E+00_EB, .000E+00_EB, .440E-01_EB, .950E-01_EB, .150E+00_EB, .270E+00_EB, &
  .000E+00_EB, .000E+00_EB, .360E-01_EB, .790E-01_EB, .125E+00_EB, .205E+00_EB, &
  .000E+00_EB, .000E+00_EB, .250E-01_EB, .650E-01_EB, .110E+00_EB, .178E+00_EB, &
  .000E+00_EB, .000E+00_EB, .180E-01_EB, .620E-01_EB, .103E+00_EB, .153E+00_EB/), &
  (/6,8/))
  SD15(1:6,65:72) = RESHAPE ((/ & ! 820-855
  .000E+00_EB, .000E+00_EB, .320E-01_EB, .580E-01_EB, .860E-01_EB, .147E+00_EB, &
  .000E+00_EB, .000E+00_EB, .800E-02_EB, .510E-01_EB, .870E-01_EB, .134E+00_EB, &
  .000E+00_EB, .000E+00_EB, .600E-02_EB, .480E-01_EB, .830E-01_EB, .133E+00_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .430E-01_EB, .780E-01_EB, .118E+00_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .420E-01_EB, .700E-01_EB, .108E+00_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .360E-01_EB, .640E-01_EB, .980E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .350E-01_EB, .610E-01_EB, .870E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .320E-01_EB, .580E-01_EB, .860E-01_EB/), &
  (/6,8/))
  SD15(1:6,73:80) = RESHAPE ((/ & ! 860-880
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .330E-01_EB, .560E-01_EB, .750E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .300E-01_EB, .530E-01_EB, .750E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .290E-01_EB, .530E-01_EB, .850E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .240E-01_EB, .470E-01_EB, .900E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .220E-01_EB, .450E-01_EB, .860E-01_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, &
  .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB, .000E+00_EB/), &
  (/6,8/))
  
  ! INITIALIZE SD7 ARRAY
  
  !   THE FOLLOWING DATA ARE FOR THE 7.7 MICRON BAND OF CH4
  ! TEMP,K= 290 600   850
  
  SD7(1:3,1:8) = RESHAPE ((/ &
  0._EB, 0._EB, 0._EB,&
  0._EB, 0._EB, 0.03_EB,&
  0._EB, 0._EB, 0.22_EB,&
  0.16_EB, 0.20_EB, 0.47_EB,&
  0.34_EB, 0.34_EB, 0.62_EB,&
  0.69_EB, 0.53_EB, 0.65_EB,&
  1.27_EB, 0.88_EB, 1.09_EB,&
  1.68_EB, 1.38_EB, 0.87_EB/),(/3,8/))
  SD7(1:3,9:16) = RESHAPE ((/&
  0.55_EB, 0.28_EB, 0.40_EB,&
  1.25_EB, 0.86_EB, 0.93_EB,&
  0.34_EB, 0.59_EB, 0.75_EB,&
  0._EB, 0.13_EB, 0.25_EB,&
  0._EB, 0._EB, 0.06_EB,&
  0._EB, 0._EB, 0._EB,&
  0._EB, 0._EB, 0._EB,&
  0._EB, 0._EB, 0._EB/),(/3,8/))
  
  ! INITIALIZE SD3 ARRAY
  
  !  THE FOLLOWING DATA ARE FOR THE 3.3 MICRON BAND OF CH4
  ! TEMP, K= 290  600   850
  SD3(1:3,1:8) = RESHAPE ((/&
  0._EB, 0._EB, 0.03_EB,&
  0._EB, 0._EB, 0.03_EB,&
  0._EB, 0._EB, 0.03_EB,&
  0._EB, 0._EB, 0.06_EB,&
  0.03_EB, 0.03_EB, 0.09_EB,&
  0.07_EB, 0.07_EB, 0.12_EB,&
  0.09_EB, 0.09_EB, 0.12_EB,&
  0.14_EB, 0.15_EB, 0.22_EB/),(/3,8/))
  SD3(1:3,9:16) = RESHAPE ((/&
  0.18_EB, 0.22_EB, 0.28_EB,&
  0.24_EB, 0.31_EB, 0.37_EB,&
  0.33_EB, 0.44_EB, 0.47_EB,&
  0.45_EB, 0.50_EB, 0.53_EB,&
  0.59_EB, 0.62_EB, 0.62_EB,&
  0.74_EB, 0.70_EB, 0.68_EB,&
  0.91_EB, 0.77_EB, 0.72_EB,&
  1.00_EB, 0.81_EB, 0.75_EB/),(/3,8/))
  SD3(1:3,17:24) = RESHAPE ((/&
  1.03_EB, 0.84_EB, 0.78_EB,&
  1.03_EB, 0.84_EB, 0.78_EB,&
  1.00_EB, 0.81_EB, 0.75_EB,&
  0.94_EB, 0.77_EB, 0.72_EB,&
  0.72_EB, 0.68_EB, 0.68_EB,&
  0.52_EB, 0.63_EB, 0.63_EB,&
  0.33_EB, 0.50_EB, 0.56_EB,&
  0.25_EB, 0.42_EB, 0.50_EB/),(/3,8/))
  SD3(1:3,25:32) = RESHAPE ((/&
  0.17_EB, 0.26_EB, 0.37_EB,&
  0.08_EB, 0.18_EB, 0.31_EB,&
  0.04_EB, 0.11_EB, 0.22_EB,&
  0._EB, 0.06_EB, 0.16_EB,&
  0._EB, 0.02_EB, 0.12_EB,&
  0._EB, 0._EB, 0.06_EB,&
  0._EB, 0._EB, 0.03_EB,&
  0._EB, 0._EB, 0._EB/),(/3,8/))
  !------------------------------------------------------------------------------
  END SUBROUTINE RCALLOC
  
  
  !==============================================================================
  SUBROUTINE RCDEALLOC2
  !==============================================================================
  DEALLOCATE(INCIDENT_RADIANCE)
  DEALLOCATE(TTAU)
  DEALLOCATE(LAMBDA)
  DEALLOCATE(AB)
  DEALLOCATE(WAVE_NUMBER)
  
  END SUBROUTINE RCDEALLOC2
  
  !==============================================================================
  SUBROUTINE RCDEALLOC
  !==============================================================================
  
  DEALLOCATE(GAMMA)
  DEALLOCATE(SD15)
  DEALLOCATE(SD)
  DEALLOCATE(SD7)
  DEALLOCATE(SD3)
  
  !-------------------------DEALLOCATION METHANE VARIABLES-------------------
  DEALLOCATE(SD_CH4_TEMP)
  DEALLOCATE(OM_BND_CH4)
  DEALLOCATE(SD1_CH4)
  DEALLOCATE(SD2_CH4)
  
  !-------------------------DEALLOCATION PROPANE VARIABLES-------------------
  DEALLOCATE(SD_C3H8_TEMP)
  DEALLOCATE(BE_C3H8)
  DEALLOCATE(OM_BND_C3H8)
  DEALLOCATE(SD1_C3H8)
  DEALLOCATE(SD2_C3H8)
  DEALLOCATE(GAMMAD1_C3H8)
  DEALLOCATE(GAMMAD2_C3H8)
  
  !-------------------------DEALLOCATION METHANOL VARIABLES-------------------
  DEALLOCATE(SD_CH3OH_TEMP)
  DEALLOCATE(BE_CH3OH)
  DEALLOCATE(OM_BND_CH3OH)
  DEALLOCATE(SD1_CH3OH)
  DEALLOCATE(SD2_CH3OH)
  DEALLOCATE(SD3_CH3OH)
  DEALLOCATE(SD4_CH3OH)
  DEALLOCATE(GAMMAD1_CH3OH)
  DEALLOCATE(GAMMAD2_CH3OH)
  DEALLOCATE(GAMMAD3_CH3OH)
  DEALLOCATE(GAMMAD4_CH3OH)
  
  !-------------------------DEALLOCATION HEPTANE VARIABLES-------------------
  DEALLOCATE(SD_C7H16_TEMP)
  DEALLOCATE(BE_C7H16)
  DEALLOCATE(OM_BND_C7H16)
  DEALLOCATE(SD1_C7H16)
  DEALLOCATE(SD2_C7H16)
  DEALLOCATE(GAMMAD1_C7H16)
  DEALLOCATE(GAMMAD2_C7H16)
  
  !-------------------------DEALLOCATION TOLUENE VARIABLES-------------------
  DEALLOCATE(SD_C7H8_TEMP)
  DEALLOCATE(BE_C7H8)
  DEALLOCATE(OM_BND_C7H8)
  DEALLOCATE(SD1_C7H8)
  DEALLOCATE(SD2_C7H8)
  DEALLOCATE(SD3_C7H8)
  DEALLOCATE(SD4_C7H8)
  DEALLOCATE(SD5_C7H8)
  DEALLOCATE(GAMMAD1_C7H8)
  DEALLOCATE(GAMMAD2_C7H8)
  DEALLOCATE(GAMMAD3_C7H8)
  DEALLOCATE(GAMMAD4_C7H8)
  DEALLOCATE(GAMMAD5_C7H8)
  
  !-------------------------DEALLOCATION PROPYLENE VARIABLES-------------------
  DEALLOCATE(SD_C3H6_TEMP)
  DEALLOCATE(BE_C3H6)
  DEALLOCATE(OM_BND_C3H6)
  DEALLOCATE(SD1_C3H6)
  DEALLOCATE(SD2_C3H6)
  DEALLOCATE(SD3_C3H6)
  DEALLOCATE(GAMMAD1_C3H6)
  DEALLOCATE(GAMMAD2_C3H6)
  DEALLOCATE(GAMMAD3_C3H6)
  
  !-------------------------DEALLOCATION MMA VARIABLES-------------------
  DEALLOCATE(SD_C5H8O2_TEMP)
  DEALLOCATE(BE_C5H8O2)
  DEALLOCATE(OM_BND_C5H8O2)
  DEALLOCATE(SD1_C5H8O2)
  DEALLOCATE(SD2_C5H8O2)
  DEALLOCATE(SD3_C5H8O2)
  DEALLOCATE(SD4_C5H8O2)
  DEALLOCATE(SD5_C5H8O2)
  DEALLOCATE(SD6_C5H8O2)
  DEALLOCATE(GAMMAD1_C5H8O2)
  DEALLOCATE(GAMMAD2_C5H8O2)
  DEALLOCATE(GAMMAD3_C5H8O2)
  DEALLOCATE(GAMMAD4_C5H8O2)
  DEALLOCATE(GAMMAD5_C5H8O2)
  DEALLOCATE(GAMMAD6_C5H8O2)
  
  !-------------------------DEALLOCATION ETHANE VARIABLES-------------------
  DEALLOCATE(SD_C2H6_TEMP)
  DEALLOCATE(BE_C2H6)
  DEALLOCATE(OM_BND_C2H6)
  DEALLOCATE(SD1_C2H6)
  DEALLOCATE(SD2_C2H6)
  DEALLOCATE(SD3_C2H6)
  DEALLOCATE(GAMMAD1_C2H6)
  DEALLOCATE(GAMMAD2_C2H6)
  DEALLOCATE(GAMMAD3_C2H6)
  
  !-------------------------DEALLOCATION ETHYLENE VARIABLES-------------------
  DEALLOCATE(SD_C2H4_TEMP)
  DEALLOCATE(BE_C2H4)
  DEALLOCATE(OM_BND_C2H4)
  DEALLOCATE(SD1_C2H4)
  DEALLOCATE(SD2_C2H4)
  DEALLOCATE(SD3_C2H4)
  DEALLOCATE(SD4_C2H4)
  DEALLOCATE(GAMMAD1_C2H4)
  DEALLOCATE(GAMMAD2_C2H4)
  DEALLOCATE(GAMMAD3_C2H4)
  DEALLOCATE(GAMMAD4_C2H4)
  
  !------------------------------------------------------------------------------
  END SUBROUTINE RCDEALLOC
  
  END MODULE RADCAL_CALC
  