home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / lapack / zladiv.f < prev    next >
Text File  |  1996-09-28  |  1KB  |  48 lines
  1.       DOUBLE COMPLEX   FUNCTION ZLADIV( X, Y )
  2. *
  3. *  -- LAPACK auxiliary routine (version 2.0) --
  4. *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
  5. *     Courant Institute, Argonne National Lab, and Rice University
  6. *     October 31, 1992
  7. *
  8. *     .. Scalar Arguments ..
  9.       COMPLEX*16         X, Y
  10. *     ..
  11. *
  12. *  Purpose
  13. *  =======
  14. *
  15. *  ZLADIV := X / Y, where X and Y are complex.  The computation of X / Y
  16. *  will not overflow on an intermediary step unless the results
  17. *  overflows.
  18. *
  19. *  Arguments
  20. *  =========
  21. *
  22. *  X       (input) COMPLEX*16
  23. *  Y       (input) COMPLEX*16
  24. *          The complex scalars X and Y.
  25. *
  26. *  =====================================================================
  27. *
  28. *     .. Local Scalars ..
  29.       DOUBLE PRECISION   ZI, ZR
  30. *     ..
  31. *     .. External Subroutines ..
  32.       EXTERNAL           DLADIV
  33. *     ..
  34. *     .. Intrinsic Functions ..
  35.       INTRINSIC          DBLE, DCMPLX, DIMAG
  36. *     ..
  37. *     .. Executable Statements ..
  38. *
  39.       CALL DLADIV( DBLE( X ), DIMAG( X ), DBLE( Y ), DIMAG( Y ), ZR,
  40.      $             ZI )
  41.       ZLADIV = DCMPLX( ZR, ZI )
  42. *
  43.       RETURN
  44. *
  45. *     End of ZLADIV
  46. *
  47.       END
  48.