76 DOUBLE PRECISION zi, zr
82 INTRINSIC dble, dcmplx, dimag
86 CALL dladiv( dble( x ), dimag( x ), dble( y ), dimag( y ), zr,
complex *16 function zladiv(X, Y)
ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
subroutine dladiv(A, B, C, D, P, Q)
DLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.