00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015 #include <R_ext/RS.h>
00016 #include <R_ext/Memory.h>
00017
00018 extern void R_ldl_symbolic(int n, const int Ap[], const int Ai[],
00019 int Lp[], int Parent[], const int P[],
00020 int Pinv[]);
00021
00022 extern int R_ldl_numeric(int n, const int Ap[], const int Ai[],
00023 const double Ax[], const int Lp[], const int Parent[],
00024 int Li[], double Lx[], double D[],
00025 const int P[], const int Pinv[]);
00026
00027 extern void R_ldl_lsolve(int n, double X[], const int Lp[], const int Li[],
00028 const double Lx[]);
00029
00030 extern void R_ldl_dsolve(int n, double X[], const double D[]);
00031
00032 extern void R_ldl_ltsolve(int n, double X[], const int Lp[], const int Li[],
00033 const double Lx[]);
00034
00035 extern void R_ldl_perm(int n, double X[], const double B[], const int P[]);
00036 extern void R_ldl_permt(int n, double X[], const double B[], const int P[]);
00037
00038 int R_ldl_valid_perm(int n, const int P[]);
00039 int R_ldl_valid_matrix(int n, const int Ap[], const int Ai[]);