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