16dd63270SBarry Smith#if defined(PETSC_HAVE_FORTRAN_TYPE_STAR) 26dd63270SBarry Smith Interface 36dd63270SBarry Smith subroutine PetscSFBcastBegin(sf,unit,rarray,larray,op,ierr) 46dd63270SBarry Smith import tPetscSF 56dd63270SBarry Smith PetscSF :: sf 66dd63270SBarry Smith PetscMPIInt :: unit,op 76dd63270SBarry Smith type(*) :: rarray(:) 86dd63270SBarry Smith type(*) :: larray(:) 96dd63270SBarry Smith PetscErrorCode :: ierr 106dd63270SBarry Smith end Subroutine PetscSFBcastBegin 116dd63270SBarry Smith 126dd63270SBarry Smith subroutine PetscSFBcastEnd(sf,unit,rarray,larray,op,ierr) 136dd63270SBarry Smith import tPetscSF 146dd63270SBarry Smith PetscSF :: sf 156dd63270SBarry Smith PetscMPIInt :: unit,op 166dd63270SBarry Smith type(*) :: rarray(:) 176dd63270SBarry Smith type(*) :: larray(:) 186dd63270SBarry Smith PetscErrorCode :: ierr 196dd63270SBarry Smith end Subroutine PetscSFBcastEnd 206dd63270SBarry Smith 216dd63270SBarry Smith subroutine PetscSFReduceBegin(sf,unit,larray,rarray,op,ierr) 226dd63270SBarry Smith import tPetscSF 236dd63270SBarry Smith PetscSF :: sf 246dd63270SBarry Smith PetscMPIInt :: unit,op 256dd63270SBarry Smith type(*) :: larray(:) 266dd63270SBarry Smith type(*) :: rarray(:) 276dd63270SBarry Smith PetscErrorCode :: ierr 286dd63270SBarry Smith end Subroutine PetscSFReduceBegin 296dd63270SBarry Smith 306dd63270SBarry Smith subroutine PetscSFReduceEnd(sf,unit,larray,rarray,op,ierr) 316dd63270SBarry Smith import tPetscSF 326dd63270SBarry Smith PetscSF :: sf 336dd63270SBarry Smith PetscMPIInt :: unit,op 346dd63270SBarry Smith type(*) :: larray(:) 356dd63270SBarry Smith type(*) :: rarray(:) 366dd63270SBarry Smith PetscErrorCode :: ierr 376dd63270SBarry Smith end Subroutine PetscSFReduceEnd 386dd63270SBarry Smith end Interface 396dd63270SBarry Smith#endif 406dd63270SBarry Smith 416dd63270SBarry Smith interface 426dd63270SBarry Smith subroutine VecRestoreOwnershipRanges(v, ptr, ierr) 436dd63270SBarry Smith import tVec 44*11105114SMartin Diehl Vec :: v 456dd63270SBarry Smith PetscInt, pointer :: ptr(:) 46*11105114SMartin Diehl PetscErrorCode, intent(out) :: ierr 476dd63270SBarry Smith end subroutine VecRestoreOwnershipRanges 486dd63270SBarry Smith 496dd63270SBarry Smith subroutine PetscSFRestoreGraph(sf,nroots,nleaves,ilocal,iremote,ierr) 506dd63270SBarry Smith import tPetscSF,sPetscSFNode 516dd63270SBarry Smith PetscSF :: sf 526dd63270SBarry Smith PetscInt :: nroots,nleaves 536dd63270SBarry Smith PetscInt, pointer :: ilocal(:) 546dd63270SBarry Smith type(sPetscSFNode), pointer :: iremote(:) 556dd63270SBarry Smith PetscErrorCode :: ierr 566dd63270SBarry Smith end Subroutine PetscSFRestoreGraph 576dd63270SBarry Smith 586dd63270SBarry Smith Subroutine VecRestoreValuesSection(v,s,p,va,ierr) 596dd63270SBarry Smith import tVec,tPetscSection 606dd63270SBarry Smith PetscScalar, pointer :: va(:) 616dd63270SBarry Smith PetscErrorCode ierr 626dd63270SBarry Smith Vec v 636dd63270SBarry Smith PetscSection s 646dd63270SBarry Smith PetscInt p 656dd63270SBarry Smith End Subroutine 666dd63270SBarry Smith End Interface 67