| /petsc/src/sys/ftn-src/ |
| H A D | f90_fwrap.F90 | 8 PetscInt start, len1
9 PetscScalar, target :: array(start:start + len1 - 1)
18 PetscInt start, len1
19 PetscReal, target :: array(start:start + len1 - 1)
28 PetscInt start, len1
29 PetscInt, target :: array(start:start + len1 - 1)
38 PetscInt start, len1
39 PetscMPIInt, target :: array(start:start + len1 - 1)
48 PetscInt start, len1
49 PetscFortranAddr, target :: array(start:start + len1 - 1)
[all …]
|
| /petsc/src/sys/objects/ |
| H A D | prefix.c | 121 size_t len1, len2, new_len; in PetscObjectAppendOptionsPrefix() local
132 PetscCall(PetscStrlen(obj->prefix, &len1)); 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
194 PetscCall(PetscStrlen(prefix, &len1)); in PetscObjectPrependOptionsPrefix()
197 new_len = len1 + len2 + 1; in PetscObjectPrependOptionsPrefix()
199 PetscCall(PetscStrncpy(obj->prefix, prefix, len1 + 1)); in PetscObjectPrependOptionsPrefix()
200 PetscCall(PetscStrncpy(obj->prefix + len1, buf, len2 + 1)); in PetscObjectPrependOptionsPrefix()
|
| /petsc/src/sys/fileio/ftn-custom/ |
| H A D | zmprintf.c | 44 …intf_(MPI_Comm *comm, FILE **file, char *fname, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscfprintf_() argument
48 FIXCHAR(fname, len1, c1); in petscfprintf_()
57 … void petscprintf_(MPI_Comm *comm, char *fname, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscprintf_() argument
61 FIXCHAR(fname, len1, c1); in petscprintf_()
70 …intf_(MPI_Comm *comm, FILE **file, char *fname, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscsynchronizedfprintf_() argument
74 FIXCHAR(fname, len1, c1); in petscsynchronizedfprintf_()
83 …ynchronizedprintf_(MPI_Comm *comm, char *fname, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscsynchronizedprintf_() argument
87 FIXCHAR(fname, len1, c1); in petscsynchronizedprintf_()
|
| H A D | zmpiuopenf.c | 15 …, char *fmode, FILE **file, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscfopen_() argument
19 FIXCHAR(fname, len1, c1); in petscfopen_()
|
| /petsc/src/sys/classes/viewer/impls/hdf5/ftn-custom/ |
| H A D | zhdf5f.c | 25 …], const char name[], PetscInt *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscviewerhdf5writeattributeint_() argument
30 FIXCHAR(parent, len1, c1); in petscviewerhdf5writeattributeint_()
37 …const char name[], PetscScalar *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscviewerhdf5writeattributescalar_() argument
42 FIXCHAR(parent, len1, c1); in petscviewerhdf5writeattributescalar_()
49 …, const char name[], PetscReal *value, int *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscviewerhdf5writeattributereal_() argument
54 FIXCHAR(parent, len1, c1); in petscviewerhdf5writeattributereal_()
|
| /petsc/src/sys/classes/viewer/impls/string/ftn-custom/ |
| H A D | zstringvf.c | 14 …_(MPI_Comm *comm, char *name, PetscViewer *str, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscviewerstringopen_() argument
17 *ierr = PetscViewerStringOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm), name, len1, str); in petscviewerstringopen_()
20 …rstringsetstring_(PetscViewer *str, char *name, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscviewerstringsetstring_() argument
23 *ierr = PetscViewerStringSetString(v_a, name, len1); in petscviewerstringsetstring_()
|
| /petsc/src/sys/classes/viewer/impls/ascii/ftn-custom/ |
| H A D | zfilevf.c | 29 …werasciiprintf_(PetscViewer *viewer, char *str, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscviewerasciiprintf_() argument
35 FIXCHAR(str, len1, c1); in petscviewerasciiprintf_()
44 …hronizedprintf_(PetscViewer *viewer, char *str, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscviewerasciisynchronizedprintf_() argument
50 FIXCHAR(str, len1, c1); in petscviewerasciisynchronizedprintf_()
|
| /petsc/src/sys/utils/ftn-custom/ |
| H A D | zstrf.c | 9 …char *s1, char *s2, int *n, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscstrncpy_() argument
17 if (len1 < m) m = len1; in petscstrncpy_()
|
| /petsc/src/sys/fileio/ |
| H A D | grpath.c | 47 size_t N, len1, len2; in PetscGetRealPath() local
70 PetscCall(PetscStrlen(tmp1, &len1)); in PetscGetRealPath()
72 m = len1 - len2; in PetscGetRealPath()
89 PetscCall(PetscStrlen(tmp1, &len1)); in PetscGetRealPath()
91 N = len1 - len2; in PetscGetRealPath()
|
| /petsc/src/sys/classes/bag/ftn-custom/ |
| H A D | zbagf.c | 10 …ef, char *name, char *help, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscbagregisterenumprivate_() argument
14 FIXCHAR(name, len1, c1); in petscbagregisterenumprivate_()
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 27 …orType *, const char *, void *, PetscErrorCode *, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR…
33 size_t len1, len2, len3; in ourerrorhandler() local
35 ierr = PetscStrlen(fun, &len1); in ourerrorhandler()
40 …(*f2)(&comm, &line, fun, file, &n, &p, mess, ctx, &ierr, (PETSC_FORTRAN_CHARLEN_T)len1, (PETSC_FOR… in ourerrorhandler()
73 …orType *, const char *, void *, PetscErrorCode *, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscpusherrorhandler_() argument
|
| /petsc/src/sys/info/ftn-custom/ |
| H A D | zverboseinfof.c | 26 PETSC_EXTERN void petscinfo_(char *text, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1) in petscinfo_() argument
30 FIXCHAR(text, len1, c1); in petscinfo_()
|
| /petsc/src/sys/classes/viewer/impls/draw/ftn-custom/ |
| H A D | zdrawvf.c | 22 …*x, int *y, int *m, int *n, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscviewermonitorlgsetup_() argument
26 FIXCHAR(host, len1, t1); in petscviewermonitorlgsetup_()
|
| /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/sys/classes/draw/interface/ |
| H A D | draw.c | 233 size_t len1, len2, new_len; in PetscDrawAppendTitle() local
234 PetscCall(PetscStrlen(draw->title, &len1)); in PetscDrawAppendTitle()
236 new_len = len1 + len2 + 1; in PetscDrawAppendTitle()
238 PetscCall(PetscStrncpy(draw->title + len1, title, len2 + 1)); in PetscDrawAppendTitle()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zoptionsf.c | 309 …um *ivalue, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscoptionsgetenumprivate_() argument
314 FIXCHAR(pre, len1, c1); in petscoptionsgetenumprivate_()
323 …ar *string, PetscBool *flg, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHAR… in petscoptionsgetstring_() argument
329 FIXCHAR(pre, len1, c1); in petscoptionsgetstring_()
|
| /petsc/src/mat/interface/ |
| H A D | matrix.c | 792 size_t len1, len2, new_len; in MatAppendOptionsPrefixFactor() local
803 PetscCall(PetscStrlen(A->factorprefix, &len1)); in MatAppendOptionsPrefixFactor()
805 new_len = len1 + len2 + 1; in MatAppendOptionsPrefixFactor()
807 PetscCall(PetscStrncpy(A->factorprefix + len1, prefix, len2 + 1)); in MatAppendOptionsPrefixFactor()
|