1
SUBROUTINE DGER2( M, N, ALPHA, X, INCX, Y, INCY, BETA,
2
$ W, INCW, Z, INCZ, A, LDA )
4
* -- Automatically Tuned Linear Algebra Software (ATLAS)
5
* (C) Copyright 2010 All Rights Reserved
7
* -- ATLAS routine -- F77 Interface -- Version 3.9.24 -- 2010
9
* Author : R. Clint Whaley
11
* ---------------------------------------------------------------------
13
* -- Copyright notice and Licensing terms:
15
* Redistribution and use in source and binary forms, with or without
16
* modification, are permitted provided that the following conditions
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-
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.
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.
43
* ---------------------------------------------------------------------
45
* .. Scalar Arguments ..
46
INTEGER INCX, INCY, INCW, INCZ, LDA, M, N
47
DOUBLE PRECISION ALPHA, BETA
49
* .. Array Arguments ..
50
DOUBLE PRECISION A( LDA, * ), X( * ), Y( * ), W( * ), Z( * )
57
* .. External Subroutines ..
58
EXTERNAL ATL_F77WRAP_DGER2, XERBLA
60
* .. Intrinsic Functions ..
63
* .. Executable Statements ..
69
ELSE IF( N.LT.0 ) THEN
71
ELSE IF( INCX.EQ.0 ) THEN
73
ELSE IF( INCY.EQ.0 ) THEN
75
ELSE IF( INCW.EQ.0 ) THEN
77
ELSE IF( INCZ.EQ.0 ) THEN
79
ELSE IF( LDA.LT.MAX( 1, M ) ) THEN
84
CALL XERBLA( 'DGER2 ', INFO )
88
CALL ATL_F77WRAP_DGER2( M, N, ALPHA, X, INCX, Y, INCY,
89
$ BETA, W, INCW, Z, INCZ, A, LDA )