Actual source code: petscdmda.h90
petsc-3.13.6 2020-09-29
3: type DMDALocalInfof90
4: PetscInt :: dim,dof,sw
5: PetscInt :: mx,my,mz
6: PetscInt :: xs,ys,zs
7: PetscInt :: xm,ym,zm
8: PetscInt :: gxs,gys,gzs
9: PetscInt :: gxm,gym,gzm
10: DMBoundaryType :: pt
11: DMDAStencilType :: st
12: DM :: da
13: end type DMDALocalInfof90
15: Interface DMDAVecGetArrayF90
16: Subroutine DMDAVecGetArrayF901(da1, v,d1,ierr)
17: use petscdmdef
18: DM da1
19: Vec v
20: PetscScalar,pointer :: d1(:)
21: PetscErrorCode ierr
22: End Subroutine
23: Subroutine DMDAVecGetArrayF902(da1, v,d1,ierr)
24: use petscdmdef
25: DM da1
26: Vec v
27: PetscScalar,pointer :: d1(:,:)
28: PetscErrorCode ierr
29: End Subroutine
30: Subroutine DMDAVecGetArrayF903(da1, v,d1,ierr)
31: use petscdmdef
32: DM da1
33: Vec v
34: PetscScalar,pointer :: d1(:,:,:)
35: PetscErrorCode ierr
36: End Subroutine
37: Subroutine DMDAVecGetArrayF904(da1, v,d1,ierr)
38: use petscdmdef
39: DM da1
40: Vec v
41: PetscScalar,pointer :: d1(:,:,:,:)
42: PetscErrorCode ierr
43: End Subroutine
44: End Interface DMDAVecGetArrayF90
46: Interface DMDAVecRestoreArrayF90
47: Subroutine DMDAVecRestoreArrayF901(da1, v,d1,ierr)
48: use petscdmdef
49: DM da1
50: Vec v
51: PetscScalar,pointer :: d1(:)
52: PetscErrorCode ierr
53: End Subroutine
54: Subroutine DMDAVecRestoreArrayF902(da1, v,d1,ierr)
55: use petscdmdef
56: DM da1
57: Vec v
58: PetscScalar,pointer :: d1(:,:)
59: PetscErrorCode ierr
60: End Subroutine
61: Subroutine DMDAVecRestoreArrayF903(da1, v,d1,ierr)
62: use petscdmdef
63: DM da1
64: Vec v
65: PetscScalar,pointer :: d1(:,:,:)
66: PetscErrorCode ierr
67: End Subroutine
68: Subroutine DMDAVecRestoreArrayF904(da1, v,d1,ierr)
69: use petscdmdef
70: DM da1
71: Vec v
72: PetscScalar,pointer :: d1(:,:,:,:)
73: PetscErrorCode ierr
74: End Subroutine
75: End Interface DMDAVecRestoreArrayF90
77: Interface DMDAVecGetArrayReadF90
78: Subroutine DMDAVecGetArrayReadF901(da1, v,d1,ierr)
79: use petscdmdef
80: DM da1
81: Vec v
82: PetscScalar,pointer :: d1(:)
83: PetscErrorCode ierr
84: End Subroutine
85: Subroutine DMDAVecGetArrayReadF902(da1, v,d1,ierr)
86: use petscdmdef
87: DM da1
88: Vec v
89: PetscScalar,pointer :: d1(:,:)
90: PetscErrorCode ierr
91: End Subroutine
92: Subroutine DMDAVecGetArrayReadF903(da1, v,d1,ierr)
93: use petscdmdef
94: DM da1
95: Vec v
96: PetscScalar,pointer :: d1(:,:,:)
97: PetscErrorCode ierr
98: End Subroutine
99: Subroutine DMDAVecGetArrayReadF904(da1, v,d1,ierr)
100: use petscdmdef
101: DM da1
102: Vec v
103: PetscScalar,pointer :: d1(:,:,:,:)
104: PetscErrorCode ierr
105: End Subroutine
106: End Interface DMDAVecGetArrayReadF90
108: Interface DMDAVecRestoreArrayReadF90
109: Subroutine DMDAVecRestoreArrayReadF901(da1, v,d1,ierr)
110: use petscdmdef
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 petscdmdef
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 petscdmdef
125: DM da1
126: Vec v
127: PetscScalar,pointer :: d1(:,:,:)
128: PetscErrorCode ierr
129: End Subroutine
130: Subroutine DMDAVecRestoreArrayReadF904(da1, v,d1,ierr)
131: use petscdmdef
132: DM da1
133: Vec v
134: PetscScalar,pointer :: d1(:,:,:,:)
135: PetscErrorCode ierr
136: End Subroutine
137: End Interface DMDAVecRestoreArrayReadF90
139: Interface DMDACreate1d
140: Subroutine DMDACreate1d(a,b,c,d,e,f,g,z)
141: use petscdmdef
142: MPI_Comm a
143: DMBoundaryType b
144: PetscInt c,d,e,f(*)
145: DM g
146: PetscErrorCode z
147: End Subroutine
148: End Interface DMDACreate1d
150: Interface DMDACreate2d
151: Subroutine DMDACreate2d(a,b,c,d,e,f,g,h,i,j,k,l,m,z)
152: use petscdmdef
153: MPI_Comm a
154: DMBoundaryType b,c
155: DMDAStencilType d
156: PetscInt e,f,g,h,i,j,k(*),l(*)
157: DM m
158: PetscErrorCode z
159: End Subroutine
160: End Interface DMDACreate2d
162: Interface DMDACreate3d
163: Subroutine DMDACreate3d(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,z)
164: use petscdmdef
165: MPI_Comm a
166: DMBoundaryType b,c,d
167: DMDAStencilType e
168: PetscInt f,g,h,i,j,k,l,m,n(*)
169: PetscInt o(*),p(*)
170: DM q
171: PetscErrorCode z
172: End Subroutine
173: End Interface DMDACreate3d
175: Interface DMDAGetNeighbors
176: Subroutine DMDAGetNeighbors(a,b,z)
177: use petscdmdef
178: DM a
179: PetscMPIInt b(*)
180: PetscErrorCode z
181: End Subroutine
182: End Interface DMDAGetNeighbors
184: Interface DMDAGetOwnershipRange
185: Subroutine DMDAGetOwnershipRange(a,b,c,d,z)
186: use petscdmdef
187: DM a
188: PetscInt b(*), c(*), d(*)
189: PetscErrorCode z
190: End Subroutine
191: End Interface DMDAGetOwnershipRange
193: Interface DMDAGetRefinementFactor
194: Subroutine DMDAGetRefinementFactor(a,b,c,d,z)
195: use petscdmdef
196: DM a
197: PetscInt b(*), c(*), d(*)
198: PetscErrorCode z
199: End Subroutine
200: End Interface DMDAGetRefinementFactor
202: Interface DMDASetFieldName
203: Subroutine DMDASetFieldName(a,b,c,z)
204: use petscdmdef
205: DM a
206: PetscInt b
207: character(*) c
208: PetscErrorCode z
209: End Subroutine
210: End Interface DMDASetFieldName
212: Interface DMDAGetFieldName
213: Subroutine DMDAGetFieldName(a,b,c,z)
214: use petscdmdef
215: DM a
216: PetscInt b
217: character(*) c
218: PetscErrorCode z
219: End Subroutine
220: End Interface DMDAGetFieldName
222: Interface DMDASetAOType
223: Subroutine DMDASetAOType(a,b,z)
224: use petscdmdef
225: DM a
226: character(*) b
227: PetscErrorCode z
228: End Subroutine
229: End Interface DMDASetAOType
231: Interface DMDAGetScatter
232: Subroutine DMDAGetScatter(a,b,c,z)
233: use petscdmdef
234: DM a
235: VecScatter b,c
236: PetscErrorCode z
237: End Subroutine
238: End Interface DMDAGetScatter
240: Interface DMDAGetCorners
241: Subroutine DMDAGetCorners000000(a,x,y,z,m,n,p,ierr)
242: use petscdmdef
243: DM a
244: PetscInt, intent(out) :: x,y,z
245: PetscInt, intent(out) :: m,n,p
246: PetscErrorCode, intent(out) :: ierr
247: End Subroutine DMDAGetCorners000000
249: Subroutine DMDAGetCorners001001(a,x,y,z,m,n,p,ierr)
250: use petscdmdef
251: DM a
252: PetscInt, intent(out) :: x,y
253: PetscInt :: m,n
254: PetscInt :: z(*),p(*)
255: PetscErrorCode, intent(out) :: ierr
256: End Subroutine DMDAGetCorners001001
258: Subroutine DMDAGetCorners011011(a,x,y,z,m,n,p,ierr)
259: use petscdmdef
260: DM a
261: PetscInt, intent(out) :: x
262: PetscInt, intent(out) :: m
263: PetscInt :: z(*),y(*)
264: PetscInt :: p(*),n(*)
265: PetscErrorCode, intent(out) :: ierr
266: End Subroutine DMDAGetCorners011011
267: End Interface DMDAGetCorners
269: Interface DMDAGetGhostCorners
270: Subroutine DMDAGetGhostCorners000000(a,x,y,z,m,n,p,ierr)
271: use petscdmdef
272: DM a
273: PetscInt, intent(out) :: x,y,z
274: PetscInt, intent(out) :: m,n,p
275: PetscErrorCode, intent(out) :: ierr
276: End Subroutine DMDAGetGhostCorners000000
278: Subroutine DMDAGetGhostCorners001001(a,x,y,z,m,n,p,ierr)
279: use petscdmdef
280: DM a
281: PetscInt, intent(out) :: x,y
282: PetscInt :: m,n
283: PetscInt :: z(*),p(*)
284: PetscErrorCode, intent(out) :: ierr
285: End Subroutine DMDAGetGhostCorners001001
287: Subroutine DMDAGetGhostCorners011011(a,x,y,z,m,n,p,ierr)
288: use petscdmdef
289: DM a
290: PetscInt, intent(out) :: x
291: PetscInt, intent(out) :: m
292: PetscInt :: z(*),y(*)
293: PetscInt :: p(*),n(*)
294: PetscErrorCode, intent(out) :: ierr
295: End Subroutine DMDAGetGhostCorners011011
296: End Interface DMDAGetGhostCorners