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/level/mld_d_base_onelev_free.f90
    mlprec/impl/level/mld_s_base_onelev_seti.f90
    mlprec/impl/level/mld_z_base_onelev_setc.f90
    mlprec/impl/level/mld_s_base_onelev_dump.f90
    mlprec/impl/level/mld_z_base_onelev_descr.f90
    mlprec/impl/level/mld_z_base_onelev_seti.f90
    mlprec/impl/level/mld_z_base_onelev_dump.f90
    mlprec/impl/level/mld_s_base_onelev_setr.f90
    mlprec/impl/level/mld_s_base_onelev_check.f90
    mlprec/impl/level/mld_c_base_onelev_setc.f90
    mlprec/impl/level/mld_d_base_onelev_setc.f90
    mlprec/impl/level/mld_c_base_onelev_descr.f90
    mlprec/impl/level/mld_s_base_onelev_free.f90
    mlprec/impl/level/mld_d_base_onelev_descr.f90
    mlprec/impl/level/mld_z_base_onelev_check.f90
    mlprec/impl/level/mld_c_base_onelev_seti.f90
    mlprec/impl/level/mld_z_base_onelev_setr.f90
    mlprec/impl/level/mld_d_base_onelev_seti.f90
    mlprec/impl/level/mld_c_base_onelev_dump.f90
    mlprec/impl/level/mld_d_base_onelev_dump.f90
    mlprec/impl/level/mld_z_base_onelev_free.f90
    mlprec/impl/level/mld_c_base_onelev_setr.f90
    mlprec/impl/level/mld_c_base_onelev_check.f90
    mlprec/impl/level/mld_d_base_onelev_setr.f90
    mlprec/impl/level/mld_d_base_onelev_check.f90
    mlprec/impl/level/mld_s_base_onelev_setc.f90
    mlprec/impl/level/mld_s_base_onelev_descr.f90
    mlprec/impl/level/mld_c_base_onelev_free.f90

Fixed integers in impl/level
stopcriterion
Salvatore Filippone 12 years ago
parent fb35ef9a9e
commit c9376b5b4f
28 changed files with 124 additions and 128 deletions
Show Stats Download Patch File Download Diff File

10
mlprec/impl/level/mld_c_base_onelev_check.f90
Unescape Escape View File

@ -45,19 +45,19 @@ subroutine mld_c_base_onelev_check(lv,info)
! Arguments ! Arguments
class(mld_c_onelev_type), intent(inout) :: lv class(mld_c_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_onelev_check' character(len=20) :: name='c_base_onelev_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
if (allocated(lv%sm)) then if (allocated(lv%sm)) then

13
mlprec/impl/level/mld_c_base_onelev_descr.f90
Unescape Escape View File

@ -42,16 +42,15 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,info,iout)
use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_descr use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_descr
Implicit None Implicit None
! Arguments ! Arguments
class(mld_c_onelev_type), intent(in) :: lv class(mld_c_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl integer(psb_ipk_), intent(in) :: il,nl
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np
character(len=20), parameter :: name='mld_c_base_onelev_descr' character(len=20), parameter :: name='mld_c_base_onelev_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse logical :: coarse

8
mlprec/impl/level/mld_c_base_onelev_dump.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_dump use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_dump
implicit none implicit none
class(mld_c_onelev_type), intent(in) :: lv class(mld_c_onelev_type), intent(in) :: lv
integer, intent(in) :: level integer(psb_ipk_), intent(in) :: 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) :: ac, rp, smoother, solver logical, optional, intent(in) :: ac, rp, 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 :: ac_, rp_ logical :: ac_, rp_

4
mlprec/impl/level/mld_c_base_onelev_free.f90
Unescape Escape View File

@ -43,8 +43,8 @@ subroutine mld_c_base_onelev_free(lv,info)
implicit none implicit none
class(mld_c_onelev_type), intent(inout) :: lv class(mld_c_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer :: i integer(psb_ipk_) :: i
info = psb_success_ info = psb_success_

10
mlprec/impl/level/mld_c_base_onelev_setc.f90
Unescape Escape View File

@ -45,12 +45,12 @@ subroutine mld_c_base_onelev_setc(lv,what,val,info)
! Arguments ! Arguments
class(mld_c_onelev_type), intent(inout) :: lv class(mld_c_onelev_type), intent(inout) :: lv
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_onelev_setc' character(len=20) :: name='c_base_onelev_setc'
integer :: ival integer(psb_ipk_) :: ival
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/level/mld_c_base_onelev_seti.f90
Unescape Escape View File

@ -45,10 +45,10 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info)
! Arguments ! Arguments
class(mld_c_onelev_type), intent(inout) :: lv class(mld_c_onelev_type), intent(inout) :: lv
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_onelev_seti' character(len=20) :: name='c_base_onelev_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_c_base_onelev_setr.f90
Unescape Escape View File

