REAL FUNCTION UA_WSMS  ( ws )
C************************************************************************
C* UA_WSMS								*
C*									*
C* Given a decoded wind speed in units of either knots or m/s, this	*
C* function returns the equivalent wind speed in m/s.  The units of	*
C* the input wind speed, which determine whether or not an actual	*
C* conversion is required, are obtained from RIVALS (IRTIWM).		*
C*									*
C* UA_WSMS  ( WS )							*
C*									*
C* Input parameters:							*
C*	WS		REAL		Wind speed in knots or m/s	*
C*	RIVALS (IRTIWM)	REAL		Type of instrumentation for	*
C*					wind measurement		*
C*									*
C* Output parameters:							*
C*	UA_WSMS		REAL		Wind speed in m/s		*
C**									*
C* Log:									*
C* J. Ator/NCEP		03/00						*
C* J. Ator/NCEP		01/02	wspdu -> RIVALS (IRTIWM)		*
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'uacmn.cmn'
C------------------------------------------------------------------------
	IF ( INT ( rivals ( irtiwm ) ) .eq. 4 ) THEN
	    UA_WSMS = PR_KNMS ( ws )
	ELSE
	    UA_WSMS = ws
	END IF
C*
	RETURN
	END