Home
last modified time | relevance | path

Searched refs:F90Array1dCreate (Results 1 – 25 of 31) sorted by relevance

12

/petsc/src/ksp/pc/impls/asm/ftn-custom/
H A Dzasmf.c29 …if (insubs) *ierr = F90Array1dCreate(insubs, MPIU_FORTRANADDR, 1, n, is PETSC_F90_2PTR_PARAM(ptrd1… in pcasmcreatesubdomains_()
41 …if (mat) *ierr = F90Array1dCreate(tmat, MPIU_FORTRANADDR, 1, nloc, mat PETSC_F90_2PTR_PARAM(ptrd)); in pcasmgetlocalsubmatrices_()
55 if (is) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, nloc, is PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmgetlocalsubdomains_()
57 …if (is_local) *ierr = F90Array1dCreate(tis_local, MPIU_FORTRANADDR, 1, nloc, is_local PETSC_F90_2P… in pcasmgetlocalsubdomains_()
83 *ierr = F90Array1dCreate(iis, MPIU_FORTRANADDR, 1, *Nsub, is1 PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmcreatesubdomains2d_()
85 *ierr = F90Array1dCreate(iisl, MPIU_FORTRANADDR, 1, *Nsub, is2 PETSC_F90_2PTR_PARAM(ptrd2)); in pcasmcreatesubdomains2d_()
99 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd)); in pcasmgetsubksp_()
/petsc/src/dm/impls/plex/ftn-custom/
H A Dzplexf90.c57 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetcone_()
75 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetconeorientation_()
93 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgetsupport_()
110 *ierr = F90Array1dCreate((void *)v, MPIU_INT, 1, n * 2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexgettransitiveclosure_()
134 *ierr = F90Array1dCreate((void *)v, MPIU_SCALAR, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmplexvecgetclosure_()
159 …*ierr = F90Array1dCreate((void *)indices, MPIU_INT, 1, *numIndices, idxPtr PETSC_F90_2PTR_PARAM(id… in dmplexgetclosureindices_()
161 …if (FORTRANNULLSCALARPOINTER(valPtr)) *ierr = F90Array1dCreate((void *)values, MPIU_SCALAR, 1, *nu… in dmplexgetclosureindices_()
191 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetjoin_()
203 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetfulljoin_()
227 *ierr = F90Array1dCreate((void *)coveredPoints, MPIU_INT, 1, n, cptr PETSC_F90_2PTR_PARAM(cptrd)); in dmplexgetmeet_()
[all …]
H A Dzplexfemf90.c46 …*ierr = F90Array1dCreate((void *)u, MPIU_SCALAR, 1, numCells * totDim, uPtr PETSC_F90_2PTR_PARAM(u… in dmplexgetcellfields_()
48 …*ierr = F90Array1dCreate((void *)u_t, MPIU_SCALAR, 1, locX_t ? numCells * totDim : 0, utPtr PETSC_… in dmplexgetcellfields_()
50 …*ierr = F90Array1dCreate((void *)a, MPIU_SCALAR, 1, locA ? numCells * totDimAux : 0, aPtr PETSC_F9… in dmplexgetcellfields_()
85 …*ierr = F90Array1dCreate((void *)uL, MPIU_SCALAR, 1, numFaces * totDim, uLPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_()
87 …*ierr = F90Array1dCreate((void *)uR, MPIU_SCALAR, 1, numFaces * totDim, uRPtr PETSC_F90_2PTR_PARAM… in dmplexgetfacefields_()
115 …*ierr = F90Array1dCreate((void *)g, MPIU_SCALAR, 1, numFaces * structSize, gPtr PETSC_F90_2PTR_PAR… in dmplexgetfacegeometry_()
117 *ierr = F90Array1dCreate((void *)v, MPIU_REAL, 1, numFaces * 2, vPtr PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexgetfacegeometry_()
/petsc/src/dm/impls/da/ftn-custom/
H A Dzdaf.c27 *ierr = F90Array1dCreate((PetscInt *)r, MPI_INT, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmdagetneighbors_()
45 *ierr = F90Array1dCreate((PetscInt *)gx, MPIU_INT, 1, M, lx PETSC_F90_2PTR_PARAM(lxd)); in dmdagetownershipranges_()
49 *ierr = F90Array1dCreate((PetscInt *)gy, MPIU_INT, 1, N, ly PETSC_F90_2PTR_PARAM(lyd)); in dmdagetownershipranges_()
52 …if ((void *)lz != PETSC_NULL_INTEGER_POINTER_Fortran) *ierr = F90Array1dCreate((PetscInt *)gz, MPI… in dmdagetownershipranges_()
/petsc/src/vec/is/sf/interface/ftn-custom/
H A Dzsf.c41 *ierr = F90Array1dCreate((void *)ilocal, MPIU_INT, 1, nl, ailocal PETSC_F90_2PTR_PARAM(pilocal)); in petscsfgetgraph_()
61 …*ierr = F90Array1dCreate((void *)irootloc, MPIU_INT, 1, ioffset[*niranks], airootloc PETSC_F90_2PT… in petscsfgetleafranks_()
63 …*ierr = F90Array1dCreate((void *)iranks, MPI_INT, 1, *niranks, airanks PETSC_F90_2PTR_PARAM(pirank… in petscsfgetleafranks_()
65 …*ierr = F90Array1dCreate((void *)ioffset, MPIU_INT, 1, *niranks + 1, aioffset PETSC_F90_2PTR_PARAM… in petscsfgetleafranks_()
78 *ierr = F90Array1dCreate((void *)ranks, MPI_INT, 1, *nranks, aranks PETSC_F90_2PTR_PARAM(pranks)); in petscsfgetrootranks_()
80 …*ierr = F90Array1dCreate((void *)roffset, MPIU_INT, 1, *nranks + 1, aroffset PETSC_F90_2PTR_PARAM(… in petscsfgetrootranks_()
82 …*ierr = F90Array1dCreate((void *)rmine, MPIU_INT, 1, roffset[*nranks], armine PETSC_F90_2PTR_PARAM… in petscsfgetrootranks_()
84 …*ierr = F90Array1dCreate((void *)rremote, MPIU_INT, 1, roffset[*nranks], arremote PETSC_F90_2PTR_P… in petscsfgetrootranks_()
/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf90.c70 if (II) *ierr = F90Array1dCreate((void *)II, MPIU_INT, 1, n, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrow_()
71 if (A) *ierr = F90Array1dCreate((void *)A, MPIU_SCALAR, 1, n, a PETSC_F90_2PTR_PARAM(jad)); in matgetrow_()
111 *ierr = F90Array1dCreate((PetscInt *)ghosts, MPIU_INT, 1, N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matgetghosts_()
210 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarray1d_()
237 *ierr = F90Array1dCreate((void **)fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarrayread1d_()
264 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m * N, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetarraywrite1d_()
283 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, m, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matdensegetcolumn_()
302 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, nz, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matseqaijgetarray_()
319 *ierr = F90Array1dCreate((PetscInt *)IA, MPIU_INT, 1, *n + 1, ia PETSC_F90_2PTR_PARAM(iad)); in matgetrowij_()
320 *ierr = F90Array1dCreate((PetscInt *)JA, MPIU_INT, 1, IA[*n], ja PETSC_F90_2PTR_PARAM(jad)); in matgetrowij_()
[all …]
H A Dzmatrixf.c41 *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatrices_()
55 *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatricesmpi_()
H A Dzmatnullf.c24 *ierr = F90Array1dCreate(tvecs, MPIU_FORTRANADDR, 1, n, vecs PETSC_F90_2PTR_PARAM(ptrd)); in matnullspacegetvecs_()
/petsc/src/ksp/pc/impls/gasm/ftn-custom/
H A Dzgasmf.c36 *ierr = F90Array1dCreate(iis, MPIU_FORTRANADDR, 1, *Nsub, is1 PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmcreatesubdomains2d_()
38 *ierr = F90Array1dCreate(iisl, MPIU_FORTRANADDR, 1, *Nsub, is2 PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmcreatesubdomains2d_()
52 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd)); in pcgasmgetsubksp_()
/petsc/src/vec/vec/interface/ftn-custom/
H A Dzvectorf90.c36 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarraywrite_()
61 *ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarray_()
86 *ierr = F90Array1dCreate((PetscScalar *)fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetarrayread_()
112 *ierr = F90Array1dCreate(newvint, MPIU_FORTRANADDR, 1, *m, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecduplicatevecs_()
H A Dzvectorf.c21 *ierr = F90Array1dCreate(fa, MPIU_INT, 1, size + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetownershipranges_()
/petsc/src/snes/interface/ftn-custom/
H A Dzsnesf90.c20 *ierr = F90Array1dCreate(hist, MPIU_REAL, 1, N, r PETSC_F90_2PTR_PARAM(ptrd1)); in snesgetconvergencehistory_()
22 *ierr = F90Array1dCreate(its, MPIU_INT, 1, N, fits PETSC_F90_2PTR_PARAM(ptrd2)); in snesgetconvergencehistory_()
/petsc/src/vec/is/section/interface/ftn-custom/
H A Dzvsectionisf90.c25 *ierr = F90Array1dCreate((void *)idx, MPIU_INT, 1, n, indices PETSC_F90_2PTR_PARAM(ptrd)); in petscsectiongetconstraintindices_()
42 *ierr = F90Array1dCreate((void *)idx, MPIU_INT, 1, n, indices PETSC_F90_2PTR_PARAM(ptrd)); in petscsectiongetfieldconstraintindices_()
/petsc/src/vec/is/sf/utils/ftn-custom/
H A Dzsfutilsf90.c37 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, lpEnd - lpStart, ptr PETSC_F90_2PTR_PARAM(ptrd)); in petscsfdistributesection_()
50 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, lpEnd - lpStart, ptr PETSC_F90_2PTR_PARAM(ptrd)); in petscsfcreateremoteoffsets_()
/petsc/src/vec/is/is/interface/ftn-custom/
H A Dzindexf90.c25 …*ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, (PetscInt)size + 1, ptr PETSC_F90_2PTR_PARAM(ptr… in petsclayoutgetranges_()
42 *ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in isgetindices_()
/petsc/src/vec/is/utils/ftn-custom/
H A Dzisltogf90.c24 *ierr = F90Array1dCreate((void *)idx, MPIU_INT, 1, n, indices PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappinggetindices_()
47 *ierr = F90Array1dCreate((void *)idx, MPIU_INT, 1, n, indices PETSC_F90_2PTR_PARAM(ptrd)); in islocaltoglobalmappinggetblockindices_()
/petsc/src/ksp/pc/impls/fieldsplit/ftn-custom/
H A Dzfieldsplitf.c24 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitschurgetsubksp_()
35 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitgetsubksp_()
/petsc/src/dm/dt/interface/ftn-custom/
H A Dzdtf90.c20 …*ierr = F90Array1dCreate((void *)points, MPIU_REAL, 1, (*npoints) * (*dim), ptrP PETSC_F90_2PTR_PA… in petscquadraturegetdata_()
22 …*ierr = F90Array1dCreate((void *)weights, MPIU_REAL, 1, (*npoints) * (*Nc), ptrW PETSC_F90_2PTR_PA… in petscquadraturegetdata_()
/petsc/src/dm/interface/ftn-custom/
H A Dzdmf.c49 if (iss) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, n, iss PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositiongetisdm_()
51 if (dms) *ierr = F90Array1dCreate(tdm, MPIU_FORTRANADDR, 1, n, dms PETSC_F90_2PTR_PARAM(ptrd2)); in dmcreatefielddecompositiongetisdm_()
/petsc/src/ksp/ksp/interface/ftn-custom/
H A Dzitfuncf90.c15 *ierr = F90Array1dCreate((void *)hist, MPIU_REAL, 1, *n, indices PETSC_F90_2PTR_PARAM(ptrd)); in kspgetresidualhistory_()
/petsc/src/dm/impls/composite/ftn-custom/
H A Dzfddaf.c70 *ierr = F90Array1dCreate((void *)ais, MPIU_FORTRANADDR, 1, ndm, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositegetglobaliss_()
99 *ierr = F90Array1dCreate((void *)ais, MPIU_FORTRANADDR, 1, ndm, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositegetlocaliss_()
/petsc/src/ksp/pc/impls/bjacobi/ftn-custom/
H A Dzbjacobif.c22 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd)); in pcbjacobigetsubksp_()
/petsc/src/vec/is/is/impls/ftn-custom/
H A Dzblockf90.c20 *__ierr = F90Array1dCreate((void *)fa, MPIU_INT, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in isblockgetindices_()
/petsc/src/vec/is/is/utils/ftn-custom/
H A Dziscoloringf90.c18 *ierr = F90Array1dCreate(lis, MPIU_FORTRANADDR, 1, *n, ptr PETSC_F90_2PTR_PARAM(ptrd)); in iscoloringgetis_()
/petsc/src/vec/vec/utils/ftn-custom/
H A Dzvsectionf90.c22 *__ierr = F90Array1dCreate(fa, MPIU_SCALAR, 1, len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecgetvaluessection_()

12