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