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/mld_base_prec_type.F90
 mlprec/mld_c_base_solver_mod.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_c_slu_solver.f90
 mlprec/mld_c_sludist_solver.f90
 mlprec/mld_c_umf_solver.f90
 mlprec/mld_d_base_solver_mod.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_d_slu_solver.f90
 mlprec/mld_d_sludist_solver.f90
 mlprec/mld_d_umf_solver.f90
 mlprec/mld_s_base_solver_mod.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_s_slu_solver.f90
 mlprec/mld_s_sludist_solver.f90
 mlprec/mld_s_umf_solver.f90
 mlprec/mld_z_base_solver_mod.f90
 mlprec/mld_z_prec_type.f90
 mlprec/mld_z_slu_solver.f90
 mlprec/mld_z_sludist_solver.f90
 mlprec/mld_z_umf_solver.f90

fine-tuning of USEd variables.
stopcriterion
Salvatore Filippone 13 years ago
parent 69389c5604
commit c391987bcd
21 changed files with 62 additions and 185 deletions
Show Stats Download Patch File Download Diff File

7
mlprec/mld_base_prec_type.F90
Unescape Escape View File

@ -70,7 +70,12 @@ module mld_base_prec_type
& psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, & & psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, &
& psb_nohalo_, psb_square_root_, psb_toupper, psb_root_,& & psb_nohalo_, psb_square_root_, psb_toupper, psb_root_,&
& psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,&
& psb_cd_get_context, psb_info & psb_cd_get_context, psb_info, psb_min, psb_sum, &
& psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
& psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
& psb_err_missing_override_method_
! !
! Version numbers ! Version numbers
! !

7
mlprec/mld_c_base_solver_mod.f90
Unescape Escape View File

@ -54,11 +54,8 @@
module mld_c_base_solver_mod module mld_c_base_solver_mod
use mld_base_prec_type use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_long_int_k_, & use psb_base_mod, only : psb_cspmat_type, &
& psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
& psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
& psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, psb_spk_
! !
! !
! Type: mld_T_base_solver_type. ! Type: mld_T_base_solver_type.

14
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -207,7 +207,7 @@ contains
end function mld_c_get_compl end function mld_c_get_compl
subroutine mld_c_cmp_compl(prec) subroutine mld_c_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none implicit none
class(mld_cprec_type), intent(inout) :: prec class(mld_cprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
! !
subroutine mld_cprec_free(p,info) subroutine mld_cprec_free(p,info)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods. ! Top level methods.
! !
subroutine mld_c_apply2_vect(prec,x,y,desc_data,info,trans,work) subroutine mld_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(inout) :: prec class(mld_cprec_type), intent(inout) :: prec
type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_c_apply2_vect end subroutine mld_c_apply2_vect
subroutine mld_c_apply1_vect(prec,x,desc_data,info,trans,work) subroutine mld_c_apply1_vect(prec,x,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(inout) :: prec class(mld_cprec_type), intent(inout) :: prec
type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: x
@ -476,7 +474,7 @@ contains
subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_c_apply2v end subroutine mld_c_apply2v
subroutine mld_c_apply1v(prec,x,desc_data,info,trans) subroutine mld_c_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -547,7 +545,7 @@ contains
subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
use psb_base_mod
implicit none implicit none
class(mld_cprec_type), intent(in) :: prec class(mld_cprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info

13
mlprec/mld_c_slu_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_slu_solver_type), intent(in) :: sv class(mld_c_slu_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -271,8 +272,6 @@ contains
subroutine c_slu_solver_seti(sv,what,val,info) subroutine c_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -306,8 +305,6 @@ contains
subroutine c_slu_solver_setc(sv,what,val,info) subroutine c_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -344,8 +341,6 @@ contains
subroutine c_slu_solver_setr(sv,what,val,info) subroutine c_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -380,8 +375,6 @@ contains
subroutine c_slu_solver_free(sv,info) subroutine c_slu_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -413,8 +406,6 @@ contains
subroutine c_slu_solver_descr(sv,info,iout,coarse) subroutine c_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -452,7 +443,7 @@ contains
end subroutine c_slu_solver_descr end subroutine c_slu_solver_descr
function c_slu_solver_sizeof(sv) result(val) function c_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_slu_solver_type), intent(in) :: sv class(mld_c_slu_solver_type), intent(in) :: sv

13
mlprec/mld_c_sludist_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine c_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_sludist_solver_type), intent(in) :: sv class(mld_c_sludist_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -275,8 +276,6 @@ contains
subroutine c_sludist_solver_seti(sv,what,val,info) subroutine c_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -310,8 +309,6 @@ contains
subroutine c_sludist_solver_setc(sv,what,val,info) subroutine c_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -348,8 +345,6 @@ contains
subroutine c_sludist_solver_setr(sv,what,val,info) subroutine c_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -384,8 +379,6 @@ contains
subroutine c_sludist_solver_free(sv,info) subroutine c_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -417,8 +410,6 @@ contains
subroutine c_sludist_solver_descr(sv,info,iout,coarse) subroutine c_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -456,7 +447,7 @@ contains
end subroutine c_sludist_solver_descr end subroutine c_sludist_solver_descr
function c_sludist_solver_sizeof(sv) result(val) function c_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_sludist_solver_type), intent(in) :: sv class(mld_c_sludist_solver_type), intent(in) :: sv

13
mlprec/mld_c_umf_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine c_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine c_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_umf_solver_type), intent(in) :: sv class(mld_c_umf_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
@ -272,8 +273,6 @@ contains
subroutine c_umf_solver_seti(sv,what,val,info) subroutine c_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -307,8 +306,6 @@ contains
subroutine c_umf_solver_setc(sv,what,val,info) subroutine c_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -345,8 +342,6 @@ contains
subroutine c_umf_solver_setr(sv,what,val,info) subroutine c_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -381,8 +376,6 @@ contains
subroutine c_umf_solver_free(sv,info) subroutine c_umf_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -416,8 +409,6 @@ contains
subroutine c_umf_solver_descr(sv,info,iout,coarse) subroutine c_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -455,7 +446,7 @@ contains
end subroutine c_umf_solver_descr end subroutine c_umf_solver_descr
function c_umf_solver_sizeof(sv) result(val) function c_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_c_umf_solver_type), intent(in) :: sv class(mld_c_umf_solver_type), intent(in) :: sv

