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/smoother/mld_z_base_smoother_apply.f90
    mlprec/impl/smoother/mld_s_base_smoother_bld.f90
    mlprec/impl/smoother/mld_z_base_smoother_setc.f90
    mlprec/impl/smoother/mld_z_base_smoother_seti.f90
    mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90
    mlprec/impl/smoother/mld_z_base_smoother_setr.f90
    mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90
    mlprec/impl/smoother/mld_c_base_smoother_dmp.f90
    mlprec/impl/smoother/mld_d_base_smoother_free.f90
    mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90
    mlprec/impl/smoother/mld_d_base_smoother_setc.f90
    mlprec/impl/smoother/mld_s_base_smoother_dmp.f90
    mlprec/impl/smoother/mld_d_base_smoother_bld.f90
    mlprec/impl/smoother/mld_d_base_smoother_seti.f90
    mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90
    mlprec/impl/smoother/mld_d_base_smoother_setr.f90
    mlprec/impl/smoother/mld_c_base_smoother_free.f90
    mlprec/impl/smoother/mld_z_base_smoother_bld.f90
    mlprec/impl/smoother/mld_c_base_smoother_setc.f90
    mlprec/impl/smoother/mld_c_base_smoother_descr.f90
    mlprec/impl/smoother/mld_d_base_smoother_descr.f90
    mlprec/impl/smoother/mld_s_base_smoother_free.f90
    mlprec/impl/smoother/mld_c_base_smoother_seti.f90
    mlprec/impl/smoother/mld_c_base_smoother_check.f90
    mlprec/impl/smoother/mld_c_base_smoother_setr.f90
    mlprec/impl/smoother/mld_s_base_smoother_setc.f90
    mlprec/impl/smoother/mld_d_base_smoother_check.f90
    mlprec/impl/smoother/mld_s_base_smoother_descr.f90
    mlprec/impl/smoother/mld_d_base_smoother_dmp.f90
    mlprec/impl/smoother/mld_s_base_smoother_seti.f90
    mlprec/impl/smoother/mld_c_base_smoother_apply.f90
    mlprec/impl/smoother/mld_d_base_smoother_apply.f90
    mlprec/impl/smoother/mld_z_base_smoother_descr.f90
    mlprec/impl/smoother/mld_s_base_smoother_setr.f90
    mlprec/impl/smoother/mld_s_base_smoother_check.f90
    mlprec/impl/smoother/mld_c_base_smoother_bld.f90
    mlprec/impl/smoother/mld_z_base_smoother_check.f90
    mlprec/impl/smoother/mld_s_base_smoother_apply.f90
    mlprec/impl/smoother/mld_z_base_smoother_dmp.f90
    mlprec/impl/smoother/mld_z_base_smoother_free.f90

Fixed base smoother for long integers.
stopcriterion
Salvatore Filippone 12 years ago
parent 080e1d2eb9
commit db061fe5e1
40 changed files with 168 additions and 168 deletions
Show Stats Download Patch File Download Diff File

10
mlprec/impl/smoother/mld_c_base_smoother_apply.f90
Unescape Escape View File

