ECH_REFINDEX

Determine the refractive index of fused silica

Description

Use the empirical expression derived by I.H. Malitson, J.O.S.A 55, 1205, Oct 1965. This expression is:

  *                  0.6961663 . w**2     0.4079426 . w**2      0.8974794 . w**2
  *     ref**2 = 1 + ----------------- + ------------------- + ------------------
  *                 w**2 - 0.0684043**2  w**2 - 0.0062414**2   w**2 - 9.896161**2

where wavelength is measured in microns. This routine uses wavelength in Angstroms and converts to microns internally.

Invocation

CALLECH_REFINDEX (WAVE, REF, STATUS)

Arguments
READ WAVE REAL

Wavelength (Angstroms)

WRITE REF REAL

Refractive index

READ, WRITE STATUS INTEGER

Global status value

Bugs

None known.

Authors

W.F. Lupton AAO (AAOEPP::WFL)