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