| /dports/math/laspack/laspack/ |
| H A D | mlsolv.c | 85 Asgn_VV(&r, Sub_VV(&b[NoLevels - 1], Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))); in MGIter()
90 MGStep(NoLevels, A, x, b, R, P, NoLevels - 1, Gamma, in MGIter()
94 Asgn_VV(&r, Sub_VV(&b[NoLevels - 1], Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))); in MGIter()
100 return(&x[NoLevels - 1]); in MGIter()
134 Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))), in NestedMGIter()
167 Asgn_VV(&r[NoLevels - 1], Sub_VV(&b, Mul_QV(&A[NoLevels - 1], &x))); in MGPCGIter()
174 MGStep(NoLevels, A, z, r, R, P, NoLevels - 1, Gamma, in MGPCGIter()
177 Rho = Mul_VV(&r[NoLevels - 1], &z[NoLevels - 1]); in MGPCGIter()
263 Asgn_VV(&r[NoLevels - 1], Sub_VV(&b, Mul_QV(&A[NoLevels - 1], &x))); in BPXPCGIter()
268 BPXPrecond(NoLevels, A, z, r, R, P, NoLevels - 1, in BPXPCGIter()
[all …]
|
| H A D | mlsolv.h | 25 Vector *MGStep(int NoLevels, QMatrix *A, Vector *x, Vector *b,
31 Vector *MGIter(int NoLevels, QMatrix *A, Vector *x, Vector *b,
37 Vector *NestedMGIter(int NoLevels, QMatrix *A, Vector *x, Vector *b,
43 Vector *MGPCGIter(int NoLevels, QMatrix *A, Vector *x, Vector *b,
49 Vector *BPXPrecond(int NoLevels, QMatrix *A, Vector *y, Vector *c,
55 Vector *BPXPCGIter(int NoLevels, QMatrix *A, Vector *x, Vector *b,
|
| /dports/math/libmesh/libmesh-1.6.2/contrib/laspack/ |
| H A D | mlsolv.C | 85 Asgn_VV(&r, Sub_VV(&b[NoLevels - 1], Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))); in MGIter()
90 MGStep(NoLevels, A, x, b, R, P, NoLevels - 1, Gamma, in MGIter()
94 Asgn_VV(&r, Sub_VV(&b[NoLevels - 1], Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))); in MGIter()
100 return(&x[NoLevels - 1]); in MGIter()
134 Mul_QV(&A[NoLevels - 1], &x[NoLevels - 1]))), in NestedMGIter()
167 Asgn_VV(&r[NoLevels - 1], Sub_VV(&b, Mul_QV(&A[NoLevels - 1], &x))); in MGPCGIter()
174 MGStep(NoLevels, A, z, r, R, P, NoLevels - 1, Gamma, in MGPCGIter()
177 Rho = Mul_VV(&r[NoLevels - 1], &z[NoLevels - 1]); in MGPCGIter()
263 Asgn_VV(&r[NoLevels - 1], Sub_VV(&b, Mul_QV(&A[NoLevels - 1], &x))); in BPXPCGIter()
268 BPXPrecond(NoLevels, A, z, r, R, P, NoLevels - 1, in BPXPCGIter()
[all …]
|
| H A D | mlsolv.h | 31 QVector *MGStep(int NoLevels, QMatrix *A, QVector *x, QVector *b,
37 QVector *MGIter(int NoLevels, QMatrix *A, QVector *x, QVector *b,
43 QVector *NestedMGIter(int NoLevels, QMatrix *A, QVector *x, QVector *b,
49 QVector *MGPCGIter(int NoLevels, QMatrix *A, QVector *x, QVector *b,
55 QVector *BPXPrecond(int NoLevels, QMatrix *A, QVector *y, QVector *c,
61 QVector *BPXPCGIter(int NoLevels, QMatrix *A, QVector *x, QVector *b,
|
| /dports/math/laspack/laspack/examples/mlstest/ |
| H A D | mlstest.c | 57 static void QVMDestr(int NoLevels);
67 static void MGResOutput1DDirich(int NoLevels);
82 int NoLevels; /* number of grid levels */ in main() local
128 Dim1[NoLevels - 1] = MaxNoInt - 1; in main()
142 QVMConstr(NoLevels, Dim); in main()
158 MGResOutput1DDirich(NoLevels); in main()
160 QVMDestr(NoLevels); in main()
235 scanf("%d", NoLevels); in MGParmInput()
512 if (Level < NoLevels - 1) { in QVMConstr()
523 static void QVMDestr(int NoLevels) in QVMDestr() argument
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | Isosurface.F90 | 121 NoLevels = 0
124 NoLevels = SIZE(LevelValues,1)
128 IF( Found ) NoLevels = 1
241 IF( NoLevels > 1 ) ElemSplit = .FALSE.
243 DO Level = 1, NoLevels
262 IF( NoLevels > 1 ) THEN
295 IF( NoLevels > 1 ) THEN
326 IF( NoLevels > 1 ) DEALLOCATE( ElemSplit )
527 DO Level = 1, NoLevels
713 DO Level = 1, NoLevels
[all …]
|