SCM

SCM Repository

[matrix] Diff of /pkg/src/Mutils.c
ViewVC logotype

Diff of /pkg/src/Mutils.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10, Mon Mar 22 20:20:05 2004 UTC revision 47, Tue Apr 6 02:25:00 2004 UTC
# Line 1  Line 1 
1  #include "Mutils.h"  #include "Mutils.h"
2  #include "umfpack/umfpack.h"  #include "triplet_to_col.h"
3  #include <R_ext/Lapack.h>  #include <R_ext/Lapack.h>
4    
5  SEXP  SEXP
# Line 263  Line 263 
263      return m;      return m;
264  }  }
265    
 void triplet_to_col(int nrow, int ncol, int nz,  
                     const int Ti [], const int Tj [], const double Tx [],  
                     int Ap [], int Ai [], double Ax [])  
 {  
     int status = umfpack_di_triplet_to_col(nrow, ncol, nz, Ti, Tj, Tx,  
                                            Ap, Ai, Ax, (int *) NULL);  
     if (status != UMFPACK_OK) {  
         char *emsg = "umfpack_di_triplet_to_col reported %s error";  
         switch (status) {  
         case UMFPACK_ERROR_argument_missing:  
             error(emsg, "argument missing");  
         case UMFPACK_ERROR_n_nonpositive:  
             error(emsg, "non-positive dimension");  
         case UMFPACK_ERROR_invalid_matrix:  
             error(emsg,"invalid matrix");  
         case UMFPACK_ERROR_out_of_memory:  
             error(emsg, "out of memory");  
         default:  
             error(emsg, "unknown");  
         };  
     }  
 }  
   
266  SEXP triple_as_SEXP(int nrow, int ncol, int nz,  SEXP triple_as_SEXP(int nrow, int ncol, int nz,
267                      const int Ti [], const int Tj [], const double Tx [],                      const int Ti [], const int Tj [], const double Tx [],
268                      char *Rclass)                      char *Rclass)

Legend:
Removed from v.10  
changed lines
  Added in v.47

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge