102c639afSMartin Diehlinterface 202c639afSMartin Diehl subroutine PetscLayoutRestoreRanges(a, b, z) 3fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 46dd63270SBarry Smith import tPetscLayout 56dd63270SBarry Smith PetscLayout a 66dd63270SBarry Smith PetscInt, pointer :: b(:) 76dd63270SBarry Smith PetscErrorCode z 802c639afSMartin Diehl end subroutine 96dd63270SBarry Smith 1002c639afSMartin Diehl subroutine PetscSectionRestoreConstraintIndices(s, p, a, ierr) 11fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 126dd63270SBarry Smith import tPetscSection 136dd63270SBarry Smith PetscInt p 146dd63270SBarry Smith PetscInt, pointer :: a(:) 156dd63270SBarry Smith PetscErrorCode ierr 166dd63270SBarry Smith PetscSection s 1702c639afSMartin Diehl end subroutine 186dd63270SBarry Smith 1902c639afSMartin Diehl subroutine PetscSectionRestoreFieldConstraintIndices(s, p, f, a, ierr) 20fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 216dd63270SBarry Smith import tPetscSection 226dd63270SBarry Smith PetscSection :: s 236dd63270SBarry Smith PetscInt :: p 246dd63270SBarry Smith PetscInt :: f 256dd63270SBarry Smith PetscInt, pointer :: a(:) 266dd63270SBarry Smith PetscErrorCode :: ierr 2702c639afSMartin Diehl end subroutine 2802c639afSMartin Diehlend interface 29*3d1372b2SMartin Diehl 30*3d1372b2SMartin Diehl#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 31*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscLayoutRestoreRanges 32*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreConstraintIndices 33*3d1372b2SMartin Diehl!DEC$ ATTRIBUTES DLLEXPORT::PetscSectionRestoreFieldConstraintIndices 34*3d1372b2SMartin Diehl#endif 35