← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/suitesparse/oneiric

« back to all changes in this revision

Viewing changes to CXSparse_newfiles/MATLAB/CSparse/cs_transpose_mex.c

  • Committer: Bazaar Package Importer
  • Author(s): Nick Ellery
  • Date: 2009-06-14 19:15:52 UTC
  • mfrom: (7.2.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090614191552-2hliya5q8n1quseu
Tags: 1:3.4.0-1ubuntu1
https://launchpad.net/bugs/387137
* Merge from debian unstable, remaining changes (LP: #387137):
  - debian/control:
    - demote libatlas-doc from recommends to suggests as it is not in main
    - drop recommends on doc-central as it is not in main

Show diffs side-by-side

added added

removed removed

Lines of Context:
CXSparse_newfiles/MATLAB/CSparse/cs_transpose_mex.c
12
12
    CS_INT values ;
13
13
    if (nargout > 1 || nargin < 1 || nargin > 2)
14
14
    {
15
 
        mexErrMsgTxt ("Usage: C = cs_transpose(A,kind)") ;
 
15
        mexErrMsgTxt ("Usage: C = cs_transpose(A,kind)") ;
16
16
    }
17
17
    values = (nargin > 1) ? mxGetScalar (pargin [1]) : 1 ;
18
18
    values = (values <= 0) ? -1 : 1 ;
19
19
    if (mxIsComplex (pargin [0]))
20
20
    {
21
21
#ifndef NCOMPLEX
22
 
        cs_cl Amatrix, *A, *C ;
23
 
        A = cs_cl_mex_get_sparse (&Amatrix, 0, pargin [0]) ;    /* get A */
24
 
        C = cs_cl_transpose (A, values) ;                       /* C = A' */
25
 
        pargout [0] = cs_cl_mex_put_sparse (&C) ;               /* return C */
 
22
        cs_cl Amatrix, *A, *C ;
 
23
        A = cs_cl_mex_get_sparse (&Amatrix, 0, pargin [0]) ;    /* get A */
 
24
        C = cs_cl_transpose (A, values) ;                       /* C = A' */
 
25
        pargout [0] = cs_cl_mex_put_sparse (&C) ;               /* return C */
26
26
#else
27
 
        mexErrMsgTxt ("complex matrices not supported") ;
 
27
        mexErrMsgTxt ("complex matrices not supported") ;
28
28
#endif
29
29
    }
30
30
    else
31
31
    {
32
 
        cs_dl Amatrix, *A, *C ;
33
 
        A = cs_dl_mex_get_sparse (&Amatrix, 0, 1, pargin [0]) ; /* get A */
34
 
        C = cs_dl_transpose (A, values) ;                       /* C = A' */
35
 
        pargout [0] = cs_dl_mex_put_sparse (&C) ;               /* return C */
 
32
        cs_dl Amatrix, *A, *C ;
 
33
        A = cs_dl_mex_get_sparse (&Amatrix, 0, 1, pargin [0]) ; /* get A */
 
34
        C = cs_dl_transpose (A, values) ;                       /* C = A' */
 
35
        pargout [0] = cs_dl_mex_put_sparse (&C) ;               /* return C */
36
36
    }
37
37
}