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