1 interface DMDAVecGetArray 2 subroutine DMDAVecGetArrayF901(da1, v, d1, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tDM, tVec 5 DM da1 6 Vec v 7 PetscScalar, pointer :: d1(:) 8 PetscErrorCode ierr 9 end subroutine 10 subroutine DMDAVecGetArrayF902(da1, v, d1, ierr) 11 use, intrinsic :: ISO_C_binding 12 import tDM, tVec 13 DM da1 14 Vec v 15 PetscScalar, pointer :: d1(:, :) 16 PetscErrorCode ierr 17 end subroutine 18 subroutine DMDAVecGetArrayF903(da1, v, d1, ierr) 19 use, intrinsic :: ISO_C_binding 20 import tDM, tVec 21 DM da1 22 Vec v 23 PetscScalar, pointer :: d1(:, :, :) 24 PetscErrorCode ierr 25 end subroutine 26 subroutine DMDAVecGetArrayF904(da1, v, d1, ierr) 27 use, intrinsic :: ISO_C_binding 28 import tDM, tVec 29 DM da1 30 Vec v 31 PetscScalar, pointer :: d1(:, :, :, :) 32 PetscErrorCode ierr 33 end subroutine 34 end interface DMDAVecGetArray 35 36 interface DMDAVecRestoreArray 37 subroutine DMDAVecRestoreArrayF901(da1, v, d1, ierr) 38 use, intrinsic :: ISO_C_binding 39 import tDM, tVec 40 DM da1 41 Vec v 42 PetscScalar, pointer :: d1(:) 43 PetscErrorCode ierr 44 end subroutine 45 subroutine DMDAVecRestoreArrayF902(da1, v, d1, ierr) 46 use, intrinsic :: ISO_C_binding 47 import tDM, tVec 48 DM da1 49 Vec v 50 PetscScalar, pointer :: d1(:, :) 51 PetscErrorCode ierr 52 end subroutine 53 subroutine DMDAVecRestoreArrayF903(da1, v, d1, ierr) 54 use, intrinsic :: ISO_C_binding 55 import tDM, tVec 56 DM da1 57 Vec v 58 PetscScalar, pointer :: d1(:, :, :) 59 PetscErrorCode ierr 60 end subroutine 61 subroutine DMDAVecRestoreArrayF904(da1, v, d1, ierr) 62 use, intrinsic :: ISO_C_binding 63 import tDM, tVec 64 DM da1 65 Vec v 66 PetscScalar, pointer :: d1(:, :, :, :) 67 PetscErrorCode ierr 68 end subroutine 69 end interface DMDAVecRestoreArray 70 71 interface DMDAVecGetArrayRead 72 subroutine DMDAVecGetArrayReadF901(da1, v, d1, ierr) 73 use, intrinsic :: ISO_C_binding 74 import tDM, tVec 75 DM da1 76 Vec v 77 PetscScalar, pointer :: d1(:) 78 PetscErrorCode ierr 79 end subroutine 80 subroutine DMDAVecGetArrayReadF902(da1, v, d1, ierr) 81 use, intrinsic :: ISO_C_binding 82 import tDM, tVec 83 DM da1 84 Vec v 85 PetscScalar, pointer :: d1(:, :) 86 PetscErrorCode ierr 87 end subroutine 88 subroutine DMDAVecGetArrayReadF903(da1, v, d1, ierr) 89 use, intrinsic :: ISO_C_binding 90 import tDM, tVec 91 DM da1 92 Vec v 93 PetscScalar, pointer :: d1(:, :, :) 94 PetscErrorCode ierr 95 end subroutine 96 subroutine DMDAVecGetArrayReadF904(da1, v, d1, ierr) 97 use, intrinsic :: ISO_C_binding 98 import tDM, tVec 99 DM da1 100 Vec v 101 PetscScalar, pointer :: d1(:, :, :, :) 102 PetscErrorCode ierr 103 end subroutine 104 end interface DMDAVecGetArrayRead 105 106 interface DMDAVecRestoreArrayRead 107 subroutine DMDAVecRestoreArrayReadF901(da1, v, d1, ierr) 108 use, intrinsic :: ISO_C_binding 109 import tDM, tVec 110 DM da1 111 Vec v 112 PetscScalar, pointer :: d1(:) 113 PetscErrorCode ierr 114 end subroutine 115 subroutine DMDAVecRestoreArrayReadF902(da1, v, d1, ierr) 116 use, intrinsic :: ISO_C_binding 117 import tDM, tVec 118 DM da1 119 Vec v 120 PetscScalar, pointer :: d1(:, :) 121 PetscErrorCode ierr 122 end subroutine 123 subroutine DMDAVecRestoreArrayReadF903(da1, v, d1, ierr) 124 use, intrinsic :: ISO_C_binding 125 import tDM, tVec 126 DM da1 127 Vec v 128 PetscScalar, pointer :: d1(:, :, :) 129 PetscErrorCode ierr 130 end subroutine 131 subroutine DMDAVecRestoreArrayReadF904(da1, v, d1, ierr) 132 use, intrinsic :: ISO_C_binding 133 import tDM, tVec 134 DM da1 135 Vec v 136 PetscScalar, pointer :: d1(:, :, :, :) 137 PetscErrorCode ierr 138 end subroutine 139 end interface DMDAVecRestoreArrayRead 140 141 interface DMDARestoreNeighbors 142 subroutine DMDARestoreNeighbors(a, b, z) 143 use, intrinsic :: ISO_C_binding 144 import tDM 145 DM a 146 PetscMPIInt, pointer :: b(:) 147 PetscErrorCode z 148 end subroutine 149 end interface DMDARestoreNeighbors 150 151 interface 152 subroutine DMDARestoreOwnershipRanges(a, lx, ly, lz, z) 153 use, intrinsic :: ISO_C_binding 154 import tDM 155 DM a 156 PetscInt, pointer :: lx(:), ly(:), lz(:) 157 PetscErrorCode z 158 end subroutine 159 end interface 160