Actual source code: petscmat.h90

  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: !