| /petsc/src/sys/ftn-src/ |
| H A D | f90_fwrap.F90 | 177 PetscInt start1, len1
179 PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
188 PetscInt start1, len1
190 PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
199 PetscInt start1, len1
201 PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
210 PetscInt start1, len1
212 PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
224 PetscInt start1, start2
226 start1 = lbound(ptr, 1)
[all …]
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 284 PetscErrorCode F90Array2dCreate(void *array, MPI_Datatype type, PetscInt start1, PetscInt len1, Pet… in F90Array2dCreate() argument
288 f90array2dcreatescalar_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
290 f90array2dcreatereal_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
292 f90array2dcreateint_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
294 …f90array2dcreatefortranaddr_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)… in F90Array2dCreate()
370 PetscErrorCode F90Array3dCreate(void *array, MPI_Datatype type, PetscInt start1, PetscInt len1, Pet… in F90Array3dCreate() argument
374 …f90array3dcreatescalar_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_… in F90Array3dCreate()
376 …f90array3dcreatereal_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_PA… in F90Array3dCreate()
378 …f90array3dcreateint_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_PAR… in F90Array3dCreate()
380 …f90array3dcreatefortranaddr_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_… in F90Array3dCreate()
[all …]
|
| /petsc/src/dm/impls/stag/ |
| H A D | stag3d.c | 1067 const PetscInt start1 = nNeighbors[neighbor][1] - ghostOffsetStart[1]; in DMStagSetUpBuildScatter_3d() local
1078 …, eplGhost, epFaceRow, globalOffsets[stag->neighbors[neighbor]], start0, start1, start2, startGhos… in DMStagSetUpBuildScatter_3d()
1088 const PetscInt start1 = nNeighbors[neighbor][1] - ghostOffsetStart[1]; in DMStagSetUpBuildScatter_3d() local
1099 …, eplGhost, epFaceRow, globalOffsets[stag->neighbors[neighbor]], start0, start1, start2, startGhos… in DMStagSetUpBuildScatter_3d()
1109 const PetscInt start1 = nNeighbors[neighbor][1] - ghostOffsetStart[1]; in DMStagSetUpBuildScatter_3d() local
1120 …, eplGhost, epFaceRow, globalOffsets[stag->neighbors[neighbor]], start0, start1, start2, startGhos… in DMStagSetUpBuildScatter_3d()
1130 const PetscInt start1 = 0; in DMStagSetUpBuildScatter_3d() local
1141 …, eplGhost, epFaceRow, globalOffsets[stag->neighbors[neighbor]], start0, start1, start2, startGhos… in DMStagSetUpBuildScatter_3d()
1151 const PetscInt start1 = 0; in DMStagSetUpBuildScatter_3d() local
1162 …, eplGhost, epFaceRow, globalOffsets[stag->neighbors[neighbor]], start0, start1, start2, startGhos… in DMStagSetUpBuildScatter_3d()
[all …]
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf2.c | 808 PetscReal start1 = 0; in MSA_InitialPoint() local
812 PetscCall(PetscOptionsGetReal(NULL, NULL, "-start", &start1, &flg1)); in MSA_InitialPoint()
816 PetscCall(VecSet(X, start1)); in MSA_InitialPoint()
|