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