Actual source code: petscda.h90
1: !
2: !
3: ! Additional DA include file for use of PETSc with Fortran 90/HPF
4: !
5: #if !defined (PETSC_AVOID_DECLARATIONS)
7: Interface
8: Subroutine DAGetGlobalIndicesF90(v,n,array,ierr)
9: PetscInt, pointer :: array(:)
10: PetscInt n
11: PetscErrorCode ierr
12: DA v
13: End Subroutine
14: End Interface
17: type DALocalInfof90
18: PetscInt :: dim,dof,sw
19: PetscInt :: mx,my,mz
20: PetscInt :: xs,ys,zs
21: PetscInt :: xm,ym,zm
22: PetscInt :: gxs,gys,gzs
23: PetscInt :: gxm,gym,gzm
24: DAPeriodicType :: pt
25: DAStencilType :: st
26: DA :: da
27: end type DALocalInfof90
30: Interface DMCompositeGetEntries
31: Subroutine DMCompositeGetEntries1(dm, d1,ierr)
32: DM dm
33: PetscErrorCode ierr
34: End Subroutine
36: Subroutine DMCompositeGetEntries2(dm, d1,d2,ierr)
37: DM dm
38: DM d1,d2
39: PetscErrorCode ierr
40: End Subroutine
42: Subroutine DMCompositeGetEntries3(dm, d1,d2,d3,ierr)
43: DM dm
44: DM d1,d2,d3
45: PetscErrorCode ierr
46: End Subroutine
48: Subroutine DMCompositeGetEntries4(dm, d1,d2,d3,d4,ierr)
49: DM dm
50: PetscInt d2,d4
51: DM d1,d3
52: PetscErrorCode ierr
53: End Subroutine
54: End Interface
56: Interface DMCompositeGetAccess
57: Subroutine DMCompositeGetAccessvpvp(dm, v,d1,d2,d3,d4,ierr)
58: DM dm
59: Vec v,d1,d3
60: PetscScalar,pointer :: d2(:)
61: PetscScalar,pointer :: d4(:)
62: PetscErrorCode ierr
63: End Subroutine
64: End Interface
66: Interface DMCompositeRestoreAccess
67: Subroutine DMCompositeRestoreAccessvpvp(dm, v,d1,d2,d3,d4,ierr)
68: DM dm
69: Vec v,d1,d3
70: PetscScalar,pointer :: d2(:)
71: PetscScalar,pointer :: d4(:)
72: PetscErrorCode ierr
73: End Subroutine
74: End Interface
76: Interface DAVecGetArrayF90
77: Subroutine DAVecGetArrayF901(Da, v,d1,ierr)
78: DA da
79: Vec v
80: PetscScalar,pointer :: d1(:)
81: PetscErrorCode ierr
82: End Subroutine
83: End Interface DAVecGetArrayF90
85: Interface DAVecRestoreArrayF90
86: Subroutine DAVecRestoreArrayF901(da, v,d1,ierr)
87: DA da
88: Vec v
89: PetscScalar,pointer :: d1(:)
90: PetscErrorCode ierr
91: End Subroutine
92: End Interface DAVecRestoreArrayF90
94: #endif
95: !
96: ! End of DA Fortran 90 include file for the PETSc package
97: !