~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to interfaces/blas/F77/src/dger2.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot, Sylvestre Ledru, Sébastien Villemot
  • Date: 2013-06-11 15:58:16 UTC
  • mfrom: (1.1.4) (25 sid)
  • mto: This revision was merged to the branch mainline in revision 26.
  • Revision ID: package-import@ubuntu.com-20130611155816-8xeeiziu1iml040c
Tags: 3.10.1-1
[ Sylvestre Ledru ]
* New upstream release (Closes: #609287)

[ Sébastien Villemot ]
* Provide architectural defaults (i.e. precomputed timings) for all
  release archs (except armel and mips for the time being, due to slow
  porterboxes). This will make the package build much faster and should
  eliminate transient build failures due to excessive variance in the
  timings.
* Move symlinks for lib{cblas,f77blas,atlas,lapack_atlas} out of the
  libblas.so.3 alternative and make them always present, so that
  software relying on these libs do not break when another alternative
  is selected for BLAS
* ATLAS now has improved ARM support with native asm constructs. This required
  the following tunes:
  + armel-is-v4t.diff: new patch, prevents FTBFS on armel; otherwise,
    ATLAS uses asm constructs too recent for the platform (armel is only v4t)
  + debian/rules: on armhf, define the ATL_ARM_HARDFP flag; otherwise the asm
    constructs use the soft-float ABI for passing floating points
  + on armhf, ensure that -mfloat-abi=softfp and -mcpu=vfpv3 flags are never
    used; this is implemented via a patch (armhf.diff) and by the use of fixed
    archdefs
* The generic package is now built without multi-threading, because otherwise
  the package fails to build on some single-processor machines (this required
  the introduction of a patch: fix-non-threaded-build.diff). As a side effect,
  the build of the custom package gracefully handles non-threaded
  builds. (Closes: #602524)
* Add libblas.a as slave in the libblas.so alternative (Closes: #701921)
* Add symlinks for lib{f77blas,atlas}.a in /usr/lib (Closes: #666203)
* Modify shlibs file of libatlas3-base, such that packages using
  libblas/liblapack depend on any BLAS/LAPACK alternative, while packages
  depending on ATLAS-specific libraries (e.g. libatlas.so) depend specifically
  on libatlas3-base.
* corei1.diff: remove patch, applied upstream
* Use my @debian.org email address
* Remove obsolete DM-Upload-Allowed flag
* Switch VCS to git
* Remove Conflicts/Replaces against pre-squeeze packages
* libatlas-base-dev now provides libblas.so, as libblas-dev
* No longer use -Wa,--noexecstack in CFLAGS, it makes the package FTBFS
* Do not use POWER3 arch for powerpcspe port (Closes: #701068)
* Bump to debhelper compat level 9
* README.Debian: mention that devscripts is needed to compile the custom
  package (Closes: #697431)
* Bump Standards-Version to 3.9.4. As a consequence, add Built-Using
  fields because the package embeds stuff from liblapack-pic

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
      SUBROUTINE DGER2( M, N, ALPHA, X, INCX, Y, INCY, BETA,
 
2
     $                  W, INCW, Z, INCZ, A, LDA )
 
3
*
 
4
*  -- Automatically Tuned Linear Algebra Software (ATLAS)
 
5
*     (C) Copyright 2010 All Rights Reserved
 
6
*
 
7
*  -- ATLAS routine -- F77 Interface -- Version 3.9.24 -- 2010
 
8
*
 
9
*  Author         : R. Clint Whaley
 
10
*
 
11
*  ---------------------------------------------------------------------
 
12
*
 
13
*  -- Copyright notice and Licensing terms:
 
14
*
 
15
*  Redistribution  and  use in  source and binary forms, with or without
 
16
*  modification, are  permitted provided  that the following  conditions
 
17
*  are met:
 
18
*
 
19
*  1. Redistributions  of  source  code  must retain the above copyright
 
20
*     notice, this list of conditions and the following disclaimer.
 
21
*  2. Redistributions in binary form must reproduce  the above copyright
 
22
*     notice,  this list of conditions, and the  following disclaimer in
 
23
*     the documentation and/or other materials provided with the distri-
 
24
*     bution.
 
25
*  3. The name of the University,  the ATLAS group,  or the names of its
 
26
*     contributors  may not be used to endorse or promote products deri-
 
27
*     ved from this software without specific written permission.
 
28
*
 
29
*  -- Disclaimer:
 
30
*
 
31
*  THIS  SOFTWARE  IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 
32
*  ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,  INCLUDING,  BUT NOT
 
33
*  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 
34
*  A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY
 
35
*  OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,  INDIRECT, INCIDENTAL, SPE-
 
36
*  CIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
 
37
*  TO,  PROCUREMENT  OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
 
38
*  OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEO-
 
39
*  RY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT  (IN-
 
40
*  CLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 
41
*  THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
42
*
 
43
*  ---------------------------------------------------------------------
 
44
*
 
45
*     .. Scalar Arguments ..
 
46
      INTEGER            INCX, INCY, INCW, INCZ, LDA, M, N
 
47
      DOUBLE PRECISION   ALPHA, BETA
 
48
*     ..
 
49
*     .. Array Arguments ..
 
50
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * ), W( * ), Z( * )
 
51
*     ..
 
52
*
 
53
*
 
54
*     .. Local Scalars ..
 
55
      INTEGER            INFO
 
56
*     ..
 
57
*     .. External Subroutines ..
 
58
      EXTERNAL           ATL_F77WRAP_DGER2, XERBLA
 
59
*     ..
 
60
*     .. Intrinsic Functions ..
 
61
      INTRINSIC          MAX
 
62
*     ..
 
63
*     .. Executable Statements ..
 
64
*
 
65
      INFO = 0
 
66
*
 
67
      IF(      M.LT.0 ) THEN
 
68
         INFO = 1
 
69
      ELSE IF( N.LT.0 ) THEN
 
70
         INFO = 2
 
71
      ELSE IF( INCX.EQ.0 ) THEN
 
72
         INFO = 5
 
73
      ELSE IF( INCY.EQ.0 ) THEN
 
74
         INFO = 7
 
75
      ELSE IF( INCW.EQ.0 ) THEN
 
76
         INFO = 10
 
77
      ELSE IF( INCZ.EQ.0 ) THEN
 
78
         INFO = 12
 
79
      ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
 
80
         INFO = 14
 
81
      END IF
 
82
*
 
83
      IF( INFO.NE.0 ) THEN
 
84
         CALL XERBLA( 'DGER2 ', INFO )
 
85
         RETURN
 
86
      END IF
 
87
*
 
88
      CALL ATL_F77WRAP_DGER2( M, N, ALPHA, X, INCX, Y, INCY,
 
89
     $                        BETA, W, INCW, Z, INCZ, A, LDA )
 
90
*
 
91
      RETURN
 
92
*
 
93
*     End of DGER2
 
94
*
 
95
      END