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.