	FUNCTION ANGNRM(ANGLE)
C 0.0.LT.ANGNRM.LE.360.0 DEGREES
	IF(ANGLE)10,10,20
10	ANGNRM=ANGLE+360.0
	RETURN
20	ANGM=ANGLE-360.0
	IF(ANGM)30,40,40
30	ANGNRM=ANGLE
	RETURN
40	ANGNRM=ANGM
	RETURN
	END

