Actual source code: petscmat.h90

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