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 14 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 mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply
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
complex(psb_spk_),intent(inout) :: x(:)
complex(psb_spk_),intent(inout) :: y(:)
complex(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
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'
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 mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply_vect
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
type(psb_c_vect_type),intent(inout) :: x
type(psb_c_vect_type),intent(inout) :: y
complex(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
complex(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info
complex(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
complex(psb_spk_),target, intent(inout) :: work(:)
integer(psb_ipk_), intent(out) :: info
Integer :: err_act
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_apply'
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
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
character, intent(in) :: upd
integer, intent(out) :: info
character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold
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'
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
class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
Integer(Psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_check'
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
class(mld_c_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info
integer, intent(in), optional :: iout
logical, intent(in), optional :: coarse
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_c_base_smoother_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_c_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: ictxt,level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than
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
class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_free'
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
class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
character(len=*), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_setc'
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
! Arguments
class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
integer, intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_seti'
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
class(mld_c_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
real(psb_spk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_smoother_setr'
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 mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply
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
real(psb_dpk_),intent(inout) :: x(:)
real(psb_dpk_),intent(inout) :: y(:)
real(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
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'
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 mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply_vect
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
type(psb_d_vect_type),intent(inout) :: x
type(psb_d_vect_type),intent(inout) :: y
real(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
real(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info
real(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
real(psb_dpk_),target, intent(inout) :: work(:)
integer(psb_ipk_), intent(out) :: info
Integer :: err_act
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_apply'
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
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
character, intent(in) :: upd
integer, intent(out) :: info
character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold
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'
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
class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
Integer(Psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_check'
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
class(mld_d_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info
integer, intent(in), optional :: iout
logical, intent(in), optional :: coarse
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_d_base_smoother_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_d_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: ictxt,level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than
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
class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_free'
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
class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
character(len=*), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_setc'
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
! Arguments
class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
integer, intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_seti'
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
class(mld_d_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_smoother_setr'
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 mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply
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
real(psb_spk_),intent(inout) :: x(:)
real(psb_spk_),intent(inout) :: y(:)
real(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
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'
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 mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply_vect
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
type(psb_s_vect_type),intent(inout) :: x
type(psb_s_vect_type),intent(inout) :: y
real(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
real(psb_spk_),target, intent(inout) :: work(:)
integer, intent(out) :: info
real(psb_spk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
real(psb_spk_),target, intent(inout) :: work(:)
integer(psb_ipk_), intent(out) :: info
Integer :: err_act
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_apply'
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
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
character, intent(in) :: upd
integer, intent(out) :: info
character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold
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'
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
class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
Integer(Psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_check'
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
class(mld_s_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info
integer, intent(in), optional :: iout
logical, intent(in), optional :: coarse
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_s_base_smoother_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_s_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: ictxt,level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than
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
class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_free'
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
class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
character(len=*), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_setc'
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
! Arguments
class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
integer, intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_seti'
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
class(mld_s_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
real(psb_spk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
real(psb_spk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_smoother_setr'
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 mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply
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
complex(psb_dpk_),intent(inout) :: x(:)
complex(psb_dpk_),intent(inout) :: y(:)
complex(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
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'
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 mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply_vect
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
type(psb_z_vect_type),intent(inout) :: x
type(psb_z_vect_type),intent(inout) :: y
complex(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer, intent(in) :: sweeps
complex(psb_dpk_),target, intent(inout) :: work(:)
integer, intent(out) :: info
complex(psb_dpk_),intent(in) :: alpha,beta
character(len=1),intent(in) :: trans
integer(psb_ipk_), intent(in) :: sweeps
complex(psb_dpk_),target, intent(inout) :: work(:)
integer(psb_ipk_), intent(out) :: info
Integer :: err_act
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_apply'
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
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
character, intent(in) :: upd
integer, intent(out) :: info
character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold
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'
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
class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
Integer(Psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_check'
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
class(mld_z_base_smoother_type), intent(in) :: sm
integer, intent(out) :: info
integer, intent(in), optional :: iout
logical, intent(in), optional :: coarse
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
logical, intent(in), optional :: coarse
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
integer(psb_ipk_) :: ictxt, me, np
character(len=20), parameter :: name='mld_z_base_smoother_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_z_base_smoother_type), intent(in) :: sm
integer, intent(in) :: ictxt,level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: ictxt,level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: smoother, solver
integer :: i, j, il1, iln, lname, lev
integer :: icontxt,iam, np
integer(psb_ipk_) :: i, j, il1, iln, lname, lev
integer(psb_ipk_) :: icontxt,iam, np
character(len=80) :: prefix_
character(len=120) :: fname ! len should be at least 20 more than
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
class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_free'
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
class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
character(len=*), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
character(len=*), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_setc'
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
! Arguments
class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
integer, intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
integer(psb_ipk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_seti'
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
class(mld_z_base_smoother_type), intent(inout) :: sm
integer, intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_smoother_setr'
call psb_erractionsave(err_act)

Write Preview
Loading…
Cancel
Save