fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-19 04:12:11 +00:00
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
This commit is contained in:
Salvatore Filippone
2016-05-18 14:59:58 +00:00
parent 0a799f51d8
commit 931c337d09
8 changed files with 0 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/level/mld_c_base_onelev_cseti.F90
-11
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_id_solver
use mld_c_gs_solver
#if defined(HAVE_UMF_)
use mld_c_umf_solver
#endif
#if defined(HAVE_SLUDIST_)
use mld_c_sludist_solver
#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_gs_solver_type) :: mld_c_gs_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_)
type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold
#endif
@@ -172,11 +166,6 @@ subroutine mld_c_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_c_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_c_umf_solver_mold,info,pos=pos)
#endif
case default
!
! Do nothing and hope for the best :)
mlprec/impl/level/mld_c_base_onelev_seti.F90
-11
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_id_solver
use mld_c_gs_solver
#if defined(HAVE_UMF_)
use mld_c_umf_solver
#endif
#if defined(HAVE_SLUDIST_)
use mld_c_sludist_solver
#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_gs_solver_type) :: mld_c_gs_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_)
type(mld_c_sludist_solver_type) :: mld_c_sludist_solver_mold
#endif
@@ -172,11 +166,6 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_c_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_c_umf_solver_mold,info,pos=pos)
#endif
case default
!
! Do nothing and hope for the best :)
mlprec/impl/level/mld_d_base_onelev_cseti.F90
-1
View File
@@ -172,7 +172,6 @@ subroutine mld_d_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_d_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_d_umf_solver_mold,info,pos=pos)
mlprec/impl/level/mld_d_base_onelev_seti.F90
-1
View File
@@ -172,7 +172,6 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_d_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_d_umf_solver_mold,info,pos=pos)
mlprec/impl/level/mld_s_base_onelev_cseti.F90
-11
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_id_solver
use mld_s_gs_solver
#if defined(HAVE_UMF_)
use mld_s_umf_solver
#endif
#if defined(HAVE_SLUDIST_)
use mld_s_sludist_solver
#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_gs_solver_type) :: mld_s_gs_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_)
type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold
#endif
@@ -172,11 +166,6 @@ subroutine mld_s_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_s_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_s_umf_solver_mold,info,pos=pos)
#endif
case default
!
! Do nothing and hope for the best :)
mlprec/impl/level/mld_s_base_onelev_seti.F90
-11
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_id_solver
use mld_s_gs_solver
#if defined(HAVE_UMF_)
use mld_s_umf_solver
#endif
#if defined(HAVE_SLUDIST_)
use mld_s_sludist_solver
#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_gs_solver_type) :: mld_s_gs_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_)
type(mld_s_sludist_solver_type) :: mld_s_sludist_solver_mold
#endif
@@ -172,11 +166,6 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_s_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_s_umf_solver_mold,info,pos=pos)
#endif
case default
!
! Do nothing and hope for the best :)
mlprec/impl/level/mld_z_base_onelev_cseti.F90
-1
View File
@@ -172,7 +172,6 @@ subroutine mld_z_base_onelev_cseti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_z_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_z_umf_solver_mold,info,pos=pos)
mlprec/impl/level/mld_z_base_onelev_seti.F90
-1
View File
@@ -172,7 +172,6 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info,pos)
case (mld_mumps_)
call lv%set(mld_z_mumps_solver_mold,info,pos=pos)
#endif
#ifdef HAVE_UMF_
case (mld_umf_)
call lv%set(mld_z_umf_solver_mold,info,pos=pos)