Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50416/angnrm.f4
There are no other files named angnrm.f4 in the archive.
	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