Actual source code: daindexf90.F

  1: #include "petscconf.h"
  2: #if defined(PETSC_HAVE_F90_H)
  3:       subroutine dummy_DAGetGlobalIndicesF90()
  4:       return
  5:       end subroutine

  7: #else
  8:       Subroutine DAGetGlobalIndicesF90(v,n,array,ierr)
  9:       implicit none
 10: #include "include/finclude/petsc.h"
 11: #include "include/finclude/petscda.h"
 12:       PetscInt, pointer :: array(:)
 13:       PetscInt  n
 14:       PetscErrorCode ierr
 15:       DA       v

 17:       PetscInt,dimension(1),target :: v_local
 18:       PetscOffset offset

 20:       call DAGetGlobalIndices(v,n,v_local,offset,ierr)
 21:       array=>v_local(offset+1:)
 22:       return
 23:       end subroutine
 24: #endif