| /petsc/src/sys/ftn-src/ |
| H A D | f90_fwrap.F90 | 178 PetscInt start2, len2
179 PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
189 PetscInt start2, len2
190 PetscReal, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
200 PetscInt start2, len2
201 PetscInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
211 PetscInt start2, len2
212 PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
306 PetscInt start2, len2
308 …PetscScalar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + l…
[all …]
|
| /petsc/src/sys/objects/ |
| H A D | prefix.c | 121 size_t len1, len2, new_len; in PetscObjectAppendOptionsPrefix() local
133 PetscCall(PetscStrlen(prefix, &len2)); in PetscObjectAppendOptionsPrefix()
134 new_len = len1 + len2 + 1; in PetscObjectAppendOptionsPrefix()
136 PetscCall(PetscStrncpy(obj->prefix + len1, prefix, len2 + 1)); in PetscObjectAppendOptionsPrefix()
183 size_t len1, len2, new_len; in PetscObjectPrependOptionsPrefix() local
195 PetscCall(PetscStrlen(obj->prefix, &len2)); in PetscObjectPrependOptionsPrefix()
197 new_len = len1 + len2 + 1; in PetscObjectPrependOptionsPrefix()
200 PetscCall(PetscStrncpy(obj->prefix + len1, buf, len2 + 1)); in PetscObjectPrependOptionsPrefix()
|
| /petsc/src/sys/classes/viewer/impls/hdf5/ftn-custom/ |
| H A D | zhdf5f.c | 25 …har name[], PetscInt *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscviewerhdf5writeattributeint_() argument
31 FIXCHAR(name, len2, c2); in petscviewerhdf5writeattributeint_()
37 … name[], PetscScalar *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscviewerhdf5writeattributescalar_() argument
43 FIXCHAR(name, len2, c2); in petscviewerhdf5writeattributescalar_()
49 …ar name[], PetscReal *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscviewerhdf5writeattributereal_() argument
55 FIXCHAR(name, len2, c2); in petscviewerhdf5writeattributereal_()
|
| /petsc/src/sys/utils/ftn-custom/ |
| H A D | zstrf.c | 9 …char *s2, int *n, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscstrncpy_() argument
18 if (len2 < m) m = len2; in petscstrncpy_()
|
| /petsc/src/sys/fileio/ |
| H A D | grpath.c | 47 size_t N, len1, len2; in PetscGetRealPath() local
71 PetscCall(PetscStrlen(tmp2, &len2)); in PetscGetRealPath()
72 m = len1 - len2; in PetscGetRealPath()
90 PetscCall(PetscStrlen(tmp2, &len2)); in PetscGetRealPath()
91 N = len1 - len2; in PetscGetRealPath()
|
| /petsc/src/sys/classes/bag/ftn-custom/ |
| H A D | zbagf.c | 10 …name, char *help, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscbagregisterenumprivate_() argument
15 FIXCHAR(help, len2, c2); in petscbagregisterenumprivate_()
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 27 …, PetscErrorCode *, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHAR…
33 size_t len1, len2, len3; in ourerrorhandler() local
36 ierr = PetscStrlen(file, &len2); in ourerrorhandler()
40 …mess, ctx, &ierr, (PETSC_FORTRAN_CHARLEN_T)len1, (PETSC_FORTRAN_CHARLEN_T)len2, (PETSC_FORTRAN_CHA… in ourerrorhandler()
73 …, PetscErrorCode *, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHAR… in petscpusherrorhandler_() argument
|
| /petsc/src/sys/fileio/ftn-custom/ |
| H A D | zmpiuopenf.c | 15 …ode, FILE **file, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscfopen_() argument
20 FIXCHAR(fmode, len2, c2); in petscfopen_()
|
| /petsc/src/sys/classes/viewer/impls/draw/ftn-custom/ |
| H A D | zdrawvf.c | 22 …tscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHAR… in petscviewermonitorlgsetup_() argument
27 FIXCHAR(label, len2, t2); in petscviewermonitorlgsetup_()
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 284 …_Datatype type, PetscInt start1, PetscInt len1, PetscInt start2, PetscInt len2, F90Array2d *ptr PE… 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 …_Datatype type, PetscInt start1, PetscInt len1, PetscInt start2, PetscInt len2, PetscInt start3, P… 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/sys/classes/draw/interface/ |
| H A D | draw.c | 233 size_t len1, len2, new_len; in PetscDrawAppendTitle() local
235 PetscCall(PetscStrlen(title, &len2)); in PetscDrawAppendTitle()
236 new_len = len1 + len2 + 1; in PetscDrawAppendTitle()
238 PetscCall(PetscStrncpy(draw->title + len1, title, len2 + 1)); in PetscDrawAppendTitle()
|
| /petsc/src/ts/tutorials/phasefield/ |
| H A D | biharmonic.c | 462 …eal x, y, hx, pause, sx, len, max, xx[4], yy[4], xx_netforce, yy_netforce, yup, ydown, y2, len2; in MyMonitor() local
683 …if (PetscRealPart(u[i]) < -1.0 + 2.0 * tol) len2 = .5 * (.25 * theta / (tol - tol * tol)) * PetscR… in MyMonitor()
684 …else if (PetscRealPart(u[i]) > 1.0 - 2.0 * tol) len2 = .5 * (.25 * theta / (tol - tol * tol)) * Pe… in MyMonitor()
685 …else len2 = PetscRealPart(.5 * (2.0 * theta * u[i] / ((1.0 - u[i] * u[i]) * (1.0 - u[i] * u[i])) *… in MyMonitor()
689 …if (PetscRealPart(u[i]) < -1.0 + 2.0 * tol) len2 = PetscRealPart(.5 * (-1.0 * a * .25 * (u[i + 1] … in MyMonitor()
690 …else if (PetscRealPart(u[i]) > 1.0 - 2.0 * tol) len2 = PetscRealPart(.5 * (a * .25 * (u[i + 1] - u… in MyMonitor()
691 …else len2 = PetscRealPart(.5 * (2.0 * theta * u[i] / ((1.0 - u[i] * u[i]) * (1.0 - u[i] * u[i])) *… in MyMonitor()
694 PetscCall(PetscDrawArrow(draw, x, y2, x, y2 + len2, PETSC_DRAW_PLUM)); in MyMonitor()
702 …if (PetscRealPart(u[i]) < -1.0 + 2.0 * tol) len2 = .5 * (.25 * theta / (tol - tol * tol)) * PetscR… in MyMonitor()
703 …else if (PetscRealPart(u[i]) > 1.0 - 2.0 * tol) len2 = .5 * (.25 * theta / (tol - tol * tol)) * Pe… in MyMonitor()
[all …]
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zoptionsf.c | 309 …, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2) in petscoptionsgetenumprivate_() argument
315 FIXCHAR(name, len2, c2); in petscoptionsgetenumprivate_()
323 …tscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHAR… in petscoptionsgetstring_() argument
330 FIXCHAR(name, len2, c2); in petscoptionsgetstring_()
|
| /petsc/src/mat/interface/ |
| H A D | matrix.c | 792 size_t len1, len2, new_len; in MatAppendOptionsPrefixFactor() local
804 PetscCall(PetscStrlen(prefix, &len2)); in MatAppendOptionsPrefixFactor()
805 new_len = len1 + len2 + 1; in MatAppendOptionsPrefixFactor()
807 PetscCall(PetscStrncpy(A->factorprefix + len1, prefix, len2 + 1)); in MatAppendOptionsPrefixFactor()
|