Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0110/angnrm.for
There is 1 other file named angnrm.for in the archive. Click here to see a list.
	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