hxt_linear_system_petsc.h 2.05 KB
Newer Older
Jonathan Lambrechts's avatar
Jonathan Lambrechts committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#ifndef HEXTREME_LINEAR_SYSTEM_PETSC_H
#define HEXTREME_LINEAR_SYSTEM_PETSC_H
#include <stdint.h>
#include "hxt_message.h"
#include <petscmat.h>

typedef struct HXTLinearSystemPETScStruct HXTLinearSystemPETSc;

HXTStatus hxtLinearSystemPETScAddToMatrix(HXTLinearSystemPETSc *lsys, int el0, int el1, const double *localMatrix);
HXTStatus hxtLinearSystemPETScAddMatrixEntry(HXTLinearSystemPETSc *lsys, int node0, int field0, int node1, int field1, double entry);
HXTStatus hxtLinearSystemPETScAddToRhs(HXTLinearSystemPETSc *lsys, double *rhs, int el0, const double *localVector);
HXTStatus hxtLinearSystemPETScZeroMatrix(HXTLinearSystemPETSc *lsys);
HXTStatus hxtLinearSystemPETScSolve(HXTLinearSystemPETSc *lsys, double *rhs, double *solution);
HXTStatus hxtLinearSystemPETScSetMatrixRowIdentity(HXTLinearSystemPETSc *lsys, int node, int field);
HXTStatus hxtLinearSystemPETScSetMatrixRowFieldCombinaison(HXTLinearSystemPETSc *system, int node, int field, double *coeff);
HXTStatus hxtLinearSystemPETScSetRhsEntry(HXTLinearSystemPETSc *lsys, double *rhs, int node, int field, double v);
HXTStatus hxtLinearSystemPETScAddRhsEntry(HXTLinearSystemPETSc *lsys, double *rhs, int node, int field, double v);
HXTStatus hxtLinearSystemPETScDelete(HXTLinearSystemPETSc **pSystem);
HXTStatus hxtLinearSystemPETScGetRhsNorm(HXTLinearSystemPETSc *lsys, double *rhs, double *norm);
20
21
HXTStatus hxtPETScInsertOptions(const char *options, const char *prefix);
HXTStatus hxtLinearSystemPETScCreate(HXTLinearSystemPETSc **pSystem, int nElements, int nNodesByElement, int nFields, uint32_t *elements, const char *petscOptionsPrefix);
Jonathan Lambrechts's avatar
Jonathan Lambrechts committed
22
23
24
25
26
27
28
29
30
31
HXTStatus hxtLinearSystemPETScHasConverged(HXTLinearSystemPETSc *lsys, int *converged);
HXTStatus hxtLinearSystemPETScSize(HXTLinearSystemPETSc *lsys, int *size);

HXTStatus hxtLinearSystemPETScGetMat(HXTLinearSystemPETSc *lsys, Mat *mat);
HXTStatus hxtLinearSystemPETScMapToVec(HXTLinearSystemPETSc *lsys, double *v, Vec vec);
HXTStatus hxtLinearSystemPETScMapFromVec(HXTLinearSystemPETSc *lsys, Vec vec, double *v);

HXTStatus hxtInitializePETSc(int *argc, char ***argv);

#endif