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: !