← Back to branch summary

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

« back to all changes in this revision

Viewing changes to deps/openlibm/slatec/wnlt3.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/wnlt3.f
 
1
*DECK WNLT3
 
2
      SUBROUTINE WNLT3 (I, IMAX, M, MDW, IPIVOT, H, W)
 
3
C***BEGIN PROLOGUE  WNLT3
 
4
C***SUBSIDIARY
 
5
C***PURPOSE  Subsidiary to WNLIT
 
6
C***LIBRARY   SLATEC
 
7
C***TYPE      SINGLE PRECISION (WNLT3-S, DWNLT3-D)
 
8
C***AUTHOR  Hanson, R. J., (SNLA)
 
9
C           Haskell, K. H., (SNLA)
 
10
C***DESCRIPTION
 
11
C
 
12
C     Perform column interchange.
 
13
C     Exchange elements of permuted index vector and perform column
 
14
C     interchanges.
 
15
C
 
16
C***SEE ALSO  WNLIT
 
17
C***ROUTINES CALLED  SSWAP
 
18
C***REVISION HISTORY  (YYMMDD)
 
19
C   790701  DATE WRITTEN
 
20
C   890620  Code extracted from WNLT and made a subroutine.  (RWC))
 
21
C***END PROLOGUE  WNLT3
 
22
      INTEGER I, IMAX, IPIVOT(*), M, MDW
 
23
      REAL             H(*), W(MDW,*)
 
24
C
 
25
      EXTERNAL SSWAP
 
26
C
 
27
      REAL             T
 
28
      INTEGER ITEMP
 
29
C
 
30
C***FIRST EXECUTABLE STATEMENT  WNLT3
 
31
      IF (IMAX.NE.I) THEN
 
32
         ITEMP        = IPIVOT(I)
 
33
         IPIVOT(I)    = IPIVOT(IMAX)
 
34
         IPIVOT(IMAX) = ITEMP
 
35
C
 
36
         CALL SSWAP(M, W(1,IMAX), 1, W(1,I), 1)
 
37
C
 
38
         T       = H(IMAX)
 
39
         H(IMAX) = H(I)
 
40
         H(I)    = T
 
41
      ENDIF
 
42
      RETURN
 
43
      END