7
mlprec/mld_d_base_solver_mod.f90
Unescape Escape View File

@ -54,11 +54,8 @@
module mld_d_base_solver_mod module mld_d_base_solver_mod
use mld_base_prec_type use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_long_int_k_, & use psb_base_mod, only : psb_dspmat_type, &
& psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
& psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
& psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, psb_dpk_
! !
! !
! Type: mld_T_base_solver_type. ! Type: mld_T_base_solver_type.

14
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -207,7 +207,7 @@ contains
end function mld_d_get_compl end function mld_d_get_compl
subroutine mld_d_cmp_compl(prec) subroutine mld_d_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none implicit none
class(mld_dprec_type), intent(inout) :: prec class(mld_dprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
! !
subroutine mld_dprec_free(p,info) subroutine mld_dprec_free(p,info)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods. ! Top level methods.
! !
subroutine mld_d_apply2_vect(prec,x,y,desc_data,info,trans,work) subroutine mld_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(inout) :: prec class(mld_dprec_type), intent(inout) :: prec
type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_d_apply2_vect end subroutine mld_d_apply2_vect
subroutine mld_d_apply1_vect(prec,x,desc_data,info,trans,work) subroutine mld_d_apply1_vect(prec,x,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(inout) :: prec class(mld_dprec_type), intent(inout) :: prec
type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: x
@ -476,7 +474,7 @@ contains
subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_d_apply2v end subroutine mld_d_apply2v
subroutine mld_d_apply1v(prec,x,desc_data,info,trans) subroutine mld_d_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -547,7 +545,7 @@ contains
subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
use psb_base_mod
implicit none implicit none
class(mld_dprec_type), intent(in) :: prec class(mld_dprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info

13
mlprec/mld_d_slu_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_slu_solver_type), intent(in) :: sv class(mld_d_slu_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -269,8 +270,6 @@ contains
subroutine d_slu_solver_seti(sv,what,val,info) subroutine d_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -304,8 +303,6 @@ contains
subroutine d_slu_solver_setc(sv,what,val,info) subroutine d_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -342,8 +339,6 @@ contains
subroutine d_slu_solver_setr(sv,what,val,info) subroutine d_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -378,8 +373,6 @@ contains
subroutine d_slu_solver_free(sv,info) subroutine d_slu_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -411,8 +404,6 @@ contains
subroutine d_slu_solver_descr(sv,info,iout,coarse) subroutine d_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -450,7 +441,7 @@ contains
end subroutine d_slu_solver_descr end subroutine d_slu_solver_descr
function d_slu_solver_sizeof(sv) result(val) function d_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_slu_solver_type), intent(in) :: sv class(mld_d_slu_solver_type), intent(in) :: sv

13
mlprec/mld_d_sludist_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_sludist_solver_type), intent(in) :: sv class(mld_d_sludist_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -273,8 +274,6 @@ contains
subroutine d_sludist_solver_seti(sv,what,val,info) subroutine d_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -308,8 +307,6 @@ contains
subroutine d_sludist_solver_setc(sv,what,val,info) subroutine d_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -346,8 +343,6 @@ contains
subroutine d_sludist_solver_setr(sv,what,val,info) subroutine d_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -382,8 +377,6 @@ contains
subroutine d_sludist_solver_free(sv,info) subroutine d_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -415,8 +408,6 @@ contains
subroutine d_sludist_solver_descr(sv,info,iout,coarse) subroutine d_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -454,7 +445,7 @@ contains
end subroutine d_sludist_solver_descr end subroutine d_sludist_solver_descr
function d_sludist_solver_sizeof(sv) result(val) function d_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_sludist_solver_type), intent(in) :: sv class(mld_d_sludist_solver_type), intent(in) :: sv

13
mlprec/mld_d_umf_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_umf_solver_type), intent(in) :: sv class(mld_d_umf_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
@ -270,8 +271,6 @@ contains
subroutine d_umf_solver_seti(sv,what,val,info) subroutine d_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -305,8 +304,6 @@ contains
subroutine d_umf_solver_setc(sv,what,val,info) subroutine d_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -343,8 +340,6 @@ contains
subroutine d_umf_solver_setr(sv,what,val,info) subroutine d_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -379,8 +374,6 @@ contains
subroutine d_umf_solver_free(sv,info) subroutine d_umf_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -414,8 +407,6 @@ contains
subroutine d_umf_solver_descr(sv,info,iout,coarse) subroutine d_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -453,7 +444,7 @@ contains
end subroutine d_umf_solver_descr end subroutine d_umf_solver_descr
function d_umf_solver_sizeof(sv) result(val) function d_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_d_umf_solver_type), intent(in) :: sv class(mld_d_umf_solver_type), intent(in) :: sv

