fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
mlprec/impl/level/mld_d_base_onelev_cseti.F90
 mlprec/impl/level/mld_d_base_onelev_seti.F90
 mlprec/impl/level/mld_s_base_onelev_cseti.F90
 mlprec/impl/level/mld_s_base_onelev_seti.F90
 mlprec/impl/level/mld_z_base_onelev_cseti.F90
 mlprec/impl/level/mld_z_base_onelev_seti.F90

Fixes for merged changes from smoother-2SIDE
stopcriterion
Salvatore Filippone 9 years ago
parent 0a799f51d8
commit 931c337d09
8 changed files with 0 additions and 48 deletions
Show Stats Download Patch File Download Diff File

11
mlprec/impl/level/mld_c_base_onelev_cseti.F90
Unescape Escape View File

@ -46,9 +46,6 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
use mld_c_ilu_solver use mld_c_ilu_solver
use mld_c_id_solver use mld_c_id_solver
use mld_c_gs_solver use mld_c_gs_solver
#if defined(HAVE_UMF_)
use mld_c_umf_solver
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
use mld_c_sludist_solver use mld_c_sludist_solver
#endif #endif
@ -78,9 +75,6 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
type(mld_c_id_solver_type) :: mld_c_id_solver_mold type(mld_c_id_solver_type) :: mld_c_id_solver_mold
type(mld_c_gs_solver_type) :: mld_c_gs_solver_mold type(mld_c_gs_solver_type) :: mld_c_gs_solver_mold
type(mld_c_bwgs_solver_type) :: mld_c_bwgs_solver_mold type(mld_c_bwgs_solver_type) :: mld_c_bwgs_solver_mold
#if defined(HAVE_UMF_)
type(mld_c_umf_solver_type) :: mld_c_umf_solver_mold
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold
#endif #endif
@ -172,11 +166,6 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_c_mumps_solver_mold,info,pos=pos) call lv%set(mld_c_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_c_umf_solver_mold,info,pos=pos)
#endif
case default case default
! !
! Do nothing and hope for the best :) ! Do nothing and hope for the best :)

11
mlprec/impl/level/mld_c_base_onelev_seti.F90
Unescape Escape View File

@ -46,9 +46,6 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
use mld_c_ilu_solver use mld_c_ilu_solver
use mld_c_id_solver use mld_c_id_solver
use mld_c_gs_solver use mld_c_gs_solver
#if defined(HAVE_UMF_)
use mld_c_umf_solver
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
use mld_c_sludist_solver use mld_c_sludist_solver
#endif #endif
@ -78,9 +75,6 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
type(mld_c_id_solver_type) :: mld_c_id_solver_mold type(mld_c_id_solver_type) :: mld_c_id_solver_mold
type(mld_c_gs_solver_type) :: mld_c_gs_solver_mold type(mld_c_gs_solver_type) :: mld_c_gs_solver_mold
type(mld_c_bwgs_solver_type) :: mld_c_bwgs_solver_mold type(mld_c_bwgs_solver_type) :: mld_c_bwgs_solver_mold
#if defined(HAVE_UMF_)
type(mld_c_umf_solver_type) :: mld_c_umf_solver_mold
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold
#endif #endif
@ -172,11 +166,6 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_c_mumps_solver_mold,info,pos=pos) call lv%set(mld_c_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_c_umf_solver_mold,info,pos=pos)
#endif
case default case default
! !
! Do nothing and hope for the best :) ! Do nothing and hope for the best :)

1
mlprec/impl/level/mld_d_base_onelev_cseti.F90
Unescape Escape View File

