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

Takes a matrix as the primary argument now

Browse Source
This commit is contained in:
falgout 1997-04-18 23:25:16 +00:00
parent eeb75176bd
commit 3f27009b97
2 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
seq_linear_solvers/amg/tools/writeysmp.m
View File

@ -1,11 +1,17 @@
function writeysmp(nv,ia,ja,a,fname)
% function writeysmp(nv,ia,ja,a,fname)
function [nv,ia,ja,a] = writeysmp(filename,A,nv,ia,ja,a)
% function [nv,ia,ja,a] = writeysmp(nv,ia,ja,a,filename)
%
% writes ysmp file in 'fname' (no
% qualifiers added, eg. not 'fname.ysmp')
% writes ysmp file in 'filename' (no qualifiers added,
% eg. not 'filename.ysmp')
%
% arguments nv, ia, ja, and a are optional.
%
outdat = [fname];
if nargin < 6
[nv,ia,ja,a] = manalyze(A);
end;
outdat = [filename];
fid=fopen(outdat,'w');
fprintf(fid,'1 1\n'); % dummy row

16
seq_ls/amg/tools/writeysmp.m
View File

@ -1,11 +1,17 @@
function writeysmp(nv,ia,ja,a,fname)
% function writeysmp(nv,ia,ja,a,fname)
function [nv,ia,ja,a] = writeysmp(filename,A,nv,ia,ja,a)
% function [nv,ia,ja,a] = writeysmp(nv,ia,ja,a,filename)
%
% writes ysmp file in 'fname' (no
% qualifiers added, eg. not 'fname.ysmp')
% writes ysmp file in 'filename' (no qualifiers added,
% eg. not 'filename.ysmp')
%
% arguments nv, ia, ja, and a are optional.
%
outdat = [fname];
if nargin < 6
[nv,ia,ja,a] = manalyze(A);
end;
outdat = [filename];
fid=fopen(outdat,'w');
fprintf(fid,'1 1\n'); % dummy row