Actual source code: petscmat.h90

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