7
mlprec/mld_s_base_solver_mod.f90
Unescape Escape View File

@ -54,11 +54,8 @@
module mld_s_base_solver_mod module mld_s_base_solver_mod
use mld_base_prec_type use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_long_int_k_, & use psb_base_mod, only : psb_sspmat_type, &
& psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
& psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
& psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, psb_spk_
! !
! !
! Type: mld_T_base_solver_type. ! Type: mld_T_base_solver_type.

14
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -207,7 +207,7 @@ contains
end function mld_s_get_compl end function mld_s_get_compl
subroutine mld_s_cmp_compl(prec) subroutine mld_s_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none implicit none
class(mld_sprec_type), intent(inout) :: prec class(mld_sprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
! !
subroutine mld_sprec_free(p,info) subroutine mld_sprec_free(p,info)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods. ! Top level methods.
! !
subroutine mld_s_apply2_vect(prec,x,y,desc_data,info,trans,work) subroutine mld_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(inout) :: prec class(mld_sprec_type), intent(inout) :: prec
type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_s_apply2_vect end subroutine mld_s_apply2_vect
subroutine mld_s_apply1_vect(prec,x,desc_data,info,trans,work) subroutine mld_s_apply1_vect(prec,x,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(inout) :: prec class(mld_sprec_type), intent(inout) :: prec
type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: x
@ -476,7 +474,7 @@ contains
subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_s_apply2v end subroutine mld_s_apply2v
subroutine mld_s_apply1v(prec,x,desc_data,info,trans) subroutine mld_s_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -547,7 +545,7 @@ contains
subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
use psb_base_mod
implicit none implicit none
class(mld_sprec_type), intent(in) :: prec class(mld_sprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info

13
mlprec/mld_s_slu_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_slu_solver_type), intent(in) :: sv class(mld_s_slu_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -269,8 +270,6 @@ contains
subroutine s_slu_solver_seti(sv,what,val,info) subroutine s_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -304,8 +303,6 @@ contains
subroutine s_slu_solver_setc(sv,what,val,info) subroutine s_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -342,8 +339,6 @@ contains
subroutine s_slu_solver_setr(sv,what,val,info) subroutine s_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -378,8 +373,6 @@ contains
subroutine s_slu_solver_free(sv,info) subroutine s_slu_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -411,8 +404,6 @@ contains
subroutine s_slu_solver_descr(sv,info,iout,coarse) subroutine s_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -450,7 +441,7 @@ contains
end subroutine s_slu_solver_descr end subroutine s_slu_solver_descr
function s_slu_solver_sizeof(sv) result(val) function s_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_slu_solver_type), intent(in) :: sv class(mld_s_slu_solver_type), intent(in) :: sv

13
mlprec/mld_s_sludist_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine s_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_sludist_solver_type), intent(in) :: sv class(mld_s_sludist_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -273,8 +274,6 @@ contains
subroutine s_sludist_solver_seti(sv,what,val,info) subroutine s_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -308,8 +307,6 @@ contains
subroutine s_sludist_solver_setc(sv,what,val,info) subroutine s_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -346,8 +343,6 @@ contains
subroutine s_sludist_solver_setr(sv,what,val,info) subroutine s_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -382,8 +377,6 @@ contains
subroutine s_sludist_solver_free(sv,info) subroutine s_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -415,8 +408,6 @@ contains
subroutine s_sludist_solver_descr(sv,info,iout,coarse) subroutine s_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -454,7 +445,7 @@ contains
end subroutine s_sludist_solver_descr end subroutine s_sludist_solver_descr
function s_sludist_solver_sizeof(sv) result(val) function s_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_sludist_solver_type), intent(in) :: sv class(mld_s_sludist_solver_type), intent(in) :: sv

13
mlprec/mld_s_umf_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine s_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine s_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_umf_solver_type), intent(in) :: sv class(mld_s_umf_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
@ -270,8 +271,6 @@ contains
subroutine s_umf_solver_seti(sv,what,val,info) subroutine s_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -305,8 +304,6 @@ contains
subroutine s_umf_solver_setc(sv,what,val,info) subroutine s_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -343,8 +340,6 @@ contains
subroutine s_umf_solver_setr(sv,what,val,info) subroutine s_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -379,8 +374,6 @@ contains
subroutine s_umf_solver_free(sv,info) subroutine s_umf_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -414,8 +407,6 @@ contains
subroutine s_umf_solver_descr(sv,info,iout,coarse) subroutine s_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -453,7 +444,7 @@ contains
end subroutine s_umf_solver_descr end subroutine s_umf_solver_descr
function s_umf_solver_sizeof(sv) result(val) function s_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_s_umf_solver_type), intent(in) :: sv class(mld_s_umf_solver_type), intent(in) :: sv