@ -172,7 +172,6 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_d_mumps_solver_mold,info,pos=pos) call lv%set(mld_d_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_ #ifdef HAVE_UMF_
case (mld_umf_) case (mld_umf_)
call lv%set(mld_d_umf_solver_mold,info,pos=pos) call lv%set(mld_d_umf_solver_mold,info,pos=pos)

1
mlprec/impl/level/mld_d_base_onelev_seti.F90
Unescape Escape View File

@ -172,7 +172,6 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_d_mumps_solver_mold,info,pos=pos) call lv%set(mld_d_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_ #ifdef HAVE_UMF_
case (mld_umf_) case (mld_umf_)
call lv%set(mld_d_umf_solver_mold,info,pos=pos) call lv%set(mld_d_umf_solver_mold,info,pos=pos)

11
mlprec/impl/level/mld_s_base_onelev_cseti.F90
Unescape Escape View File

@ -46,9 +46,6 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
use mld_s_ilu_solver use mld_s_ilu_solver
use mld_s_id_solver use mld_s_id_solver
use mld_s_gs_solver use mld_s_gs_solver
#if defined(HAVE_UMF_)
use mld_s_umf_solver
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
use mld_s_sludist_solver use mld_s_sludist_solver
#endif #endif
@ -78,9 +75,6 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
type(mld_s_id_solver_type) :: mld_s_id_solver_mold type(mld_s_id_solver_type) :: mld_s_id_solver_mold
type(mld_s_gs_solver_type) :: mld_s_gs_solver_mold type(mld_s_gs_solver_type) :: mld_s_gs_solver_mold
type(mld_s_bwgs_solver_type) :: mld_s_bwgs_solver_mold type(mld_s_bwgs_solver_type) :: mld_s_bwgs_solver_mold
#if defined(HAVE_UMF_)
type(mld_s_umf_solver_type) :: mld_s_umf_solver_mold
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold
#endif #endif
@ -172,11 +166,6 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_s_mumps_solver_mold,info,pos=pos) call lv%set(mld_s_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_s_umf_solver_mold,info,pos=pos)
#endif
case default case default
! !
! Do nothing and hope for the best :) ! Do nothing and hope for the best :)

11
mlprec/impl/level/mld_s_base_onelev_seti.F90
Unescape Escape View File

@ -46,9 +46,6 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
use mld_s_ilu_solver use mld_s_ilu_solver
use mld_s_id_solver use mld_s_id_solver
use mld_s_gs_solver use mld_s_gs_solver
#if defined(HAVE_UMF_)
use mld_s_umf_solver
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
use mld_s_sludist_solver use mld_s_sludist_solver
#endif #endif
@ -78,9 +75,6 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
type(mld_s_id_solver_type) :: mld_s_id_solver_mold type(mld_s_id_solver_type) :: mld_s_id_solver_mold
type(mld_s_gs_solver_type) :: mld_s_gs_solver_mold type(mld_s_gs_solver_type) :: mld_s_gs_solver_mold
type(mld_s_bwgs_solver_type) :: mld_s_bwgs_solver_mold type(mld_s_bwgs_solver_type) :: mld_s_bwgs_solver_mold
#if defined(HAVE_UMF_)
type(mld_s_umf_solver_type) :: mld_s_umf_solver_mold
#endif
#if defined(HAVE_SLUDIST_) #if defined(HAVE_SLUDIST_)
type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold
#endif #endif
@ -172,11 +166,6 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_s_mumps_solver_mold,info,pos=pos) call lv%set(mld_s_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_s_umf_solver_mold,info,pos=pos)
#endif
case default case default
! !
! Do nothing and hope for the best :) ! Do nothing and hope for the best :)

1
mlprec/impl/level/mld_z_base_onelev_cseti.F90
Unescape Escape View File

@ -172,7 +172,6 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_z_mumps_solver_mold,info,pos=pos) call lv%set(mld_z_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_ #ifdef HAVE_UMF_
case (mld_umf_) case (mld_umf_)
call lv%set(mld_z_umf_solver_mold,info,pos=pos) call lv%set(mld_z_umf_solver_mold,info,pos=pos)

1
mlprec/impl/level/mld_z_base_onelev_seti.F90
Unescape Escape View File

@ -172,7 +172,6 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_) case (mld_mumps_)
call lv%set(mld_z_mumps_solver_mold,info,pos=pos) call lv%set(mld_z_mumps_solver_mold,info,pos=pos)
#endif #endif
#ifdef HAVE_UMF_ #ifdef HAVE_UMF_
case (mld_umf_) case (mld_umf_)
call lv%set(mld_z_umf_solver_mold,info,pos=pos) call lv%set(mld_z_umf_solver_mold,info,pos=pos)

Write Preview
Loading…
Cancel
Save