@ -45,11 +45,11 @@ subroutine mld_c_base_onelev_setr(lv,what,val,info)
! Arguments ! Arguments
class(mld_c_onelev_type), intent(inout) :: lv class(mld_c_onelev_type), intent(inout) :: lv
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_onelev_setr' character(len=20) :: name='c_base_onelev_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_d_base_onelev_check.f90
Unescape Escape View File

@ -45,19 +45,19 @@ subroutine mld_d_base_onelev_check(lv,info)
! Arguments ! Arguments
class(mld_d_onelev_type), intent(inout) :: lv class(mld_d_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_onelev_check' character(len=20) :: name='d_base_onelev_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
if (allocated(lv%sm)) then if (allocated(lv%sm)) then

13
mlprec/impl/level/mld_d_base_onelev_descr.f90
Unescape Escape View File

@ -42,16 +42,15 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,info,iout)
use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_descr use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_descr
Implicit None Implicit None
! Arguments ! Arguments
class(mld_d_onelev_type), intent(in) :: lv class(mld_d_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl integer(psb_ipk_), intent(in) :: il,nl
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np
character(len=20), parameter :: name='mld_d_base_onelev_descr' character(len=20), parameter :: name='mld_d_base_onelev_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse logical :: coarse

8
mlprec/impl/level/mld_d_base_onelev_dump.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_dump use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_dump
implicit none implicit none
class(mld_d_onelev_type), intent(in) :: lv class(mld_d_onelev_type), intent(in) :: lv
integer, intent(in) :: level integer(psb_ipk_), intent(in) :: 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) :: ac, rp, smoother, solver logical, optional, intent(in) :: ac, rp, 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 :: ac_, rp_ logical :: ac_, rp_

4
mlprec/impl/level/mld_d_base_onelev_free.f90
Unescape Escape View File

@ -43,8 +43,8 @@ subroutine mld_d_base_onelev_free(lv,info)
implicit none implicit none
class(mld_d_onelev_type), intent(inout) :: lv class(mld_d_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer :: i integer(psb_ipk_) :: i
info = psb_success_ info = psb_success_

10
mlprec/impl/level/mld_d_base_onelev_setc.f90
Unescape Escape View File

@ -45,12 +45,12 @@ subroutine mld_d_base_onelev_setc(lv,what,val,info)
! Arguments ! Arguments
class(mld_d_onelev_type), intent(inout) :: lv class(mld_d_onelev_type), intent(inout) :: lv
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_onelev_setc' character(len=20) :: name='d_base_onelev_setc'
integer :: ival integer(psb_ipk_) :: ival
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/level/mld_d_base_onelev_seti.f90
Unescape Escape View File

@ -45,10 +45,10 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info)
! Arguments ! Arguments
class(mld_d_onelev_type), intent(inout) :: lv class(mld_d_onelev_type), intent(inout) :: lv
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_onelev_seti' character(len=20) :: name='d_base_onelev_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_d_base_onelev_setr.f90
Unescape Escape View File

@ -45,11 +45,11 @@ subroutine mld_d_base_onelev_setr(lv,what,val,info)
! Arguments ! Arguments
class(mld_d_onelev_type), intent(inout) :: lv class(mld_d_onelev_type), intent(inout) :: lv
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_onelev_setr' character(len=20) :: name='d_base_onelev_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_s_base_onelev_check.f90
Unescape Escape View File

@ -45,19 +45,19 @@ subroutine mld_s_base_onelev_check(lv,info)
! Arguments ! Arguments
class(mld_s_onelev_type), intent(inout) :: lv class(mld_s_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_onelev_check' character(len=20) :: name='s_base_onelev_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
if (allocated(lv%sm)) then if (allocated(lv%sm)) then

13
mlprec/impl/level/mld_s_base_onelev_descr.f90
Unescape Escape View File

@ -42,16 +42,15 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,info,iout)
use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_descr use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_descr
Implicit None Implicit None
! Arguments ! Arguments
class(mld_s_onelev_type), intent(in) :: lv class(mld_s_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl integer(psb_ipk_), intent(in) :: il,nl
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np
character(len=20), parameter :: name='mld_s_base_onelev_descr' character(len=20), parameter :: name='mld_s_base_onelev_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse logical :: coarse

8
mlprec/impl/level/mld_s_base_onelev_dump.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_dump use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_dump
implicit none implicit none
class(mld_s_onelev_type), intent(in) :: lv class(mld_s_onelev_type), intent(in) :: lv
integer, intent(in) :: level integer(psb_ipk_), intent(in) :: 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) :: ac, rp, smoother, solver logical, optional, intent(in) :: ac, rp, 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 :: ac_, rp_ logical :: ac_, rp_

4
mlprec/impl/level/mld_s_base_onelev_free.f90
Unescape Escape View File

