| /petsc/src/sys/ftn-src/ |
| H A D | f90_fwrap.F90 | 307 PetscInt start3, len3
308 …alar, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3 - 1)
319 PetscInt start3, len3
320 …Real, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3 - 1)
331 PetscInt start3, len3
332 …cInt, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3 - 1)
343 PetscInt start3, len3
344 …Addr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3 - 1)
442 PetscInt start3, len3
444 …array(start1:start1 + len1 - 1, start2:start2 + len2 - 1, start3:start3 + len3 - 1, start4:start4 …
[all …]
|
| /petsc/src/sys/error/ftn-custom/ |
| H A D | zerrf.c | 27 …rCode *, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHARLEN_T len3);
33 size_t len1, len2, len3; in ourerrorhandler() local
37 ierr = PetscStrlen(mess, &len3); in ourerrorhandler()
40 …ierr, (PETSC_FORTRAN_CHARLEN_T)len1, (PETSC_FORTRAN_CHARLEN_T)len2, (PETSC_FORTRAN_CHARLEN_T)len3); in ourerrorhandler()
73 …RAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHARLEN_T len3), PetscCtx ctx, Pet… in petscpusherrorhandler_() argument
|
| /petsc/src/sys/classes/viewer/impls/draw/ftn-custom/ |
| H A D | zdrawvf.c | 22 …de *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHARLEN_T len3) in petscviewermonitorlgsetup_() argument
28 FIXCHAR(metric, len3, t3); in petscviewermonitorlgsetup_()
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 370 … PetscInt len1, PetscInt start2, PetscInt len2, PetscInt start3, PetscInt len3, F90Array3d *ptr PE… 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()
456 … PetscInt len1, PetscInt start2, PetscInt len2, PetscInt start3, PetscInt len3, PetscInt start4, P… in F90Array4dCreate() argument
460 …f90array4dcreatescalar_(array, &start1, &len1, &start2, &len2, &start3, &len3, &start4, &len4, ptr… in F90Array4dCreate()
|
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zoptionsf.c | 326 size_t len3; in petscoptionsgetstring_() local
332 len3 = len - 1; in petscoptionsgetstring_()
334 *ierr = PetscOptionsGetString(*options, c1, c2, c3, len3, &flag); in petscoptionsgetstring_()
|