1: ! 2: ! $Id: petscmat.h90,v 1.4 2001/08/07 03:05:33 balay Exp $; 3: ! 4: ! Additional Mat include file for use of PETSc with Fortran 90/HPF 5: ! 7: Interface 8: Subroutine MatGetArrayF90(v,array,ierr) 9: PetscScalar, pointer :: array(:,:) 10: integer ierr 11: Mat v 12: End Subroutine 13: End Interface 16: Interface 17: Subroutine MatRestoreArrayF90(v,array,ierr) 18: PetscScalar, pointer :: array(:,:) 19: integer ierr 20: Mat v 21: End Subroutine 22: End Interface 24: ! 25: ! End of Mat Fortran 90 include file for the PETSc package 26: !