SUBROUTINE	ANGAD(SIN1,COS1,SIN2,COS2,SIN3,COS3,TAN3)
C
C         CALL ANGAD(SIN1,COS1,SIN2,COS2,SIN3,COS3,TAN3)
C         PRODUCES SIN,COS,TAN OF ANGLE WHERE ANG3 = ANG1+ANG2
C         NOTE RESULT MAY BE STORED IN SOURCEC
C
	SIN3	= (SIN1*COS2 + SIN2*COS1)
	COS3	= (COS1*COS2 - SIN1*SIN2)
	IF(COS3 .NE. 0) GO TO 10
	TAN3	= 1.E30
	RETURN
10	CONTINUE
	TAN3	= SIN3/COS3
	RETURN
	END