1: ! 2: ! 3: ! Additional Mat include file for use of PETSc with Fortran 90/HPF 4: ! 6: #if !defined (PETSC_AVOID_DECLARATIONS) 8: Interface 9: Subroutine MatGetArrayF90(v,array,ierr) 10: PetscScalar, pointer :: array(:,:) 11: PetscErrorCode ierr 12: Mat v 13: End Subroutine 14: End Interface 17: Interface 18: Subroutine MatRestoreArrayF90(v,array,ierr) 19: PetscScalar, pointer :: array(:,:) 20: PetscErrorCode ierr 21: Mat v 22: End Subroutine 23: End Interface 25: #endif 26: ! 27: ! End of Mat Fortran 90 include file for the PETSc package 28: !