util1_jan/read_rsparse.m

   1 function a=read_rsparse(name,num1,num2)
   2 % function read_rsparse(name,num1,num2)
   3 % read sparse matrix in compressed row format
   4 if ~exist('num1','var'),
   5         num1=-1;
   6 end
   7 if ~exist('num2','var'),
   8         num2=-1;
   9 end
  10 a=read_csparse(name,num1,num2)';