read_2.m

来自「Format Linked List for sparse Matrix」· M 代码 · 共 12 行

function [n,nnz,va,ja,ia]=read_2(matrix_csr)
  
  fis=fopen(matrix_csr,'r') ; % deschide fisier pt citire
 
    n=fscanf(fis,"%d", 1);	
    nnz=fscanf(fis,"%d", 1);
    va =fscanf(fis,"%f", [1 nnz]);
    ja =fscanf(fis,"%f", [1 nnz]); 
    ia=fscanf(fis,"%f", [1 n+1]);
    
  fclose(fis);
endfunction