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: integer, pointer :: array(:) 9: integer n 10: PetscErrorCode ierr 11: DA v 12: End Subroutine 13: End Interface 15: ! 16: ! End of DA Fortran 90 include file for the PETSc package 17: !