FUNCTION SSQRT(A) 
      IF(A)  10,20,20 
   10 SSQRT =-SQRT(-A)
      RETURN
   20 SSQRT = SQRT(A) 
      RETURN
      END