← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/python-scipy/oneiric-proposed

« back to all changes in this revision

Viewing changes to scipy/sparse/linalg/dsolve/SuperLU/SRC/scsum1.c

  • Committer: Bazaar Package Importer
  • Author(s): Sameer Morar
  • Date: 2011-02-03 04:28:09 UTC
  • mfrom: (9.1.2 experimental)
  • Revision ID: james.westby@ubuntu.com-20110203042809-qs95kuod7723re62
Tags: 0.8.0+dfsg1-1ubuntu1
https://launchpad.net/bugs/696403
* Merge from debian experimental (LP: #696403). Remaining changes:
  - debian/patches/stdc_format_macros.patch: Fix FTBFS issue with python 2.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
scipy/sparse/linalg/dsolve/SuperLU/SRC/scsum1.c
1
 
#include "scomplex.h"
2
 
 
3
 
double scsum1_(int *n, complex *cx, int *incx)
4
 
{
5
 
/*  -- LAPACK auxiliary routine (version 2.0) --   
6
 
       Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,   
7
 
       Courant Institute, Argonne National Lab, and Rice University   
8
 
       October 31, 1992   
9
 
 
10
 
 
 
1
/*! @file scsum1.c
 
2
 * \brief Takes sum of the absolute values of a complex vector and returns a single precision result
 
3
 *
 
4
 * <pre>
 
5
 *     -- LAPACK auxiliary routine (version 2.0) --   
 
6
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,   
 
7
 *     Courant Institute, Argonne National Lab, and Rice University   
 
8
 *     October 31, 1992   
 
9
 * </pre>
 
10
 */
 
11
#include "slu_scomplex.h"
 
12
#include "slu_Cnames.h"
 
13
 
 
14
/*! \brief
 
15
 
 
16
<pre>
11
17
    Purpose   
12
18
    =======   
13
19
 
32
38
            The spacing between successive values of CX.  INCX > 0.   
33
39
 
34
40
    ===================================================================== 
35
 
  
36
 
 
37
 
 
38
 
    
39
 
   Parameter adjustments   
40
 
       Function Body */
 
41
</pre>
 
42
*/
 
43
double scsum1_(int *n, complex *cx, int *incx)
 
44
{
41
45
    /* System generated locals */
42
46
    int i__1, i__2;
43
47
    float ret_val;