Actual source code: petscdmda.h90
petsc-3.8.4 2018-03-24
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