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_nohalo_, psb_square_root_, psb_toupper, psb_root_,&
& 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
!

7
mlprec/mld_c_base_solver_mod.f90
Unescape Escape View File

@ -54,11 +54,8 @@
module mld_c_base_solver_mod
use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_long_int_k_, &
& 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_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, psb_spk_
use psb_base_mod, only : psb_cspmat_type, &
& psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat
!
!
! 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
subroutine mld_c_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none
class(mld_cprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
!
subroutine mld_cprec_free(p,info)
use psb_base_mod
implicit none
! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods.
!
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
class(mld_cprec_type), intent(inout) :: prec
type(psb_c_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_c_apply2_vect
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
class(mld_cprec_type), intent(inout) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_c_apply2v
subroutine mld_c_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_cprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
class(mld_cprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_c_slu_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:)
@ -271,8 +272,6 @@ contains
subroutine c_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -306,8 +305,6 @@ contains
subroutine c_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -344,8 +341,6 @@ contains
subroutine c_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -380,8 +375,6 @@ contains
subroutine c_slu_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -413,8 +406,6 @@ contains
subroutine c_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -452,7 +443,7 @@ contains
end subroutine c_slu_solver_descr
function c_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_c_sludist_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:)
@ -275,8 +276,6 @@ contains
subroutine c_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -310,8 +309,6 @@ contains
subroutine c_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -348,8 +345,6 @@ contains
subroutine c_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -384,8 +379,6 @@ contains
subroutine c_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -417,8 +410,6 @@ contains
subroutine c_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -456,7 +447,7 @@ contains
end subroutine c_sludist_solver_descr
function c_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_c_umf_solver_type), intent(in) :: sv
complex(psb_spk_),intent(inout) :: x(:)
@ -272,8 +273,6 @@ contains
subroutine c_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -307,8 +306,6 @@ contains
subroutine c_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -345,8 +342,6 @@ contains
subroutine c_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -381,8 +376,6 @@ contains
subroutine c_umf_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -416,8 +409,6 @@ contains
subroutine c_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -455,7 +446,7 @@ contains
end subroutine c_umf_solver_descr
function c_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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
use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_long_int_k_, &
& 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_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, psb_dpk_
use psb_base_mod, only : psb_dspmat_type, &
& psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat
!
!
! 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
subroutine mld_d_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none
class(mld_dprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
!
subroutine mld_dprec_free(p,info)
use psb_base_mod
implicit none
! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods.
!
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
class(mld_dprec_type), intent(inout) :: prec
type(psb_d_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_d_apply2_vect
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
class(mld_dprec_type), intent(inout) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_d_apply2v
subroutine mld_d_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_dprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
class(mld_dprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_d_slu_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:)
@ -269,8 +270,6 @@ contains
subroutine d_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -304,8 +303,6 @@ contains
subroutine d_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -342,8 +339,6 @@ contains
subroutine d_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -378,8 +373,6 @@ contains
subroutine d_slu_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -411,8 +404,6 @@ contains
subroutine d_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -450,7 +441,7 @@ contains
end subroutine d_slu_solver_descr
function d_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_d_sludist_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:)
@ -273,8 +274,6 @@ contains
subroutine d_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -308,8 +307,6 @@ contains
subroutine d_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -346,8 +343,6 @@ contains
subroutine d_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -382,8 +377,6 @@ contains
subroutine d_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -415,8 +408,6 @@ contains
subroutine d_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -454,7 +445,7 @@ contains
end subroutine d_sludist_solver_descr
function d_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_d_umf_solver_type), intent(in) :: sv
real(psb_dpk_),intent(inout) :: x(:)
@ -270,8 +271,6 @@ contains
subroutine d_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -305,8 +304,6 @@ contains
subroutine d_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -343,8 +340,6 @@ contains
subroutine d_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -379,8 +374,6 @@ contains
subroutine d_umf_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -414,8 +407,6 @@ contains
subroutine d_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -453,7 +444,7 @@ contains
end subroutine d_umf_solver_descr
function d_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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
use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_long_int_k_, &
& 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_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, psb_spk_
use psb_base_mod, only : psb_sspmat_type, &
& psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat
!
!
! 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
subroutine mld_s_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none
class(mld_sprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
!
subroutine mld_sprec_free(p,info)
use psb_base_mod
implicit none
! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods.
!
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
class(mld_sprec_type), intent(inout) :: prec
type(psb_s_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_s_apply2_vect
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
class(mld_sprec_type), intent(inout) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_s_apply2v
subroutine mld_s_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_sprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
class(mld_sprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_s_slu_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:)
@ -269,8 +270,6 @@ contains
subroutine s_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -304,8 +303,6 @@ contains
subroutine s_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -342,8 +339,6 @@ contains
subroutine s_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -378,8 +373,6 @@ contains
subroutine s_slu_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -411,8 +404,6 @@ contains
subroutine s_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -450,7 +441,7 @@ contains
end subroutine s_slu_solver_descr
function s_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_s_sludist_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:)
@ -273,8 +274,6 @@ contains
subroutine s_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -308,8 +307,6 @@ contains
subroutine s_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -346,8 +343,6 @@ contains
subroutine s_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -382,8 +377,6 @@ contains
subroutine s_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -415,8 +408,6 @@ contains
subroutine s_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -454,7 +445,7 @@ contains
end subroutine s_sludist_solver_descr
function s_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_s_umf_solver_type), intent(in) :: sv
real(psb_spk_),intent(inout) :: x(:)
@ -270,8 +271,6 @@ contains
subroutine s_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -305,8 +304,6 @@ contains
subroutine s_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -343,8 +340,6 @@ contains
subroutine s_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -379,8 +374,6 @@ contains
subroutine s_umf_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -414,8 +407,6 @@ contains
subroutine s_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -453,7 +444,7 @@ contains
end subroutine s_umf_solver_descr
function s_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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
use mld_base_prec_type
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_long_int_k_, &
& 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_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, psb_dpk_
use psb_base_mod, only : psb_zspmat_type, &
& psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat
!
!
! 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
subroutine mld_z_cmp_compl(prec)
use psb_base_mod, only : psb_min, psb_sum
implicit none
class(mld_zprec_type), intent(inout) :: prec
@ -360,8 +360,6 @@ contains
!
subroutine mld_zprec_free(p,info)
use psb_base_mod
implicit none
! Arguments
@ -404,7 +402,7 @@ contains
! Top level methods.
!
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
class(mld_zprec_type), intent(inout) :: prec
type(psb_z_vect_type),intent(inout) :: x
@ -440,7 +438,7 @@ contains
end subroutine mld_z_apply2_vect
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
class(mld_zprec_type), intent(inout) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
@ -512,7 +510,7 @@ contains
end subroutine mld_z_apply2v
subroutine mld_z_apply1v(prec,x,desc_data,info,trans)
use psb_base_mod
implicit none
type(psb_desc_type),intent(in) :: desc_data
class(mld_zprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
class(mld_zprec_type), intent(in) :: prec
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_z_slu_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:)
@ -271,8 +272,6 @@ contains
subroutine z_slu_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -306,8 +305,6 @@ contains
subroutine z_slu_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -344,8 +341,6 @@ contains
subroutine z_slu_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -380,8 +375,6 @@ contains
subroutine z_slu_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -413,8 +406,6 @@ contains
subroutine z_slu_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -452,7 +443,7 @@ contains
end subroutine z_slu_solver_descr
function z_slu_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_z_sludist_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:)
@ -275,8 +276,6 @@ contains
subroutine z_sludist_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -310,8 +309,6 @@ contains
subroutine z_sludist_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -348,8 +345,6 @@ contains
subroutine z_sludist_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -384,8 +379,6 @@ contains
subroutine z_sludist_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -417,8 +410,6 @@ contains
subroutine z_sludist_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -456,7 +447,7 @@ contains
end subroutine z_sludist_solver_descr
function z_sludist_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
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)
use psb_base_mod
implicit none
type(psb_desc_type), intent(in) :: desc_data
class(mld_z_umf_solver_type), intent(in) :: sv
complex(psb_dpk_),intent(inout) :: x(:)
@ -272,8 +273,6 @@ contains
subroutine z_umf_solver_seti(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -307,8 +306,6 @@ contains
subroutine z_umf_solver_setc(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -345,8 +342,6 @@ contains
subroutine z_umf_solver_setr(sv,what,val,info)
use psb_base_mod
Implicit None
! Arguments
@ -381,8 +376,6 @@ contains
subroutine z_umf_solver_free(sv,info)
use psb_base_mod
Implicit None
! Arguments
@ -416,8 +409,6 @@ contains
subroutine z_umf_solver_descr(sv,info,iout,coarse)
use psb_base_mod
Implicit None
! Arguments
@ -455,7 +446,7 @@ contains
end subroutine z_umf_solver_descr
function z_umf_solver_sizeof(sv) result(val)
use psb_base_mod
implicit none
! Arguments
class(mld_z_umf_solver_type), intent(in) :: sv

Write Preview
Loading…
Cancel
Save