SUBROUTINE UA_RNIT  ( iret )
C************************************************************************
C* UA_RNIT								*
C*									*
C* This subroutine initializes the regional and national practice	*
C* data indicators.							*
C*									*
C* UA_RNIT  ( IRET )							*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code:			*
C*					  0 = normal return		*
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	rgpids ( NRPIDS )*5,
     +			ntpids ( NNPIDS )*5
C*
	DATA		rgpids
     +			/ '51515', '52525', '53535', '54545',
     +			  '56565', '57575', '58585', '59595' /
	DATA		ntpids
     +			/ '61616', '62626', '63636', '64646',
     +			  '65656', '67676', '68686', '69696' /
C------------------------------------------------------------------------
	iret = 0
C
	DO ii = 1, NRPIDS
	    rpids ( ii ) = rgpids ( ii )
	    lrpids ( ii ) = 5
	END DO
C
	DO ii = 1, NNPIDS
	    npids ( ii ) = ntpids ( ii )
	    lnpids ( ii ) = 5
	END DO
C*
	RETURN
	END