79 DOUBLE PRECISION zi, zr
85 INTRINSIC dble, dcmplx, dimag
89 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.