Actual source code: petscda.h90

      1: !
      2: !
      3: !  Additional DA include file for use of PETSc with Fortran 90/HPF
      4: !

      6:       Interface
      7:         Subroutine DAGetGlobalIndicesF90(v,n,array,ierr)
      8:           integer, pointer :: array(:)
      9:           integer  n
     10:           PetscErrorCode ierr
     11:           DA       v
     12:         End Subroutine
     13:       End Interface

     15: !
     16: !     End of DA Fortran 90 include file for the PETSc package
     17: !