gasprop.f90

Go to the documentation of this file.

module gasprop
    use constants
    implicit none
    private
    public abscoeffgas
contains
!********************************BEGINNING*************************************
real(dp) function abscoeffgas(lambda)
    use interpolation
    real(dp), intent(in) :: lambda
    integer :: ni=1   !number of points, where we want to interpolate
    real(dp) :: xi(1)   !x-values of points, where we want to interpolate
    real(dp) :: yi(1)   !interpolated y-values
    xi(1)=lambda
    call pwl_interp_1d ( size(lambdagas), lambdagas, acgas, ni, xi, yi )
    abscoeffgas=yi(1)
end function abscoeffgas
!***********************************END****************************************
end module gasprop