;+
; NAME:
;	CROSS
; PURPOSE:
;	Cross two vectors.
; AUTHOR:
;	Craig DeForest
; HISTORY:
;	Slapped together 16-Dec-97
;-
function cross,a,b
 return,[ a(1)*b(2) - a(2)*b(1) , a(2)*b(0) - a(0)*b(2), a(0)*b(1) - a(1)*b(0) ]
end