16dd63270SBarry Smith 26dd63270SBarry Smith 36dd63270SBarry Smith Interface 46dd63270SBarry Smith subroutine KSPRestoreConvergenceHistory(ksp,r,na,ierr) 5fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 66dd63270SBarry Smith import tKSP 76dd63270SBarry Smith KSP ksp 86dd63270SBarry Smith PetscInt na 96dd63270SBarry Smith PetscReal, pointer :: r(:) 106dd63270SBarry Smith PetscErrorCode, intent(out) :: ierr 116dd63270SBarry Smith end subroutine 126dd63270SBarry Smith end Interface 136dd63270SBarry Smith 14*36083efbSBarry Smith interface 15*36083efbSBarry Smith subroutine PCBJacobiRestoreSubKSP(a,b,c,d, z) 16*36083efbSBarry Smith use, intrinsic :: ISO_C_binding 17*36083efbSBarry Smith import tPC,tKSP 18*36083efbSBarry Smith PC :: a 19*36083efbSBarry Smith PetscInt :: b 20*36083efbSBarry Smith PetscInt :: c 21*36083efbSBarry Smith KSP, pointer :: d(:) 22*36083efbSBarry Smith PetscErrorCode z 23*36083efbSBarry Smith end subroutine 24*36083efbSBarry Smith end interface 25*36083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 26*36083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCBJacobiRestoreSubKSP 27*36083efbSBarry Smith#endif 28*36083efbSBarry Smith 29*36083efbSBarry Smith interface 30*36083efbSBarry Smith subroutine PCASMRestoreSubKSP(a,b,c,d, z) 31*36083efbSBarry Smith use, intrinsic :: ISO_C_binding 32*36083efbSBarry Smith import tPC,tKSP 33*36083efbSBarry Smith PC :: a 34*36083efbSBarry Smith PetscInt :: b 35*36083efbSBarry Smith PetscInt :: c 36*36083efbSBarry Smith KSP, pointer :: d(:) 37*36083efbSBarry Smith PetscErrorCode z 38*36083efbSBarry Smith end subroutine 39*36083efbSBarry Smith end interface 40*36083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 41*36083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCASMRestoreSubKSP 42*36083efbSBarry Smith#endif 43*36083efbSBarry Smith 44*36083efbSBarry Smith interface 45*36083efbSBarry Smith subroutine PCGASMRestoreSubKSP(a,b,c,d, z) 46*36083efbSBarry Smith use, intrinsic :: ISO_C_binding 47*36083efbSBarry Smith import tPC,tKSP 48*36083efbSBarry Smith PC :: a 49*36083efbSBarry Smith PetscInt :: b 50*36083efbSBarry Smith PetscInt :: c 51*36083efbSBarry Smith KSP, pointer :: d(:) 52*36083efbSBarry Smith PetscErrorCode z 53*36083efbSBarry Smith end subroutine 54*36083efbSBarry Smith end interface 55*36083efbSBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 56*36083efbSBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::PCGASMRestoreSubKSP 57*36083efbSBarry Smith#endif 58*36083efbSBarry Smith 59