function lorentz,rho1,rho2,m ;--------------------------------------------------------- ; Purpose: ; Adjust the refractive index of a liquid for temperature, ; according to the temperature dependence of liquid ; density, as described by the Lorentz - Lorenz relationship, ; ; Input: ; rhow.......liquid density at temperature, T1 ; rhoc.......liquid density at temperature, T2 ; m..........refractive index at T1 ; ; Output: result.....refractive index at T2 ; ; source: ; Mark Hervig ;--------------------------------------------------------- result = complex(0.,0.) a = (rho2/rho1) * (m^2 - 1.0) / (m^2 + 2.0) result = sqrt( (2.0 * a + 1.0) / (1.0 - a)) return,result end