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