Home
last modified time | relevance | path

Searched refs:PetscFortranAddr (Results 1 – 12 of 12) sorted by relevance

/petsc/src/sys/ftn-src/
H A Df90_fwrap.F9049 PetscFortranAddr, target :: array(start:start + len1 - 1)
50 PetscFortranAddr, pointer :: ptr(:)
60 PetscFortranAddr address
75 PetscFortranAddr address
90 PetscFortranAddr address
105 PetscFortranAddr address
119 PetscFortranAddr, pointer :: ptr(:)
120 PetscFortranAddr address
167 PetscFortranAddr, pointer :: ptr(:)
212 PetscFortranAddr, target :: array(start1:start1 + len1 - 1, start2:start2 + len2 - 1)
[all …]
/petsc/src/sys/ftn-custom/
H A Df90_cwrap.c501 PETSC_EXTERN void f90array1dgetaddrscalar_(void *array, PetscFortranAddr *address) in f90array1dgetaddrscalar_()
503 *address = (PetscFortranAddr)array; in f90array1dgetaddrscalar_()
505 PETSC_EXTERN void f90array1dgetaddrreal_(void *array, PetscFortranAddr *address) in f90array1dgetaddrreal_()
507 *address = (PetscFortranAddr)array; in f90array1dgetaddrreal_()
509 PETSC_EXTERN void f90array1dgetaddrint_(void *array, PetscFortranAddr *address) in f90array1dgetaddrint_()
511 *address = (PetscFortranAddr)array; in f90array1dgetaddrint_()
513 PETSC_EXTERN void f90array1dgetaddrmpiint_(void *array, PetscFortranAddr *address) in f90array1dgetaddrmpiint_()
515 *address = (PetscFortranAddr)array; in f90array1dgetaddrmpiint_()
517 PETSC_EXTERN void f90array1dgetaddrfortranaddr_(void *array, PetscFortranAddr *address) in f90array1dgetaddrfortranaddr_()
519 *address = (PetscFortranAddr)array; in f90array1dgetaddrfortranaddr_()
[all …]
/petsc/include/petsc/private/
H A Dftnimpl.h241 typedef PETSC_UINTPTR_T PetscFortranAddr; typedef
268 switch (*(PetscFortranAddr *)v) { in PetscPatchDefaultViewers()
311 else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_SOCKET_WORLD_FORTRAN) \
315 else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_SOCKET_SELF_FORTRAN) \
324 if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_DRAW_WORLD_FORTRAN) { \
326 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_DRAW_SELF_FORTRAN) { \
328 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDOUT_WORLD_FORTRAN) { \
330 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDOUT_SELF_FORTRAN) { \
332 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDERR_WORLD_FORTRAN) { \
334 } else if ((*(PetscFortranAddr *)vin) == PETSC_VIEWER_STDERR_SELF_FORTRAN) { \
[all …]
/petsc/src/vec/vec/tutorials/
H A Dex21.c24 PETSC_INTERN void f90array1dgetaddrmystruct_(void *array, PetscFortranAddr *address) in f90array1dgetaddrmystruct_()
26 *address = (PetscFortranAddr)array; in f90array1dgetaddrmystruct_()
H A Dex21f90.F9058 PetscFortranAddr address
/petsc/include/petsc/finclude/
H A Dpetscsysbase.h22 #define PetscFortranAddr integer8 macro
25 #define PetscFortranAddr integer4
63 #define PetscVoid PetscFortranAddr
/petsc/src/sys/tests/
H A Dex17f.F9012 PetscFortranAddr file
/petsc/src/vec/vec/interface/ftn-custom/
H A Dzvectorf90.c102 PetscFortranAddr *newvint; in vecduplicatevecs_()
109 for (i = 0; i < *m; i++) newvint[i] = (PetscFortranAddr)lV[i]; in vecduplicatevecs_()
/petsc/doc/changes/
H A D2022.md174 type `PetscFortranAddr` instead of as integer. Note that
175 `PetscFortranAddr` is simply integer on 32 bit machines and
186 PetscFortranAddr in the routines `PetscCObjectToFortranObject()`
/petsc/src/ksp/ksp/tutorials/
H A Dex1f.F9058 PetscFortranAddr defaultctx
/petsc/src/ksp/ksp/interface/ftn-custom/
H A Dzitfuncf.c156 PETSC_EXTERN void kspconvergeddefaultcreate_(PetscFortranAddr *ctx, PetscErrorCode *ierr) in kspconvergeddefaultcreate_()
/petsc/src/sys/ftn-mod/
H A Dpetscsysmod.F9087 PetscFortranAddr, parameter :: PETSC_STDOUT = 0