1: ! 2: ! 3: ! Additional Mat include file for use of PETSc with Fortran 90/HPF 4: ! 6: Interface 7: Subroutine MatGetArrayF90(v,array,ierr) 8: PetscScalar, pointer :: array(:,:) 9: PetscErrorCode ierr 10: Mat v 11: End Subroutine 12: End Interface 15: Interface 16: Subroutine MatRestoreArrayF90(v,array,ierr) 17: PetscScalar, pointer :: array(:,:) 18: PetscErrorCode ierr 19: Mat v 20: End Subroutine 21: End Interface 23: ! 24: ! End of Mat Fortran 90 include file for the PETSc package 25: !