Actual source code: petscvec.h90
1: !
2: ! $Id: petscvec.h90,v 1.5 2001/08/07 03:05:33 balay Exp $;
3: !
4: ! Additional Vec include file for use of PETSc with Fortran 90/HPF
5: !
6: Interface
7: Subroutine VecGetArrayF90(v,array,ierr)
8: PetscScalar, pointer :: array(:)
9: integer ierr
10: Vec v
11: End Subroutine
12: End Interface
14: Interface
15: Subroutine VecRestoreArrayF90(v,array,ierr)
16: PetscScalar, pointer :: array(:)
17: integer ierr
18: Vec v
19: End Subroutine
20: End Interface
22: ! -------------------------------------------------------------
24: Interface
25: Subroutine VecDuplicateVecsF90(v,m,vs,ierr)
26: Vec, pointer :: vs(:)
27: integer ierr,m
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 ierr,m
40: End Subroutine
41: End Interface
43: !
44: ! End of Vec Fortran 90 include file for the PETSc package
45: !