KmlScadssGENSolve?I

接口定义

C Interface：

int KmlScadssGenSolveSI(KmlScaSolverTask **pHandle, int nb, float *x, int ldx, float *b, int ldb);

int KmlScadssGenSolveDI(KmlScaSolverTask **pHandle, int nb, double *x, int ldx, double *b, int ldb);

int KmlScadssGenSolveCI(KmlScaSolverTask **pHandle, int nb, kml_complex_float *x, int ldx, kml_complex_float *b, int ldb);

int KmlScadssGenSolveZI(KmlScaSolverTask **pHandle, int nb, kml_complex_double *x, int ldx, kml_complex_double *b, int ldb);

参数

返回值

依赖

#include "kml_scadss.h"

示例

C Interface：

MPI_Init(NULL, NULL);
int size, rank;
MPI_Comm_size(MPI_COMM_WORLD, &size);//获取总进程数
MPI_Comm_rank(MPI_COMM_WORLD, &rank);//获取当前进程标识

int n = 8;
int ia[9] = {0, 3, 7, 9, 11, 13, 15, 16, 17};
int ja[17] = {0, 3, 4, 1, 2, 3, 5, 2, 7, 3, 6, 4, 5, 5, 7, 6, 7};
double a[17] = {1.0, 1.0, 2.0, 9.0, 2.0, 1.0, -3.0, 3.0, 2.0, 9.0, -5.0, 6.0, 1.0, 4.0, 1.0, 7.0, 2.0};
double b[8] = {4.0, 9.0, 7.0, 6.0, 9.0, 3.0, 2.0, 5.0};
double x[8];
KmlScasolverTask* matrix_handle = NULL;
int ierr = KmlScadssGenInitDI(&matrix_handle, n, a, ja, ia, MPI_COMM_WORLD);
ierr = KmlScadssGenAnalyzeDI(&matrix_handle);
ierr = KmlScadssGenFactorizeDI(&matrix_handle);
int nrhs = 1;
int ldx=n, ldb=n;
ierr = KmlScadssGenSolveDI(&matrix_handle, nrhs, x, ldx, b, ldb);
ierr = KmlScadssGenCleanDI(&matrix_handle);
if (ierr != 0) {
    printf("\nERROR in KmlScadssGencleanDI: %d", ierr);
}