;+
; NAME:
;	IPS_velocity
; PURPOSE:
;	Calculates component of solar wind velocity perpendicular to line of sight
; CATEGORY:
;	sat/idl/toolbox
; CALLING SEQUENCE:
	FUNCTION IPS_velocity, rr_earth, R, F, w3darg,	$
		ut_earth	= ut_earth	, $
		pa_earth	= pa_earth	, $
		elo_earth	= elo_earth , $
		elo_sun 	= elo_sun	, $
		degrees 	= degrees
; INPUTS:
;	rr_earth						not used
;	R								not used
;	F			array[N,L,M]		solar wind velocity matrix
;	w3darg							not used
; OPTIONAL INPUT PARAMETERS:
;	/degrees						if set all input angles are in degrees
;	ut_earth						not used
;	pa_earth						not used
;	elo_earth						angle Sun-Earth-LOS segment
;	elo_sun							angle Sun-LOS segment-Earth
; OUTPUTS:
;	Result		array[N,L,M]		velocity perpendicular to line of sight
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; CALLS:
;	ToRadians
; MODIFICATION HISTORY:
;	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

RETURN, F*sin( (elo_earth+elo_sun)*ToRadians(degrees=degrees) )  &  END