/usr/lib/petscdir/3.7.7/x86_64-linux-gnu-complex-debug/include/petsc/finclude/ftn-custom/petscdmda.h90 is in libpetsc-complex-3.7.7-dbg 3.7.7+dfsg1-2build5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | #if !defined(PETSC_USE_FORTRAN_MODULES)
#include "petsc/finclude/ftn-custom/petscdmdef.h90"
#endif
#include "petsc/finclude/ftn-custom/petscvechide.h90"
#include "petsc/finclude/ftn-custom/petscdmhide.h90"
type DMDALocalInfof90
PetscInt :: dim,dof,sw
PetscInt :: mx,my,mz
PetscInt :: xs,ys,zs
PetscInt :: xm,ym,zm
PetscInt :: gxs,gys,gzs
PetscInt :: gxm,gym,gzm
DMBoundaryType :: pt
DMDAStencilType :: st
DM_HIDE :: da
end type DMDALocalInfof90
Interface DMDAVecGetArrayF90
Subroutine DMDAVecGetArrayF901(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayF902(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayF903(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayF904(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:,:)
PetscErrorCode ierr
End Subroutine
End Interface DMDAVecGetArrayF90
Interface DMDAVecRestoreArrayF90
Subroutine DMDAVecRestoreArrayF901(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayF902(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayF903(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayF904(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:,:)
PetscErrorCode ierr
End Subroutine
End Interface DMDAVecRestoreArrayF90
Interface DMDAVecGetArrayReadF90
Subroutine DMDAVecGetArrayReadF901(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayReadF902(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayReadF903(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecGetArrayReadF904(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:,:)
PetscErrorCode ierr
End Subroutine
End Interface DMDAVecGetArrayReadF90
Interface DMDAVecRestoreArrayReadF90
Subroutine DMDAVecRestoreArrayReadF901(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayReadF902(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayReadF903(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:)
PetscErrorCode ierr
End Subroutine
Subroutine DMDAVecRestoreArrayReadF904(da1, v,d1,ierr)
USE_DM_HIDE
DM_HIDE da1
VEC_HIDE v
PetscScalar,pointer :: d1(:,:,:,:)
PetscErrorCode ierr
End Subroutine
End Interface DMDAVecRestoreArrayReadF90
|