Actual source code: petscvec.h90

  1: !
  2: !
  3: !  Additional Vec include file for use of PETSc with Fortran 90/HPF
  4: !
  5:       Interface
  6:         Subroutine VecGetArrayF90(v,array,ierr)
  7:           PetscScalar, pointer :: array(:)
  8:           PetscErrorCode ierr
  9:           Vec     v
 10:         End Subroutine
 11:       End Interface

 13:       Interface
 14:         Subroutine VecRestoreArrayF90(v,array,ierr)
 15:           PetscScalar, pointer :: array(:)
 16:           PetscErrorCode ierr
 17:           Vec     v
 18:         End Subroutine
 19:       End Interface

 21: ! -------------------------------------------------------------

 23:       Interface
 24:         Subroutine VecDuplicateVecsF90(v,m,vs,ierr)
 25:           Vec, pointer :: vs(:)
 26:           integer m
 27:           PetscErrorCode ierr
 28:           Vec     v
 29:         End Subroutine
 30:       End Interface
 31: !
 32: !  Question: should VecDestroyVecsF90() take the m argument since
 33: ! the array of vectors already knows how long it is? Yes, to
 34: ! match calling sequence for C/C++.
 35: !
 36:       Interface
 37:         Subroutine VecDestroyVecsF90(vs,m,ierr)
 38:           Vec, pointer :: vs(:)
 39:           integer m
 40:           PetscErrorCode ierr
 41:         End Subroutine
 42:       End Interface

 44: !
 45: !     End of Vec Fortran 90 include file for the PETSc package
 46: !