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