;+
; NAME:
;	smei_i2m
; CALLING SEQUENCE:
	FUNCTION smei_i2m, from_ms=from_ms, from_bb=from_bb
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
;-

p = [1.65337,0.988298]

; -2.5*alog10(i) = p[0] + p[1]*mags

CASE 1 OF
IsType(from_ms,/defined): r = 10.0^(-(p[0]+p[1]*from_ms)/2.5)
IsType(from_bb,/defined): r = (-2.5*alog10(from_bb)-p[0])/p[1]
ENDCASE

RETURN, r  &  END