Actual source code: petscda.h90

  1: !
  2: !
  3: !  Additional DA include file for use of PETSc with Fortran 90/HPF
  4: !

  6:       Interface
  7:         Subroutine DAGetGlobalIndicesF90(v,n,array,ierr)
  8:           PetscInt, pointer :: array(:)
  9:           PetscInt  n
 10:           PetscErrorCode ierr
 11:           DA       v
 12:         End Subroutine
 13:       End Interface


 16:       type DALocalInfof90
 17:         PetscInt ::       dim,dof,sw
 18:         PetscInt ::       mx,my,mz
 19:         PetscInt ::       xs,ys,zs
 20:         PetscInt ::       xm,ym,zm
 21:         PetscInt ::       gxs,gys,gzs
 22:         PetscInt ::       gxm,gym,gzm
 23:         DAPeriodicType :: pt
 24:         DAStencilType  :: st
 25:         DA ::             da
 26:       end type DALocalInfof90


 29:       Interface DMCompositeGetEntries
 30:         Subroutine DMCompositeGetEntries1(dm, d1,ierr)
 31:           DM  dm
 32:           PetscErrorCode ierr
 33:         End Subroutine

 35:         Subroutine DMCompositeGetEntries2(dm, d1,d2,ierr)
 36:           DM  dm
 37:           DM d1,d2
 38:           PetscErrorCode ierr
 39:         End Subroutine

 41:         Subroutine DMCompositeGetEntries3(dm, d1,d2,d3,ierr)
 42:           DM  dm
 43:           DM d1,d2,d3
 44:           PetscErrorCode ierr
 45:         End Subroutine

 47:         Subroutine DMCompositeGetEntries4(dm, d1,d2,d3,d4,ierr)
 48:           DM  dm
 49:           PetscInt d2,d4
 50:           DM d1,d3
 51:           PetscErrorCode ierr
 52:         End Subroutine
 53:       End Interface

 55:       Interface DMCompositeGetAccess
 56:         Subroutine DMCompositeGetAccessvpvp(dm, v,d1,d2,d3,d4,ierr)
 57:           DM  dm
 58:           Vec v,d1,d3
 59:           double precision,pointer :: d2(:),d4(:)
 60:           PetscErrorCode ierr
 61:         End Subroutine
 62:       End Interface

 64:       Interface DMCompositeRestoreAccess
 65:         Subroutine DMCompositeRestoreAccessvpvp(dm, v,d1,d2,d3,d4,ierr)
 66:           DM  dm
 67:           Vec v,d1,d3
 68:           double precision,pointer :: d2(:),d4(:)
 69:           PetscErrorCode ierr
 70:         End Subroutine
 71:       End Interface

 73:       Interface DAVecGetArrayF90
 74:         Subroutine DAVecGetArrayF901(Da, v,d1,ierr)
 75:           DA  da
 76:           Vec v
 77:           double precision,pointer :: d1(:)
 78:           PetscErrorCode ierr
 79:         End Subroutine
 80:       End Interface DAVecGetArrayF90

 82:       Interface DAVecRestoreArrayF90
 83:         Subroutine DAVecRestoreArrayF901(da, v,d1,ierr)
 84:           DA  da
 85:           Vec v
 86:           double precision,pointer :: d1(:)
 87:           PetscErrorCode ierr
 88:         End Subroutine
 89:       End Interface DAVecRestoreArrayF90

 91: !
 92: !     End of DA Fortran 90 include file for the PETSc package
 93: !