LOGICAL FUNCTION UA_NPID  ( field )
C************************************************************************
C* UA_NPID								*
C*									*
C* This function determines whether the input field (i.e. group)	*
C* contains a national practice data indicator.				*
C*									*
C* UA_NPID  ( FIELD )							*
C*									*
C* Input parameters:							*
C*	FIELD		CHAR*		Field				*
C*									*
C**									*
C* Log:									*
C* J. Ator/NCEP		10/98						*
C* J. Ator/NCEP		10/99	Clean up function declarations		*
C************************************************************************
	INCLUDE		'GEMPRM.PRM'
	INCLUDE		'uacmn.cmn'
C*
	CHARACTER*(*)	field
C------------------------------------------------------------------------
	CALL ST_NXTS  ( field, 1, 5, npids, lnpids, NNPIDS,
     +			ipt1, inpid, iernxt )
	IF  ( iernxt .eq. 0 )  THEN
	    UA_NPID = .true.
	ELSE
	    UA_NPID = .false.
	END IF
C*
	RETURN
	END