util1_jan/read_csparse.m

   1 function a=read_csparse(name,num1,num2)
   2 % function read_csparse(name,num1,num2)
   3 % read sparse matrix in compressed column format
   4 if ~exist('num1','var'),
   5         num1=-1;
   6 end
   7 if ~exist('num2','var'),
   8         num2=-1;
   9 end
  10 id=file_name([name,'_d'],num1,num2);
  11 d=read_m(id);
  12 id=file_name([name,'_x'],num1,num2);
  13 x=read_m(id);
  14 id=file_name([name,'_r'],num1,num2);
  15 r=read_m(id);
  16 id=file_name([name,'_v'],num1,num2);
  17 v=read_m(id);
  18 a=ijsparse(d,x,r,v);