Add the <-- JVM NOT MANDATORY --> TAG
[scilab.git] / scilab / modules / umfpack / tests / unit_tests / umf_luinfo.tst
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - Bruno PINCON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 // this is the test matrix from UMFPACK
11 A = sparse( [ 2  3  0  0  0;
12               3  0  4  0  6; 
13               0 -1 -3  2  0; 
14               0  0  1  0  0; 
15               0  4  2  0  1] );
16 Lup = umf_lufact(A);
17 [OK, nrow, ncol, lnz, unz, udiag_nz, it] = umf_luinfo(Lup);  // OK must be %t, nrow=ncol = 5, 
18
19 if OK <> %t then pause, end
20 if nrow <> 5 then pause, end
21 if ncol <> 5 then pause, end
22 if lnz <> 9 then pause, end
23 if unz <> 9 then pause, end
24 if udiag_nz <> 5 then pause, end
25 if it <> 0 then pause, end
26
27 [L,U,p,q,R] = umf_luget(Lup);
28 if nnz(L) <> lnz then pause, end
29 if nnz(U) <> unz then pause, end
30 umf_ludel(Lup) // clear memory