← Back to branch summary

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

« back to all changes in this revision

Viewing changes to deps/openlibm/slatec/bsrh.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:
deps/openlibm/slatec/bsrh.f
 
1
*DECK BSRH
 
2
      FUNCTION BSRH (XLL, XRR, IZ, C, A, BH, F, SGN)
 
3
C***BEGIN PROLOGUE  BSRH
 
4
C***SUBSIDIARY
 
5
C***PURPOSE  Subsidiary to BLKTRI
 
6
C***LIBRARY   SLATEC
 
7
C***TYPE      SINGLE PRECISION (BCRH-S, BSRH-S)
 
8
C***AUTHOR  (UNKNOWN)
 
9
C***SEE ALSO  BLKTRI
 
10
C***ROUTINES CALLED  (NONE)
 
11
C***COMMON BLOCKS    CBLKT
 
12
C***REVISION HISTORY  (YYMMDD)
 
13
C   801001  DATE WRITTEN
 
14
C   891214  Prologue converted to Version 4.0 format.  (BAB)
 
15
C   900402  Added TYPE section.  (WRB)
 
16
C***END PROLOGUE  BSRH
 
17
      DIMENSION       A(*)       ,C(*)       ,BH(*)
 
18
      COMMON /CBLKT/  NPP        ,K          ,EPS        ,CNV        ,
 
19
     1                NM         ,NCMPLX     ,IK
 
20
C***FIRST EXECUTABLE STATEMENT  BSRH
 
21
      XL = XLL
 
22
      XR = XRR
 
23
      DX = .5*ABS(XR-XL)
 
24
  101 X = .5*(XL+XR)
 
25
      IF (SGN*F(X,IZ,C,A,BH)) 103,105,102
 
26
  102 XR = X
 
27
      GO TO 104
 
28
  103 XL = X
 
29
  104 DX = .5*DX
 
30
      IF (DX-CNV) 105,105,101
 
31
  105 BSRH = .5*(XL+XR)
 
32
      RETURN
 
33
      END