7
mlprec/mld_z_base_solver_mod.f90
Unescape Escape View File

@ -54,11 +54,8 @@
module mld_z_base_solver_mod module mld_z_base_solver_mod
use mld_base_prec_type use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_long_int_k_, & use psb_base_mod, only : psb_zspmat_type, &
& psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
& psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
& psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, psb_dpk_
! !
! !
! Type: mld_T_base_solver_type. ! Type: mld_T_base_solver_type.

14
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -207,7 +207,7 @@ contains
end function mld_z_get_compl end function mld_z_get_compl
subroutine mld_z_cmp_compl(prec) subroutine mld_z_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none implicit none
class(mld_zprec_type), intent(inout) :: prec class(mld_zprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
! !
subroutine mld_zprec_free(p,info) subroutine mld_zprec_free(p,info)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods. ! Top level methods.
! !
subroutine mld_z_apply2_vect(prec,x,y,desc_data,info,trans,work) subroutine mld_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(inout) :: prec class(mld_zprec_type), intent(inout) :: prec
type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_z_apply2_vect end subroutine mld_z_apply2_vect
subroutine mld_z_apply1_vect(prec,x,desc_data,info,trans,work) subroutine mld_z_apply1_vect(prec,x,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(inout) :: prec class(mld_zprec_type), intent(inout) :: prec
type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: x
@ -476,7 +474,7 @@ contains
subroutine mld_z_apply2v(prec,x,y,desc_data,info,trans,work) subroutine mld_z_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(in) :: prec class(mld_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_z_apply2v end subroutine mld_z_apply2v
subroutine mld_z_apply1v(prec,x,desc_data,info,trans) subroutine mld_z_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod implicit none
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(in) :: prec class(mld_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
@ -547,7 +545,7 @@ contains
subroutine mld_z_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) subroutine mld_z_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
use psb_base_mod
implicit none implicit none
class(mld_zprec_type), intent(in) :: prec class(mld_zprec_type), intent(in) :: prec
integer, intent(out) :: info integer, intent(out) :: info

13
mlprec/mld_z_slu_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine z_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine z_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_z_slu_solver_type), intent(in) :: sv class(mld_z_slu_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
@ -271,8 +272,6 @@ contains
subroutine z_slu_solver_seti(sv,what,val,info) subroutine z_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -306,8 +305,6 @@ contains
subroutine z_slu_solver_setc(sv,what,val,info) subroutine z_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -344,8 +341,6 @@ contains
subroutine z_slu_solver_setr(sv,what,val,info) subroutine z_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -380,8 +375,6 @@ contains
subroutine z_slu_solver_free(sv,info) subroutine z_slu_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -413,8 +406,6 @@ contains
subroutine z_slu_solver_descr(sv,info,iout,coarse) subroutine z_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -452,7 +443,7 @@ contains
end subroutine z_slu_solver_descr end subroutine z_slu_solver_descr
function z_slu_solver_sizeof(sv) result(val) function z_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_z_slu_solver_type), intent(in) :: sv class(mld_z_slu_solver_type), intent(in) :: sv

13
mlprec/mld_z_sludist_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine z_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine z_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_z_sludist_solver_type), intent(in) :: sv class(mld_z_sludist_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
@ -275,8 +276,6 @@ contains
subroutine z_sludist_solver_seti(sv,what,val,info) subroutine z_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -310,8 +309,6 @@ contains
subroutine z_sludist_solver_setc(sv,what,val,info) subroutine z_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -348,8 +345,6 @@ contains
subroutine z_sludist_solver_setr(sv,what,val,info) subroutine z_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -384,8 +379,6 @@ contains
subroutine z_sludist_solver_free(sv,info) subroutine z_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -417,8 +410,6 @@ contains
subroutine z_sludist_solver_descr(sv,info,iout,coarse) subroutine z_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -456,7 +447,7 @@ contains
end subroutine z_sludist_solver_descr end subroutine z_sludist_solver_descr
function z_sludist_solver_sizeof(sv) result(val) function z_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_z_sludist_solver_type), intent(in) :: sv class(mld_z_sludist_solver_type), intent(in) :: sv

13
mlprec/mld_z_umf_solver.f90
Unescape Escape View File

@ -107,6 +107,7 @@ contains
subroutine z_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) subroutine z_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
use psb_base_mod use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_z_umf_solver_type), intent(in) :: sv class(mld_z_umf_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
@ -272,8 +273,6 @@ contains
subroutine z_umf_solver_seti(sv,what,val,info) subroutine z_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -307,8 +306,6 @@ contains
subroutine z_umf_solver_setc(sv,what,val,info) subroutine z_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -345,8 +342,6 @@ contains
subroutine z_umf_solver_setr(sv,what,val,info) subroutine z_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -381,8 +376,6 @@ contains
subroutine z_umf_solver_free(sv,info) subroutine z_umf_solver_free(sv,info)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -416,8 +409,6 @@ contains
subroutine z_umf_solver_descr(sv,info,iout,coarse) subroutine z_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None Implicit None
! Arguments ! Arguments
@ -455,7 +446,7 @@ contains
end subroutine z_umf_solver_descr end subroutine z_umf_solver_descr
function z_umf_solver_sizeof(sv) result(val) function z_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none implicit none
! Arguments ! Arguments
class(mld_z_umf_solver_type), intent(in) :: sv class(mld_z_umf_solver_type), intent(in) :: sv

Write Preview
Loading…
Cancel
Save