5 / VERSION 5A 4-27-77 PT
7 /COMPLEX SQUARE ROOT ROUTINE
8 /ENTER+ EXIT IN COMPLEX
11 /SQRT(Z)=SQRT(R)*COS(THETA)+SIN(THETA))
16 /CALLS SQRT,ATAN2,SIN,COS
65 EXTERN SQRT /SQRT(X*X+Y*Y)
74 CSC, FSTA ARG /SQRT(R)
79 CSD, FMUL ARG /*SQRT(X)
82 JSR COS /COS(THETA/2)*SQRT(R)