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