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