← Back to branch summary

~logan/ubuntu/trusty/suitesparse/4.2.1-3ubuntu1

« back to all changes in this revision

Viewing changes to CSparse/MATLAB/CSparse/cs_dmsol.m

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Prud'homme
  • Date: 2007-05-29 09:36:29 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070529093629-zowquo0b7slkk6nc
Tags: 3.0.0-2
http://bugs.debian.org/426349
http://bugs.debian.org/426354
* suitesparse builds properly twice in a row
* Bug fix: "suitesparse - FTBFS: Broken build depens: libgfortran1-dev",
  thanks to Bastian Blank (Closes: #426349).
* Bug fix: "suitesparse_3.0.0-1: FTBFS: build-depends on
  libgfortran1-dev", thanks to Steve Langasek (Closes: #426354).

Show diffs side-by-side

added added

removed removed

Lines of Context:
CSparse/MATLAB/CSparse/cs_dmsol.m
9
9
%
10
10
%   See also CS_QRSOL, CS_LUSOL, CS_DMPERM, SPRANK, RANK.
11
11
 
12
 
%   Copyright 2006, Timothy A. Davis.
 
12
%   Copyright 2006-2007, Timothy A. Davis.
13
13
%   http://www.cise.ufl.edu/research/sparse
14
14
 
15
15
[m n] = size (A) ;
17
17
C = A (p,q) ;
18
18
b = b (p) ;
19
19
x = zeros (n,1) ;
20
 
if (rr(3) <= m && cc(4) <= n)
 
20
if (rr(3) <= m & cc(4) <= n)                                                %#ok
21
21
    x (cc(4):n) = cs_qrsol (C (rr(3):m, cc(4):n), b (rr(3):m)) ;
22
22
    b (1:rr(3)-1) = b (1:rr(3)-1) - C (1:rr(3)-1, cc(4):n) * x (cc(4):n) ;
23
23
end
24
 
if (rr(2) < rr (3) && cc(3) < cc(4))
 
24
if (rr(2) < rr (3) & cc(3) < cc(4))                                         %#ok
25
25
    x (cc(3):cc(4)-1) = ...
26
26
        cs_lusol (C (rr(2):rr(3)-1, cc(3):cc(4)-1), b (rr(2):rr(3)-1)) ;
27
27
    b (1:rr(2)-1) = ...
28
28
        b (1:rr(2)-1) - C (1:rr(2)-1, cc(3):cc(4)-1) * x (cc(3):cc(4)-1) ;
29
29
end
30
 
if (rr(2) > 1 && cc(3) > 1)
 
30
if (rr(2) > 1 & cc(3) > 1)                                                  %#ok
31
31
    x (1:cc(3)-1) = cs_qrsol (C (1:rr(2)-1, 1:cc(3)-1), b (1:rr(2)-1)) ;
32
32
end
33
33
x (q) = x ;