~ubuntu-branches/ubuntu/wily/julia/wily

« back to all changes in this revision

Viewing changes to deps/openlibm/slatec/zdiv.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-01-16 12:29:42 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20130116122942-x86e42akjq31repw
Tags: 0.0.0+20130107.gitd9656f41-1
* New upstream snashot
* No longer try to rebuild helpdb.jl.
   + debian/rules: remove helpdb.jl from build-arch rule
   + debian/control: move back python-sphinx to Build-Depends-Indep
* debian/copyright: reflect upstream changes
* Add Build-Conflicts on libatlas3-base (makes linalg tests fail)
* debian/rules: replace obsolete USE_DEBIAN makeflag by a list of
  USE_SYSTEM_* flags
* debian/rules: on non-x86 systems, use libm instead of openlibm
* dpkg-buildflags.patch: remove patch, applied upstream
* Refreshed other patches

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
*DECK ZDIV
 
2
      SUBROUTINE ZDIV (AR, AI, BR, BI, CR, CI)
 
3
C***BEGIN PROLOGUE  ZDIV
 
4
C***SUBSIDIARY
 
5
C***PURPOSE  Subsidiary to ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZAIRY and
 
6
C            ZBIRY
 
7
C***LIBRARY   SLATEC
 
8
C***TYPE      ALL (ZDIV-A)
 
9
C***AUTHOR  Amos, D. E., (SNL)
 
10
C***DESCRIPTION
 
11
C
 
12
C     DOUBLE PRECISION COMPLEX DIVIDE C=A/B.
 
13
C
 
14
C***SEE ALSO  ZAIRY, ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZBIRY
 
15
C***ROUTINES CALLED  ZABS
 
16
C***REVISION HISTORY  (YYMMDD)
 
17
C   830501  DATE WRITTEN
 
18
C   910415  Prologue converted to Version 4.0 format.  (BAB)
 
19
C***END PROLOGUE  ZDIV
 
20
      DOUBLE PRECISION AR, AI, BR, BI, CR, CI, BM, CA, CB, CC, CD
 
21
      DOUBLE PRECISION ZABS
 
22
      EXTERNAL ZABS
 
23
C***FIRST EXECUTABLE STATEMENT  ZDIV
 
24
      BM = 1.0D0/ZABS(BR,BI)
 
25
      CC = BR*BM
 
26
      CD = BI*BM
 
27
      CA = (AR*CC+AI*CD)*BM
 
28
      CB = (AI*CC-AR*CD)*BM
 
29
      CR = CA
 
30
      CI = CB
 
31
      RETURN
 
32
      END