TYPE SpectralDataProperties
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of spectral data set
INTEGER :: NumOfWavelengths = 0 ! Number of wavelengths in the data set
REAL(r64),ALLOCATABLE,DIMENSION(:) :: WaveLength ! Wavelength (microns)
REAL(r64),ALLOCATABLE,DIMENSION(:) :: Trans ! Transmittance at normal incidence
REAL(r64),ALLOCATABLE,DIMENSION(:) :: ReflFront ! Front reflectance at normal incidence
REAL(r64),ALLOCATABLE,DIMENSION(:) :: ReflBack ! Back reflectance at normal incidence
END TYPE SpectralDataProperties