SUBROUTINE AL_NLON (  dlon, iret )
C************************************************************************
C* AL_NLON                                                              *
C*									*
C* This function converts a longitude in degrees into degrees which	*
C* fall within the range 180 to -180.					*
C*									*
C* AL_NLON ( DLON, IRET )						*
C*									*
C* Input and output parameters:						*
C*	DLON     	REAL*8		Longitudes in degrees		*
C*									*
C* Output parameters:							*
C*	IRET		INTEGER		Return code			*
C**									*
C* Log:									*
C* R. Hollern/NCEP	07/02	Based on GEMPAK lib routine PRNLON	*
C************************************************************************
	REAL*8		dlon
C------------------------------------------------------------------------
	iret = 0
C 
	dln   = dlon - IDINT ( dlon / 360. ) * 360.
	IF ( dln  .lt. -180. ) dln = dln + 360.
	IF ( dln  .gt.  180. ) dln = dln - 360.
	dlon = dln
C*
	RETURN
	END