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

allows fully specified filename- no default extensions

Browse Source
This commit is contained in:
vhenson 1996-11-19 23:12:02 +00:00
parent d41718f205
commit cd58d53c87
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,10 +1,11 @@
function writeysmp(nv,ia,ja,a,fname) function writeysmp(nv,ia,ja,a,fname)
% function writeysmp(nv,ia,ja,a,fname) % function writeysmp(nv,ia,ja,a,fname)
% %
% writes ysmp file in 'fname'.in.ysmp % writes ysmp file in 'fname' (no
% qualifiers added, eg. not 'fname.ysmp')
% %
outdat = [fname '.in.ysmp']; outdat = [fname];
fid=fopen(outdat,'w'); fid=fopen(outdat,'w');
fprintf(fid,'1 1\n'); % dummy row fprintf(fid,'1 1\n'); % dummy row

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

@ -1,10 +1,11 @@
function writeysmp(nv,ia,ja,a,fname) function writeysmp(nv,ia,ja,a,fname)
% function writeysmp(nv,ia,ja,a,fname) % function writeysmp(nv,ia,ja,a,fname)
% %
% writes ysmp file in 'fname'.in.ysmp % writes ysmp file in 'fname' (no
% qualifiers added, eg. not 'fname.ysmp')
% %
outdat = [fname '.in.ysmp']; outdat = [fname];
fid=fopen(outdat,'w'); fid=fopen(outdat,'w');
fprintf(fid,'1 1\n'); % dummy row fprintf(fid,'1 1\n'); % dummy row