@ -43,8 +43,8 @@ subroutine mld_s_base_onelev_free(lv,info)
implicit none implicit none
class(mld_s_onelev_type), intent(inout) :: lv class(mld_s_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer :: i integer(psb_ipk_) :: i
info = psb_success_ info = psb_success_

10
mlprec/impl/level/mld_s_base_onelev_setc.f90
Unescape Escape View File

@ -45,12 +45,12 @@ subroutine mld_s_base_onelev_setc(lv,what,val,info)
! Arguments ! Arguments
class(mld_s_onelev_type), intent(inout) :: lv class(mld_s_onelev_type), intent(inout) :: lv
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_onelev_setc' character(len=20) :: name='s_base_onelev_setc'
integer :: ival integer(psb_ipk_) :: ival
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/level/mld_s_base_onelev_seti.f90
Unescape Escape View File

@ -45,10 +45,10 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info)
! Arguments ! Arguments
class(mld_s_onelev_type), intent(inout) :: lv class(mld_s_onelev_type), intent(inout) :: lv
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_onelev_seti' character(len=20) :: name='s_base_onelev_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_s_base_onelev_setr.f90
Unescape Escape View File

@ -45,11 +45,11 @@ subroutine mld_s_base_onelev_setr(lv,what,val,info)
! Arguments ! Arguments
class(mld_s_onelev_type), intent(inout) :: lv class(mld_s_onelev_type), intent(inout) :: lv
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_onelev_setr' character(len=20) :: name='s_base_onelev_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_z_base_onelev_check.f90
Unescape Escape View File

@ -45,19 +45,19 @@ subroutine mld_z_base_onelev_check(lv,info)
! Arguments ! Arguments
class(mld_z_onelev_type), intent(inout) :: lv class(mld_z_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
Integer :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_onelev_check' character(len=20) :: name='z_base_onelev_check'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_ info = psb_success_
call mld_check_def(lv%parms%sweeps,& call mld_check_def(lv%parms%sweeps,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_pre,& call mld_check_def(lv%parms%sweeps_pre,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
call mld_check_def(lv%parms%sweeps_post,& call mld_check_def(lv%parms%sweeps_post,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps) & 'Jacobi sweeps',ione,is_legal_jac_sweeps)
if (allocated(lv%sm)) then if (allocated(lv%sm)) then

13
mlprec/impl/level/mld_z_base_onelev_descr.f90
Unescape Escape View File

@ -42,16 +42,15 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,info,iout)
use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_descr use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_descr
Implicit None Implicit None
! Arguments ! Arguments
class(mld_z_onelev_type), intent(in) :: lv class(mld_z_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl integer(psb_ipk_), intent(in) :: il,nl
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer, intent(in), optional :: iout integer(psb_ipk_), intent(in), optional :: iout
! Local variables ! Local variables
integer :: err_act integer(psb_ipk_) :: err_act
integer :: ictxt, me, np
character(len=20), parameter :: name='mld_z_base_onelev_descr' character(len=20), parameter :: name='mld_z_base_onelev_descr'
integer :: iout_ integer(psb_ipk_) :: iout_
logical :: coarse logical :: coarse

8
mlprec/impl/level/mld_z_base_onelev_dump.f90
Unescape Escape View File

@ -42,12 +42,12 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve
use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_dump use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_dump
implicit none implicit none
class(mld_z_onelev_type), intent(in) :: lv class(mld_z_onelev_type), intent(in) :: lv
integer, intent(in) :: level integer(psb_ipk_), intent(in) :: 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) :: ac, rp, smoother, solver logical, optional, intent(in) :: ac, rp, 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 :: ac_, rp_ logical :: ac_, rp_

4
mlprec/impl/level/mld_z_base_onelev_free.f90
Unescape Escape View File

@ -43,8 +43,8 @@ subroutine mld_z_base_onelev_free(lv,info)
implicit none implicit none
class(mld_z_onelev_type), intent(inout) :: lv class(mld_z_onelev_type), intent(inout) :: lv
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
integer :: i integer(psb_ipk_) :: i
info = psb_success_ info = psb_success_

10
mlprec/impl/level/mld_z_base_onelev_setc.f90
Unescape Escape View File

@ -45,12 +45,12 @@ subroutine mld_z_base_onelev_setc(lv,what,val,info)
! Arguments ! Arguments
class(mld_z_onelev_type), intent(inout) :: lv class(mld_z_onelev_type), intent(inout) :: lv
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_onelev_setc' character(len=20) :: name='z_base_onelev_setc'
integer :: ival integer(psb_ipk_) :: ival
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

8
mlprec/impl/level/mld_z_base_onelev_seti.f90
Unescape Escape View File

@ -45,10 +45,10 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info)
! Arguments ! Arguments
class(mld_z_onelev_type), intent(inout) :: lv class(mld_z_onelev_type), intent(inout) :: lv
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_onelev_seti' character(len=20) :: name='z_base_onelev_seti'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

10
mlprec/impl/level/mld_z_base_onelev_setr.f90
Unescape Escape View File

@ -45,11 +45,11 @@ subroutine mld_z_base_onelev_setr(lv,what,val,info)
! Arguments ! Arguments
class(mld_z_onelev_type), intent(inout) :: lv class(mld_z_onelev_type), intent(inout) :: lv
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_onelev_setr' character(len=20) :: name='z_base_onelev_setr'
call psb_erractionsave(err_act) call psb_erractionsave(err_act)

Write Preview
Loading…
Cancel
Save