FUNCTION rgb_gray,s,PALETTE=palette

RETURN,rgb(s,PALETTE=palette)

; this routine is for compatibillity with earlier programs only.

END