Home
last modified time | relevance | path

Searched refs:MPIU_FORTRANADDR (Results 1 – 14 of 14) sorted by relevance

/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_()
65 *ierr = F90Array1dAccess(is1, MPIU_FORTRANADDR, (void **)&isa PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmdestroysubdomains_()
67 *ierr = F90Array1dAccess(is2, MPIU_FORTRANADDR, (void **)&isb PETSC_F90_2PTR_PARAM(ptrd2)); in pcasmdestroysubdomains_()
71 *ierr = F90Array1dDestroy(is1, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmdestroysubdomains_()
73 *ierr = F90Array1dDestroy(is2, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd2)); in pcasmdestroysubdomains_()
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_()
[all …]
/petsc/src/ksp/pc/impls/gasm/ftn-custom/
H A Dzgasmf.c20 *ierr = F90Array1dAccess(is1, MPIU_FORTRANADDR, (void **)&isa PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmdestroysubdomains_()
22 *ierr = F90Array1dAccess(is2, MPIU_FORTRANADDR, (void **)&isb PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmdestroysubdomains_()
24 *ierr = F90Array1dDestroy(is1, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd1)); in pcgasmdestroysubdomains_()
26 *ierr = F90Array1dDestroy(is2, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd2)); in pcgasmdestroysubdomains_()
36 *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_()
57 *ierr = F90Array1dDestroy(ksp, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in pcgasmrestoresubksp_()
/petsc/src/mat/interface/ftn-custom/
H A Dzmatrixf.c41 *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatrices_()
43 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatrices_()
55 *ierr = F90Array1dCreate(lsmat, MPIU_FORTRANADDR, 1, *n + 1, ptr PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatricesmpi_()
57 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd)); in matcreatesubmatricesmpi_()
68 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd)); in matdestroymatrices_()
75 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in matdestroymatrices_()
85 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&lsmat PETSC_F90_2PTR_PARAM(ptrd)); in matdestroysubmatrices_()
89 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in matdestroysubmatrices_()
H A Dzmatnullf.c24 *ierr = F90Array1dCreate(tvecs, MPIU_FORTRANADDR, 1, n, vecs PETSC_F90_2PTR_PARAM(ptrd)); in matnullspacegetvecs_()
29 *ierr = F90Array1dDestroy(vecs, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in matnullspacerestorevecs_()
/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_()
41 *ierr = F90Array1dAccess(ksp, MPIU_FORTRANADDR, (void **)&array PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitrestoresubksp_()
43 *ierr = F90Array1dDestroy(ksp, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitrestoresubksp_()
51 *ierr = F90Array1dAccess(ksp, MPIU_FORTRANADDR, (void **)&array PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitschurerestoresubksp_()
53 *ierr = F90Array1dDestroy(ksp, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in pcfieldsplitschurerestoresubksp_()
/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_()
62 *ierr = F90Array1dAccess(iss, MPIU_FORTRANADDR, (void **)&tis PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositionrestoreisdm_()
64 *ierr = F90Array1dDestroy(iss, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositionrestoreisdm_()
72 *ierr = F90Array1dAccess(dms, MPIU_FORTRANADDR, (void **)&tdm PETSC_F90_2PTR_PARAM(ptrd2)); in dmcreatefielddecompositionrestoreisdm_()
74 *ierr = F90Array1dDestroy(dms, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd2)); in dmcreatefielddecompositionrestoreisdm_()
/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_()
78 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&ais PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositerestoreglobaliss_()
87 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositerestoreglobaliss_()
99 *ierr = F90Array1dCreate((void *)ais, MPIU_FORTRANADDR, 1, ndm, ptr PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositegetlocaliss_()
107 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&ais PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositerestorelocaliss_()
116 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in dmcompositerestorelocaliss_()
/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_()
25 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&is PETSC_F90_2PTR_PARAM(ptrd)); in iscoloringrestoreis_()
27 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in iscoloringrestoreis_()
/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_()
27 *ierr = F90Array1dDestroy(ksp, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in pcbjacobirestoresubksp_()
/petsc/src/sys/ftn-custom/
H A Df90_cwrap.c139 } else if (type == MPIU_FORTRANADDR) { in F90Array1dCreate()
182 } else if (type == MPIU_FORTRANADDR) { in F90Array1dAccess()
220 } else if (type == MPIU_FORTRANADDR) { in F90Array1dDestroy()
293 } else if (type == MPIU_FORTRANADDR) { in F90Array2dCreate()
308 } else if (type == MPIU_FORTRANADDR) { in F90Array2dAccess()
323 } else if (type == MPIU_FORTRANADDR) { in F90Array2dDestroy()
379 } else if (type == MPIU_FORTRANADDR) { in F90Array3dCreate()
394 } else if (type == MPIU_FORTRANADDR) { in F90Array3dAccess()
409 } else if (type == MPIU_FORTRANADDR) { in F90Array3dDestroy()
473 } else if (type == MPIU_FORTRANADDR) { in F90Array4dAccess()
/petsc/src/vec/vec/interface/ftn-custom/
H A Dzvectorf90.c112 *ierr = F90Array1dCreate(newvint, MPIU_FORTRANADDR, 1, *m, ptr PETSC_F90_2PTR_PARAM(ptrd)); in vecduplicatevecs_()
120 *ierr = F90Array1dAccess(ptr, MPIU_FORTRANADDR, (void **)&vecs PETSC_F90_2PTR_PARAM(ptrd)); in vecdestroyvecs_()
128 *ierr = F90Array1dDestroy(ptr, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd)); in vecdestroyvecs_()
/petsc/src/sys/objects/
H A Dinit.c75 MPI_Datatype MPIU_FORTRANADDR; variable
H A Dpinit.c905 MPIU_FORTRANADDR = (sizeof(void *) == sizeof(int)) ? MPI_INT : MPIU_INT64; in PetscInitialize_Common()
/petsc/include/
H A Dpetscsys.h201 PETSC_EXTERN MPI_Datatype MPIU_FORTRANADDR; variable