CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Used sparse identity for more efficient memory utilization

Browse Source
This commit is contained in:
vhenson 1997-10-02 18:52:41 +00:00
parent 5fa61659dc
commit 1d9151cd36
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
seq_linear_solvers/amg/tools/manalyze.m
View File

@ -11,8 +11,8 @@ function [nv,ia,ja,a] = manalyze(A);
d = diag(A);
mn = min(d);
shf=mn+1;
[ja, I] = find(A'+shf*eye(size(A)));
t = find(A'+shf*eye(size(A)));
[ja, I] = find(A'+shf*speye(size(A)));
t = find(A'+shf*speye(size(A)));
AA=A';
a=full(AA(t));
nv = size(A, 1);

4
seq_ls/amg/tools/manalyze.m
View File

@ -11,8 +11,8 @@ function [nv,ia,ja,a] = manalyze(A);
d = diag(A);
mn = min(d);
shf=mn+1;
[ja, I] = find(A'+shf*eye(size(A)));
t = find(A'+shf*eye(size(A)));
[ja, I] = find(A'+shf*speye(size(A)));
t = find(A'+shf*speye(size(A)));
AA=A';
a=full(AA(t));
nv = size(A, 1);