@ -41,17 +41,17 @@ subroutine mld_c_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo
use psb_base_mod use psb_base_mod
use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_base_smoother_type), intent(in) :: sm class(mld_c_base_smoother_type), intent(in) :: sm
complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:) complex(psb_spk_),intent(inout) :: y(:)
complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
complex(psb_spk_),target, intent(inout) :: work(:) complex(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_apply' character(len=20) :: name='c_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

14
mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90
Unescape Escape View File

@ -42,17 +42,17 @@ subroutine mld_c_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,&
use psb_base_mod use psb_base_mod
use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply_vect use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply_vect
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: x
type(psb_c_vect_type),intent(inout) :: y type(psb_c_vect_type),intent(inout) :: y
complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
complex(psb_spk_),target, intent(inout) :: work(:) complex(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_apply' character(len=20) :: name='c_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_c_base_smoother_bld.f90
Unescape Escape View File

@ -44,13 +44,13 @@ subroutine mld_c_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold
class(psb_c_base_vect_type), intent(in), optional :: vmold class(psb_c_base_vect_type), intent(in), optional :: vmold
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_bld' character(len=20) :: name='c_base_smoother_bld'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

4
mlprec/impl/smoother/mld_c_base_smoother_check.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_c_base_smoother_check(sm,info)
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act Integer(Psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_check' character(len=20) :: name='c_base_smoother_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

12
mlprec/impl/smoother/mld_c_base_smoother_descr.f90
Unescape Escape View File

@ -44,15 +44,15 @@ subroutine mld_c_base_smoother_descr(sm,info,iout,coarse)
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(in) :: sm class(mld_c_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_c_base_smoother_descr' character(len=20), parameter :: name='mld_c_base_smoother_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse_ logical :: coarse_

8
mlprec/impl/smoother/mld_c_base_smoother_dmp.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_c_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_dmp use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_dmp
implicit none implicit none
class(mld_c_base_smoother_type), intent(in) :: sm class(mld_c_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer(psb_ipk_), intent(in) :: ictxt,level
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_ character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than character(len=120) :: fname ! len should be at least 20 more than
logical :: smoother_ logical :: smoother_

4
mlprec/impl/smoother/mld_c_base_smoother_free.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_c_base_smoother_free(sm,info)
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_free' character(len=20) :: name='c_base_smoother_free'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_c_base_smoother_setc.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_c_base_smoother_setc(sm,what,val,info)
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val character(len=*), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_setc' character(len=20) :: name='c_base_smoother_setc'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_c_base_smoother_seti.f90
Unescape Escape View File

@ -43,10 +43,10 @@ subroutine mld_c_base_smoother_seti(sm,what,val,info)
Implicit None Implicit None
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
integer, intent(in) :: val integer(psb_ipk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_seti' character(len=20) :: name='c_base_smoother_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_c_base_smoother_setr.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_c_base_smoother_setr(sm,what,val,info)
! Arguments ! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val real(psb_spk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_setr' character(len=20) :: name='c_base_smoother_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/smoother/mld_d_base_smoother_apply.f90
Unescape Escape View File

@ -41,17 +41,17 @@ subroutine mld_d_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo
use psb_base_mod use psb_base_mod
use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_base_smoother_type), intent(in) :: sm class(mld_d_base_smoother_type), intent(in) :: sm
real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:) real(psb_dpk_),intent(inout) :: y(:)
real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
real(psb_dpk_),target, intent(inout) :: work(:) real(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_apply' character(len=20) :: name='d_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

14
mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90
Unescape Escape View File

@ -42,17 +42,17 @@ subroutine mld_d_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,&
use psb_base_mod use psb_base_mod
use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply_vect use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply_vect
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: x
type(psb_d_vect_type),intent(inout) :: y type(psb_d_vect_type),intent(inout) :: y
real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
real(psb_dpk_),target, intent(inout) :: work(:) real(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_apply' character(len=20) :: name='d_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_d_base_smoother_bld.f90
Unescape Escape View File

@ -44,13 +44,13 @@ subroutine mld_d_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold
class(psb_d_base_vect_type), intent(in), optional :: vmold class(psb_d_base_vect_type), intent(in), optional :: vmold
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_bld' character(len=20) :: name='d_base_smoother_bld'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

4
mlprec/impl/smoother/mld_d_base_smoother_check.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_d_base_smoother_check(sm,info)
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act Integer(Psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_check' character(len=20) :: name='d_base_smoother_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

12
mlprec/impl/smoother/mld_d_base_smoother_descr.f90
Unescape Escape View File

@ -44,15 +44,15 @@ subroutine mld_d_base_smoother_descr(sm,info,iout,coarse)
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(in) :: sm class(mld_d_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_d_base_smoother_descr' character(len=20), parameter :: name='mld_d_base_smoother_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse_ logical :: coarse_

8
mlprec/impl/smoother/mld_d_base_smoother_dmp.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_d_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_dmp use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_dmp
implicit none implicit none
class(mld_d_base_smoother_type), intent(in) :: sm class(mld_d_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer(psb_ipk_), intent(in) :: ictxt,level
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_ character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than character(len=120) :: fname ! len should be at least 20 more than
logical :: smoother_ logical :: smoother_

4
mlprec/impl/smoother/mld_d_base_smoother_free.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_d_base_smoother_free(sm,info)
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_free' character(len=20) :: name='d_base_smoother_free'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_d_base_smoother_setc.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_d_base_smoother_setc(sm,what,val,info)
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val character(len=*), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_setc' character(len=20) :: name='d_base_smoother_setc'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_d_base_smoother_seti.f90
Unescape Escape View File

@ -43,10 +43,10 @@ subroutine mld_d_base_smoother_seti(sm,what,val,info)
Implicit None Implicit None
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
integer, intent(in) :: val integer(psb_ipk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_seti' character(len=20) :: name='d_base_smoother_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_d_base_smoother_setr.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_d_base_smoother_setr(sm,what,val,info)
! Arguments ! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_setr' character(len=20) :: name='d_base_smoother_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/smoother/mld_s_base_smoother_apply.f90
Unescape Escape View File

@ -41,17 +41,17 @@ subroutine mld_s_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo
use psb_base_mod use psb_base_mod
use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_base_smoother_type), intent(in) :: sm class(mld_s_base_smoother_type), intent(in) :: sm
real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:) real(psb_spk_),intent(inout) :: y(:)
real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
real(psb_spk_),target, intent(inout) :: work(:) real(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_apply' character(len=20) :: name='s_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

14
mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90
Unescape Escape View File

@ -42,17 +42,17 @@ subroutine mld_s_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,&
use psb_base_mod use psb_base_mod
use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply_vect use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply_vect
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: x
type(psb_s_vect_type),intent(inout) :: y type(psb_s_vect_type),intent(inout) :: y
real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
real(psb_spk_),target, intent(inout) :: work(:) real(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_apply' character(len=20) :: name='s_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_s_base_smoother_bld.f90
Unescape Escape View File

@ -44,13 +44,13 @@ subroutine mld_s_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold
class(psb_s_base_vect_type), intent(in), optional :: vmold class(psb_s_base_vect_type), intent(in), optional :: vmold
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_bld' character(len=20) :: name='s_base_smoother_bld'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

4
mlprec/impl/smoother/mld_s_base_smoother_check.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_s_base_smoother_check(sm,info)
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act Integer(Psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_check' character(len=20) :: name='s_base_smoother_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

12
mlprec/impl/smoother/mld_s_base_smoother_descr.f90
Unescape Escape View File

@ -44,15 +44,15 @@ subroutine mld_s_base_smoother_descr(sm,info,iout,coarse)
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(in) :: sm class(mld_s_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_s_base_smoother_descr' character(len=20), parameter :: name='mld_s_base_smoother_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse_ logical :: coarse_

8
mlprec/impl/smoother/mld_s_base_smoother_dmp.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_s_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_dmp use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_dmp
implicit none implicit none
class(mld_s_base_smoother_type), intent(in) :: sm class(mld_s_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer(psb_ipk_), intent(in) :: ictxt,level
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_ character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than character(len=120) :: fname ! len should be at least 20 more than
logical :: smoother_ logical :: smoother_

4
mlprec/impl/smoother/mld_s_base_smoother_free.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_s_base_smoother_free(sm,info)
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_free' character(len=20) :: name='s_base_smoother_free'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_s_base_smoother_setc.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_s_base_smoother_setc(sm,what,val,info)
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val character(len=*), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_setc' character(len=20) :: name='s_base_smoother_setc'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_s_base_smoother_seti.f90
Unescape Escape View File

@ -43,10 +43,10 @@ subroutine mld_s_base_smoother_seti(sm,what,val,info)
Implicit None Implicit None
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
integer, intent(in) :: val integer(psb_ipk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_seti' character(len=20) :: name='s_base_smoother_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_s_base_smoother_setr.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_s_base_smoother_setr(sm,what,val,info)
! Arguments ! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val real(psb_spk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_setr' character(len=20) :: name='s_base_smoother_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/smoother/mld_z_base_smoother_apply.f90
Unescape Escape View File

@ -41,17 +41,17 @@ subroutine mld_z_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo
use psb_base_mod use psb_base_mod
use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_z_base_smoother_type), intent(in) :: sm class(mld_z_base_smoother_type), intent(in) :: sm
complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:) complex(psb_dpk_),intent(inout) :: y(:)
complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
complex(psb_dpk_),target, intent(inout) :: work(:) complex(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_apply' character(len=20) :: name='z_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

14
mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90
Unescape Escape View File

@ -42,17 +42,17 @@ subroutine mld_z_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,&
use psb_base_mod use psb_base_mod
use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply_vect use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply_vect
implicit none implicit none
type(psb_desc_type), intent(in) :: desc_data type(psb_desc_type), intent(in) :: desc_data
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: x
type(psb_z_vect_type),intent(inout) :: y type(psb_z_vect_type),intent(inout) :: y
complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps integer(psb_ipk_), intent(in) :: sweeps
complex(psb_dpk_),target, intent(inout) :: work(:) complex(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_apply' character(len=20) :: name='z_base_smoother_apply'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_z_base_smoother_bld.f90
Unescape Escape View File

@ -44,13 +44,13 @@ subroutine mld_z_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(in) :: desc_a
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold
class(psb_z_base_vect_type), intent(in), optional :: vmold class(psb_z_base_vect_type), intent(in), optional :: vmold
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_bld' character(len=20) :: name='z_base_smoother_bld'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

4
mlprec/impl/smoother/mld_z_base_smoother_check.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_z_base_smoother_check(sm,info)
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act Integer(Psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_check' character(len=20) :: name='z_base_smoother_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

12
mlprec/impl/smoother/mld_z_base_smoother_descr.f90
Unescape Escape View File

@ -44,15 +44,15 @@ subroutine mld_z_base_smoother_descr(sm,info,iout,coarse)
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(in) :: sm class(mld_z_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse logical, intent(in), optional :: coarse
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_z_base_smoother_descr' character(len=20), parameter :: name='mld_z_base_smoother_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse_ logical :: coarse_

8
mlprec/impl/smoother/mld_z_base_smoother_dmp.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_z_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv
use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_dmp use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_dmp
implicit none implicit none
class(mld_z_base_smoother_type), intent(in) :: sm class(mld_z_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level integer(psb_ipk_), intent(in) :: ictxt,level
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_ character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than character(len=120) :: fname ! len should be at least 20 more than
logical :: smoother_ logical :: smoother_

4
mlprec/impl/smoother/mld_z_base_smoother_free.f90
Unescape Escape View File

@ -44,8 +44,8 @@ subroutine mld_z_base_smoother_free(sm,info)
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_free' character(len=20) :: name='z_base_smoother_free'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_z_base_smoother_setc.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_z_base_smoother_setc(sm,what,val,info)
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val character(len=*), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_setc' character(len=20) :: name='z_base_smoother_setc'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_z_base_smoother_seti.f90
Unescape Escape View File

@ -43,10 +43,10 @@ subroutine mld_z_base_smoother_seti(sm,what,val,info)
Implicit None Implicit None
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
integer, intent(in) :: val integer(psb_ipk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_seti' character(len=20) :: name='z_base_smoother_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/smoother/mld_z_base_smoother_setr.f90
Unescape Escape View File

@ -44,10 +44,10 @@ subroutine mld_z_base_smoother_setr(sm,what,val,info)
! Arguments ! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_setr' character(len=20) :: name='z_base_smoother_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

Write Preview
Loading…
Cancel
Save