thermal_conductivity_glass_kapton_glass Function

  function thermal_conductivity_glass_kapton_glass(c_pt,T,B) result(thermal_conductivity) bind(C)
      type(c_ptr), value :: c_pt
      real(dp), value :: T, B
      real(dp) :: thermal_conductivity    
      real(dp) :: Tmin,Tmax,TT
      type(glass_kapton_glass_cfg_t), pointer :: glass_kapton_glass_ptr
      call c_f_pointer(c_pt,glass_kapton_glass_ptr)

      Tmin = 1.0_dp
      Tmax = 300.0_dp
      TT=min(T,Tmax)
      TT=max(TT,Tmin)

      thermal_conductivity=exp(-4.5664911_dp+0.7191848_dp*log(TT)-0.0128252_dp*(log(TT)**2))      
  end function thermal_conductivity_glass_kapton_glass