541    double    x_re, x_im, y_re, y_im;  in zdiv()  local
544    x_im = x[1];  in zdiv()
550      u[1] = x_im/y_re;  in zdiv()
555      u[0] =  x_im/y_im;  in zdiv()
568       x_re = x_im;  in zdiv()
569       x_im = hold;  in zdiv()
584    if ( fabs(x_im) >= fabs(s) )  in zdiv()
585       u[0] = t*(x_re+ s*(x_im*y_im) );  in zdiv()
588       if ( fabs (x_im) >= fabs(y_im) )  in zdiv()
589          u[0] = t*( x_re + x_im*(s*y_im) );  in zdiv()
591          u[0] = t*( x_re + y_im*(s*x_im) );  in zdiv()
594       u[1] = t*( x_im - s*(x_re*y_im) );  in zdiv()
598          u[1] = t*(x_im- x_re*(s*y_im) );  in zdiv()
600          u[1] = t*(x_im- y_im*(s*x_re) );  in zdiv()