read_1.m

Format Linked List for sparse Matrix

function [n,nalloc,val,col,link,root,free]=read_1(filename)
  
  fis=fopen(filename,'r') ;
 
    n=fscanf(fis,"%d", 1);
    nalloc=fscanf(fis,"%d", 1);
    val =fscanf(fis,"%f", [1 nalloc]);
    col =fscanf(fis,"%f", [1 nalloc]);
    link =fscanf(fis,"%f", [1 nalloc]);  
    root=fscanf(fis,"%f", [1 n]);
    free=fscanf(fis,"%f", [1 1]);
  fclose(fis);
endfunction