← Back to branch summary

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

« back to all changes in this revision

Viewing changes to deps/openlibm/slatec/sdawts.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/sdawts.f
 
1
*DECK SDAWTS
 
2
      SUBROUTINE SDAWTS (NEQ, IWT, RTOL, ATOL, Y, WT, RPAR, IPAR)
 
3
C***BEGIN PROLOGUE  SDAWTS
 
4
C***SUBSIDIARY
 
5
C***PURPOSE  Set error weight vector for SDASSL.
 
6
C***LIBRARY   SLATEC (DASSL)
 
7
C***TYPE      SINGLE PRECISION (SDAWTS-S, DDAWTS-D)
 
8
C***AUTHOR  Petzold, Linda R., (LLNL)
 
9
C***DESCRIPTION
 
10
C-----------------------------------------------------------------------
 
11
C     THIS SUBROUTINE SETS THE ERROR WEIGHT VECTOR
 
12
C     WT ACCORDING TO WT(I)=RTOL(I)*ABS(Y(I))+ATOL(I),
 
13
C     I=1,-,N.
 
14
C     RTOL AND ATOL ARE SCALARS IF IWT = 0,
 
15
C     AND VECTORS IF IWT = 1.
 
16
C-----------------------------------------------------------------------
 
17
C***ROUTINES CALLED  (NONE)
 
18
C***REVISION HISTORY  (YYMMDD)
 
19
C   830315  DATE WRITTEN
 
20
C   901009  Finished conversion to SLATEC 4.0 format (F.N.Fritsch)
 
21
C   901019  Merged changes made by C. Ulrich with SLATEC 4.0 format.
 
22
C   901026  Added explicit declarations for all variables and minor
 
23
C           cosmetic changes to prologue.  (FNF)
 
24
C***END PROLOGUE  SDAWTS
 
25
C
 
26
      INTEGER  NEQ, IWT, IPAR(*)
 
27
      REAL  RTOL(*), ATOL(*), Y(*), WT(*), RPAR(*)
 
28
C
 
29
      INTEGER  I
 
30
      REAL  ATOLI, RTOLI
 
31
C
 
32
C***FIRST EXECUTABLE STATEMENT  SDAWTS
 
33
      RTOLI=RTOL(1)
 
34
      ATOLI=ATOL(1)
 
35
      DO 20 I=1,NEQ
 
36
         IF (IWT .EQ.0) GO TO 10
 
37
           RTOLI=RTOL(I)
 
38
           ATOLI=ATOL(I)
 
39
10         WT(I)=RTOLI*ABS(Y(I))+ATOLI
 
40
20         CONTINUE
 
41
      RETURN
 
42
C-----------END OF SUBROUTINE SDAWTS------------------------------------
 
43
      END