fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-07 15:15:07 +00:00
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.
This commit is contained in:
Salvatore Filippone
2012-12-07 12:41:43 +00:00
parent 080e1d2eb9
commit db061fe5e1
40 changed files with 168 additions and 168 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/smoother/mld_c_base_smoother_apply.f90
+5 -5
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)
mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90
+7 -7
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)
mlprec/impl/smoother/mld_c_base_smoother_bld.f90
+4 -4
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)
mlprec/impl/smoother/mld_c_base_smoother_check.f90
+2 -2
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)
mlprec/impl/smoother/mld_c_base_smoother_descr.f90
+6 -6
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_
mlprec/impl/smoother/mld_c_base_smoother_dmp.f90
+4 -4
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_
mlprec/impl/smoother/mld_c_base_smoother_free.f90
+2 -2
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)
mlprec/impl/smoother/mld_c_base_smoother_setc.f90
+4 -4
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)
mlprec/impl/smoother/mld_c_base_smoother_seti.f90
+4 -4
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)
mlprec/impl/smoother/mld_c_base_smoother_setr.f90
+4 -4
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)
mlprec/impl/smoother/mld_d_base_smoother_apply.f90
+5 -5
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)
mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90
+7 -7
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)
mlprec/impl/smoother/mld_d_base_smoother_bld.f90
+4 -4
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)
mlprec/impl/smoother/mld_d_base_smoother_check.f90
+2 -2
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)
mlprec/impl/smoother/mld_d_base_smoother_descr.f90
+6 -6
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_
mlprec/impl/smoother/mld_d_base_smoother_dmp.f90
+4 -4
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_
mlprec/impl/smoother/mld_d_base_smoother_free.f90
+2 -2
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)
mlprec/impl/smoother/mld_d_base_smoother_setc.f90
+4 -4
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)
mlprec/impl/smoother/mld_d_base_smoother_seti.f90
+4 -4
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)
mlprec/impl/smoother/mld_d_base_smoother_setr.f90
+4 -4
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)
mlprec/impl/smoother/mld_s_base_smoother_apply.f90
+5 -5
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)
mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90
+7 -7
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)
mlprec/impl/smoother/mld_s_base_smoother_bld.f90
+4 -4
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)
mlprec/impl/smoother/mld_s_base_smoother_check.f90
+2 -2
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)
mlprec/impl/smoother/mld_s_base_smoother_descr.f90
+6 -6
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_
mlprec/impl/smoother/mld_s_base_smoother_dmp.f90
+4 -4
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_
mlprec/impl/smoother/mld_s_base_smoother_free.f90
+2 -2
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)
mlprec/impl/smoother/mld_s_base_smoother_setc.f90
+4 -4
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)
mlprec/impl/smoother/mld_s_base_smoother_seti.f90
+4 -4
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)
mlprec/impl/smoother/mld_s_base_smoother_setr.f90
+4 -4
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)
mlprec/impl/smoother/mld_z_base_smoother_apply.f90
+5 -5
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)
mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90
+7 -7
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)
mlprec/impl/smoother/mld_z_base_smoother_bld.f90
+4 -4
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)
mlprec/impl/smoother/mld_z_base_smoother_check.f90
+2 -2
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)
mlprec/impl/smoother/mld_z_base_smoother_descr.f90
+6 -6
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_
mlprec/impl/smoother/mld_z_base_smoother_dmp.f90
+4 -4
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_
mlprec/impl/smoother/mld_z_base_smoother_free.f90
+2 -2
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)
mlprec/impl/smoother/mld_z_base_smoother_setc.f90
+4 -4
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)
mlprec/impl/smoother/mld_z_base_smoother_seti.f90
+4 -4
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)
mlprec/impl/smoother/mld_z_base_smoother_setr.f90
+4 -4
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)