TEXT	atan(SB),$0
	FATAND	a+0(FP),F0
	RTS