Home
last modified time | relevance | path

Searched refs:a (Results 1 – 25 of 1335) sorted by relevance

12345678910>>...54

/petsc/include/
H A Dpetscmath.h26 #define PetscSqrtReal(a) sqrtf(a) argument
27 #define PetscCbrtReal(a) cbrtf(a) argument
28 #define PetscHypotReal(a, b) hypotf(a, b) argument
29 #define PetscAtan2Real(a, b) atan2f(a, b) argument
30 #define PetscPowReal(a, b) powf(a, b) argument
31 #define PetscExpReal(a) expf(a) argument
32 #define PetscLogReal(a) logf(a) argument
33 #define PetscLog10Real(a) log10f(a) argument
34 #define PetscLog2Real(a) log2f(a) argument
35 #define PetscSinReal(a) sinf(a) argument
[all …]
H A Dpetscstring.h48 static inline PetscErrorCode PetscStrtolower(char a[]) in PetscStrtolower() argument
51 PetscAssertPointer_Private(a, 1); in PetscStrtolower()
52 while (*a) { in PetscStrtolower()
53 if (*a >= 'A' && *a <= 'Z') *a += 'a' - 'A'; in PetscStrtolower()
54 a++; in PetscStrtolower()
71 static inline PetscErrorCode PetscStrtoupper(char a[]) in PetscStrtoupper() argument
74 PetscAssertPointer_Private(a, 1); in PetscStrtoupper()
75 while (*a) { in PetscStrtoupper()
76 if (*a >= 'a' && *a <= 'z') *a += 'A' - 'a'; in PetscStrtoupper()
77 a++; in PetscStrtoupper()
[all …]
/petsc/include/petsc/private/
H A Dftnimpl.h40 #define FIXCHAR(a, n, b) \ argument
42 if ((a) == PETSC_NULL_CHARACTER_Fortran) { \
44 (a) = PETSC_NULLPTR; \
46 while (((n) > 0) && ((a)[(n) - 1] == ' ')) (n)--; \
49 *ierr = PetscMemcpy((b), (a), (n)); \
54 #define FREECHAR(a, b) \ argument
56 if (a != b) *ierr = PetscFree(b); \
62 #define FIXRETURNCHAR(flg, a, n) \ argument
66 for (__i = 0; __i < n && a[__i] != 0; __i++) { }; \
67 for (; __i < n; __i++) a[__i] = ' '; \
[all …]
H A Dlogimpldeprecated.h22 … "PetscMemzero()", ) static inline PetscErrorCode PetscLogClassPerfInfoClear(PetscClassPerfInfo *a) in PetscLogClassPerfInfoClear() argument
24 return PetscMemzero(a, sizeof(*a)); in PetscLogClassPerfInfoClear()
38 … is no longer used.") static inline PetscErrorCode PetscLogClassPerfLogCreate(PetscClassPerfLog *a) in PetscLogClassPerfLogCreate() argument
40 *a = NULL; in PetscLogClassPerfLogCreate()
55 … is no longer used.") static inline PetscErrorCode PetscLogClassPerfLogDestroy(PetscClassPerfLog a) in PetscLogClassPerfLogDestroy() argument
57 (void)a; in PetscLogClassPerfLogDestroy()
72 …longer used.") static inline PetscErrorCode PetscClassPerfLogEnsureSize(PetscClassPerfLog a, int b) in PetscClassPerfLogEnsureSize() argument
74 (void)a; in PetscClassPerfLogEnsureSize()
155 …d.") static inline PetscErrorCode PetscClassRegLogRegister(PetscClassRegLog a, const char *b, Pets… in PetscClassRegLogRegister() argument
157 (void)a; in PetscClassRegLogRegister()
[all …]
H A Dpetsclegacycupmblas.h9 …#define cublasXaxpy(a, b, c, d, e, f, g) cublasCaxpy((a), (b), (cuComplex *)(… argument
10 …#define cublasXscal(a, b, c, d, e) cublasCscal((a), (b), (cuComplex *)(… argument
11 …#define cublasXdotu(a, b, c, d, e, f, g) cublasCdotu((a), (b), (cuComplex *)(… argument
12 …#define cublasXdot(a, b, c, d, e, f, g) cublasCdotc((a), (b), (cuComplex *)(… argument
13 …#define cublasXswap(a, b, c, d, e, f) cublasCswap((a), (b), (cuComplex *)(… argument
14 …#define cublasXnrm2(a, b, c, d, e) cublasScnrm2((a), (b), (cuComplex *)… argument
15 …#define cublasIXamax(a, b, c, d, e) cublasIcamax((a), (b), (cuComplex *)… argument
16 …#define cublasXasum(a, b, c, d, e) cublasScasum((a), (b), (cuComplex *)… argument
17 …#define cublasXgemv(a, b, c, d, e, f, g, h, i, j, k, l) cublasCgemv((a), (b), (c), (d), (cuC… argument
18 …#define cublasXgemm(a, b, c, d, e, f, g, h, i, j, k, l, m, n) cublasCgemm((a), (b), (c), (d), (e),… argument
[all …]
H A Dlogimpl.h28 PetscLog##Container a; \
32 a = *a_p; \
33 a->num_entries = 0; \
34 a->max_entries = max_init; \
36 PetscCall(PetscMalloc1(max_init, &a->array)); \
38 PetscCall(PetscCalloc1(max_init, &a->array)); \
44 PetscLog##Container a; \
47 a = *a_p; \
49 if (a == NULL) PetscFunctionReturn(PETSC_SUCCESS); \
51 for (int i = 0; i < a->num_entries; i++) PetscCall((*destructor)(&a->array[i])); \
[all …]
/petsc/src/sys/tests/
H A Dex25.c10 PetscReal a, b, c; in main() local
11 a = PetscRealConstant(0.5); in main()
14 b = PetscSqrtReal(a); in main()
15 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "sqrt(%f) = %f\n", (double)a, (double)b)); in main()
16 b = PetscCbrtReal(a); in main()
17 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "cbrt(%f) = %f\n", (double)a, (double)b)); in main()
19 b = PetscHypotReal(a, c); in main()
20 … PetscCall(PetscPrintf(PETSC_COMM_WORLD, "hypot(%f,%f) = %f\n", (double)a, (double)c, (double)b)); in main()
21 b = PetscAtan2Real(a, c); in main()
22 … PetscCall(PetscPrintf(PETSC_COMM_WORLD, "atan2(%f,%f) = %f\n", (double)a, (double)c, (double)b)); in main()
[all …]
/petsc/src/mat/impls/baij/seq/ftn-kernels/
H A Dfsolvebaij.F9013 MatScalar, intent(in) :: a(0:*)
23 PETSC_AssertAlignx(16, a(1))
44 …s(0) = s(0) - (a(ax + 0)*x(jdx + 0) + a(ax + 4)*x(jdx + 1) + a(ax + 8)*x(jdx + 2) + a(ax + 12)*x(j…
45 …s(1) = s(1) - (a(ax + 1)*x(jdx + 0) + a(ax + 5)*x(jdx + 1) + a(ax + 9)*x(jdx + 2) + a(ax + 13)*x(j…
46 …s(2) = s(2) - (a(ax + 2)*x(jdx + 0) + a(ax + 6)*x(jdx + 1) + a(ax + 10)*x(jdx + 2) + a(ax + 14)*x(…
47 …s(3) = s(3) - (a(ax + 3)*x(jdx + 0) + a(ax + 7)*x(jdx + 1) + a(ax + 11)*x(jdx + 2) + a(ax + 15)*x(…
63 …s(0) = s(0) - (a(ax + 0)*x(jdx + 0) + a(ax + 4)*x(jdx + 1) + a(ax + 8)*x(jdx + 2) + a(ax + 12)*x(j…
64 …s(1) = s(1) - (a(ax + 1)*x(jdx + 0) + a(ax + 5)*x(jdx + 1) + a(ax + 9)*x(jdx + 2) + a(ax + 13)*x(j…
65 …s(2) = s(2) - (a(ax + 2)*x(jdx + 0) + a(ax + 6)*x(jdx + 1) + a(ax + 10)*x(jdx + 2) + a(ax + 14)*x(…
66 …s(3) = s(3) - (a(ax + 3)*x(jdx + 0) + a(ax + 7)*x(jdx + 1) + a(ax + 11)*x(jdx + 2) + a(ax + 15)*x(…
[all …]
/petsc/src/mat/impls/sell/seq/
H A Dsell.h127 Mat_SeqSELL *a = (Mat_SeqSELL *)A->data; \
130 else high = a->rlen[row]; \
134 if (*(cp + a->sliceheight * t) > col) high = t; \
138 if (*(cp + a->sliceheight * _i) > col) break; \
139 if (*(cp + a->sliceheight * _i) == col) { \
140 if (addv == ADD_VALUES) *(vp + a->sliceheight * _i) += value; \
141 else *(vp + a->sliceheight * _i) = value; \
147 …PetscCheck(a->nonew != -1, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Inserting a new nonzero at …
148 …(a->nonew != 1 && !(value == 0.0 && a->ignorezeroentries) && a->rlen[row] >= (a->sliidx[row / a->s…
150 if (a->maxallocmat < a->sliidx[a->totalslices] + a->sliceheight) { \
[all …]
H A Dsell.c206 Mat_SeqSELL *a = (Mat_SeqSELL *)A->data; in MatGetRow_SeqSELL() local
211 if (nz) *nz = a->rlen[row]; in MatGetRow_SeqSELL()
212 shift = a->sliidx[row / a->sliceheight] + (row % a->sliceheight); in MatGetRow_SeqSELL()
213 …if (!a->getrowcols) PetscCall(PetscMalloc2(a->rlenmax, &a->getrowcols, a->rlenmax, &a->getrowvals)… in MatGetRow_SeqSELL()
216 for (j = 0; j < a->rlen[row]; j++) a->getrowcols[j] = a->colidx[shift + a->sliceheight * j]; in MatGetRow_SeqSELL()
217 *idx = a->getrowcols; in MatGetRow_SeqSELL()
221 for (j = 0; j < a->rlen[row]; j++) a->getrowvals[j] = a->val[shift + a->sliceheight * j]; in MatGetRow_SeqSELL()
222 *v = a->getrowvals; in MatGetRow_SeqSELL()
236 Mat_SeqSELL *a = (Mat_SeqSELL *)A->data; in MatConvert_SeqSELL_SeqAIJ() local
247 PetscCall(MatSeqAIJSetPreallocation(B, 0, a->rlen)); in MatConvert_SeqSELL_SeqAIJ()
[all …]
/petsc/src/sys/tests/linter/
H A DtestDuplicates.c3 PetscErrorCode testDuplicatesWithChanges(PetscInt *a, PetscScalar *b) in testDuplicatesWithChanges() argument
6 PetscAssertPointer(a, 1); in testDuplicatesWithChanges()
8 PetscAssertPointer(a, 1); in testDuplicatesWithChanges()
17 PetscErrorCode testDuplicatesScoped(PetscInt *a, PetscScalar *b) in testDuplicatesScoped() argument
20 PetscAssertPointer(a, 1); in testDuplicatesScoped()
23 PetscAssertPointer(a, 1); in testDuplicatesScoped()
27 PetscAssertPointer(a, 1); in testDuplicatesScoped()
33 PetscErrorCode testDuplicatesDoubleScoped(PetscInt *a, PetscScalar *b) in testDuplicatesDoubleScoped() argument
36 PetscAssertPointer(a, 1); in testDuplicatesDoubleScoped()
39 PetscAssertPointer(a, 1); in testDuplicatesDoubleScoped()
[all …]
/petsc/share/petsc/datafiles/meshes/
H A Dwedge_cylinder.cas28 4 2 3 2f 2e 3 a
36 4 2 2e 38 8 9 a
37 4 2 3 9 8 a 34
38 4 3 2f 39 9 a b
39 4 3 4 a 9 b 35
41 4 4 30 3a a b c
42 4 4 5 b a c 36
46 4 8 9 39 38 a 11
49 4 9 a 3a 39 b 12
50 4 a b 3b 3a c 13
[all …]
H A Dsquare.cas140 2f 51 4a 0
154 3b 1a 24 21
155 1b 1a 21 a
156 1b 14 a 26
162 17 18 9 2a
163 17 46 2a 29
169 f 2a 31 2e
171 20 2a 2e 11
182 23 4a 3b 39
184 1e 4a 39 3d
[all …]
/petsc/src/sys/utils/
H A Dmathinf.c24 PetscBool PetscIsNormalReal(PetscReal a) in PetscIsNormalReal() argument
29 PetscBool PetscIsNormalReal(PetscReal a) in PetscIsNormalReal() argument
31 return isnormal(a) ? PETSC_TRUE : PETSC_FALSE; in PetscIsNormalReal()
34 PetscBool PetscIsNormalReal(PetscReal a) in PetscIsNormalReal() argument
62 PetscBool PetscIsInfReal(PetscReal a) in PetscIsInfReal() argument
64 return isinfq(a) ? PETSC_TRUE : PETSC_FALSE; in PetscIsInfReal()
67 PETSC_FORCE_NO_FINITE_MATH_ONLY PetscBool PetscIsInfReal(PetscReal a) in PetscIsInfReal() argument
69 return isinf(a) ? PETSC_TRUE : PETSC_FALSE; in PetscIsInfReal()
78 PetscBool PetscIsInfReal(PetscReal a) in PetscIsInfReal() argument
80 return !_finite(a) ? PETSC_TRUE : PETSC_FALSE; in PetscIsInfReal()
[all …]
/petsc/src/sys/tests/linter/output/
H A DtestDuplicates.patch4 -PetscErrorCode testDuplicatesWithChanges(PetscInt *a, PetscScalar *b)
5 +static PetscErrorCode testDuplicatesWithChanges(PetscInt *a, PetscScalar *b)
9 PetscAssertPointer(a, 1);
11 - PetscAssertPointer(a, 1);
16 PetscAssertPointer(a, 1);
39 -PetscErrorCode testDuplicatesScoped(PetscInt *a, PetscScalar *b)
40 +static PetscErrorCode testDuplicatesScoped(PetscInt *a, PetscScalar *b)
46 - PetscAssertPointer(a, 1);
52 PetscAssertPointer(a, 1);
60 - PetscAssertPointer(a, 1);
[all …]
/petsc/src/mat/impls/baij/seq/
H A Ddgefa2.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_2(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_2() argument
23 shift = .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[3])); in PetscKernel_A_gets_inverse_A_2()
26 a -= 3; in PetscKernel_A_gets_inverse_A_2()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_2()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_2()
54 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_2()
60 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_2()
61 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_2()
62 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_2()
66 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_2()
[all …]
H A Ddgefa5.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_5(MatScalar *a, PetscInt *ipvt, MatScalar *work, PetscR… in PetscKernel_A_gets_inverse_A_5() argument
23 …t * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[6]) + PetscAbsScalar(a[12]) + PetscAbsScalar… in PetscKernel_A_gets_inverse_A_5()
26 a -= 6; in PetscKernel_A_gets_inverse_A_5()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_5()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_5()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_5()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_5()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_5()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_5()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_5()
[all …]
H A Ddgefa7.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_7(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_7() argument
23 …alar(a[0]) + PetscAbsScalar(a[8]) + PetscAbsScalar(a[16]) + PetscAbsScalar(a[24]) + PetscAbsScalar… in PetscKernel_A_gets_inverse_A_7()
26 a -= 8; in PetscKernel_A_gets_inverse_A_7()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_7()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_7()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_7()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_7()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_7()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_7()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_7()
[all …]
H A Ddgefa4.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_4(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_4() argument
23 …= .25 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[5]) + PetscAbsScalar(a[10]) + Pe… in PetscKernel_A_gets_inverse_A_4()
26 a -= 5; in PetscKernel_A_gets_inverse_A_4()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_4()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_4()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_4()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_4()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_4()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_4()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_4()
[all …]
H A Ddgefa6.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_6(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_6() argument
23 …+ PetscAbsScalar(a[0]) + PetscAbsScalar(a[7]) + PetscAbsScalar(a[14]) + PetscAbsScalar(a[21]) + Pe… in PetscKernel_A_gets_inverse_A_6()
26 a -= 7; in PetscKernel_A_gets_inverse_A_6()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_6()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_6()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_6()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_6()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_6()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_6()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_6()
[all …]
H A Ddgefa3.c14 PetscErrorCode PetscKernel_A_gets_inverse_A_3(MatScalar *a, PetscReal shift, PetscBool allowzeropiv… in PetscKernel_A_gets_inverse_A_3() argument
23 …shift = .333 * shift * (1.e-12 + PetscAbsScalar(a[0]) + PetscAbsScalar(a[4]) + PetscAbsScalar(a[8]… in PetscKernel_A_gets_inverse_A_3()
26 a -= 4; in PetscKernel_A_gets_inverse_A_3()
35 aa = &a[k4]; in PetscKernel_A_gets_inverse_A_3()
48 if (a[l + k3] == 0.0) { in PetscKernel_A_gets_inverse_A_3()
55 a[l + k3] = shift; in PetscKernel_A_gets_inverse_A_3()
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_3()
62 a[l + k3] = a[k4]; in PetscKernel_A_gets_inverse_A_3()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_3()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_3()
[all …]
/petsc/src/mat/impls/scalapack/
H A Dmatscalapack.c32 Mat_ScaLAPACK *a = (Mat_ScaLAPACK *)A->data; in MatView_ScaLAPACK() local
42 PetscCall(PetscViewerASCIIPrintf(viewer, "block sizes: %d,%d\n", (int)a->mb, (int)a->nb)); in MatView_ScaLAPACK()
43 …iewerASCIIPrintf(viewer, "grid height=%d, grid width=%d\n", (int)a->grid->nprow, (int)a->grid->npc… in MatView_ScaLAPACK()
44 …wer, "coordinates of process owning first row and column: (%d,%d)\n", (int)a->rsrc, (int)a->csrc)); in MatView_ScaLAPACK()
45 …erASCIIPrintf(viewer, "dimension of largest local matrix: %d x %d\n", (int)a->locr, (int)a->locc)); in MatView_ScaLAPACK()
60 Mat_ScaLAPACK *a = (Mat_ScaLAPACK *)A->data; in MatGetInfo_ScaLAPACK() local
66 isend[0] = a->lld * a->locc; /* locally allocated */ in MatGetInfo_ScaLAPACK()
67 isend[1] = a->locr * a->locc; /* used submatrix */ in MatGetInfo_ScaLAPACK()
93 Mat_ScaLAPACK *a = (Mat_ScaLAPACK *)A->data; in MatSetOption_ScaLAPACK() local
105 a->roworiented = flg; in MatSetOption_ScaLAPACK()
[all …]
/petsc/src/mat/impls/h2opus/cuda/
H A Dmath2opus.cu200 Mat_H2OPUS *a = (Mat_H2OPUS *)A->data; in MatDestroy_H2OPUS() local
204 h2opusDestroyDistributedHandle(a->handle); in MatDestroy_H2OPUS()
206 h2opusDestroyHandle(a->handle); in MatDestroy_H2OPUS()
208 delete a->dist_hmatrix; in MatDestroy_H2OPUS()
209 delete a->hmatrix; in MatDestroy_H2OPUS()
210 PetscCall(PetscSFDestroy(&a->sf)); in MatDestroy_H2OPUS()
211 PetscCall(PetscLayoutDestroy(&a->h2opus_rmap)); in MatDestroy_H2OPUS()
212 PetscCall(PetscLayoutDestroy(&a->h2opus_cmap)); in MatDestroy_H2OPUS()
213 PetscCall(ISDestroy(&a->h2opus_indexmap)); in MatDestroy_H2OPUS()
214 delete a->xx; in MatDestroy_H2OPUS()
[all …]
/petsc/src/mat/impls/aij/seq/seqviennacl/
H A Daijviennacl.cxx28 Mat_SeqAIJ *a = (Mat_SeqAIJ *)A->data; in MatViennaCLCopyToGPU() local
31 …if (A->rmap->n > 0 && A->cmap->n > 0 && a->nz) { //some OpenCL SDKs have issues with buffers of si… in MatViennaCLCopyToGPU()
36 if (a->compressedrow.use) { in MatViennaCLCopyToGPU()
43 row_buffer.raw_resize(dummy, a->compressedrow.nrows + 1); in MatViennaCLCopyToGPU()
44 … for (PetscInt i = 0; i <= a->compressedrow.nrows; ++i) row_buffer.set(i, (a->compressedrow.i)[i]); in MatViennaCLCopyToGPU()
47 row_indices.raw_resize(dummy, a->compressedrow.nrows); in MatViennaCLCopyToGPU()
48 …for (PetscInt i = 0; i < a->compressedrow.nrows; ++i) row_indices.set(i, (a->compressedrow.rindex)… in MatViennaCLCopyToGPU()
51 col_buffer.raw_resize(dummy, a->nz); in MatViennaCLCopyToGPU()
52 for (PetscInt i = 0; i < a->nz; ++i) col_buffer.set(i, (a->j)[i]); in MatViennaCLCopyToGPU()
54 …ffer.get(), row_indices.get(), col_buffer.get(), a->a, A->rmap->n, A->cmap->n, a->compressedrow.nr… in MatViennaCLCopyToGPU()
[all …]
/petsc/src/mat/utils/
H A Dmatstashspace.c6 PetscMatStashSpace a; in PetscMatStashSpaceGet() local
11 PetscCall(PetscMalloc(sizeof(struct _MatStashSpace), &a)); in PetscMatStashSpaceGet()
12 PetscCall(PetscMalloc3(n * bs2, &a->space_head, n, &a->idx, n, &a->idy)); in PetscMatStashSpaceGet()
14 a->val = a->space_head; in PetscMatStashSpaceGet()
15 a->local_remaining = n; in PetscMatStashSpaceGet()
16 a->local_used = 0; in PetscMatStashSpaceGet()
17 a->total_space_size = 0; in PetscMatStashSpaceGet()
18 a->next = NULL; in PetscMatStashSpaceGet()
21 (*space)->next = a; in PetscMatStashSpaceGet()
22 a->total_space_size = (*space)->total_space_size; in PetscMatStashSpaceGet()
[all …]

12345678910>>...54