FUNCTION ToSolarRadii, au=au @compile_opt.pro ; On error, return to caller InitVar, au, /key CASE au of 0: rpau = 1 1: rpau = 1/!sun.RAu ; Converts AU to solar radii ENDCASE RETURN, rpau & END