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
class(mld_c_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_onelev_check'
call psb_erractionsave(err_act)
info = psb_success_
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,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps)
& 'Jacobi sweeps',ione,is_legal_jac_sweeps)
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

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
Implicit None
! Arguments
class(mld_c_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl
integer, intent(out) :: info
integer, intent(in), optional :: iout
class(mld_c_onelev_type), intent(in) :: lv
integer(psb_ipk_), intent(in) :: il,nl
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_c_base_onelev_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_c_onelev_type), intent(in) :: lv
integer, intent(in) :: level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: ac, rp, 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 :: 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
class(mld_c_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
integer :: i
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: i
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
class(mld_c_onelev_type), intent(inout) :: lv
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_onelev_setc'
integer :: ival
integer(psb_ipk_) :: ival
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
class(mld_c_onelev_type), intent(inout) :: lv
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_onelev_seti'
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
class(mld_c_onelev_type), intent(inout) :: lv
integer, intent(in) :: what
real(psb_spk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
character(len=20) :: name='c_base_onelev_setr'
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_onelev_setr'
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
class(mld_d_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_onelev_check'
call psb_erractionsave(err_act)
info = psb_success_
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,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps)
& 'Jacobi sweeps',ione,is_legal_jac_sweeps)
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

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
Implicit None
! Arguments
class(mld_d_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl
integer, intent(out) :: info
integer, intent(in), optional :: iout
class(mld_d_onelev_type), intent(in) :: lv
integer(psb_ipk_), intent(in) :: il,nl
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_d_base_onelev_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_d_onelev_type), intent(in) :: lv
integer, intent(in) :: level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: ac, rp, 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 :: 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
class(mld_d_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
integer :: i
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: i
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
class(mld_d_onelev_type), intent(inout) :: lv
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_onelev_setc'
integer :: ival
integer(psb_ipk_) :: ival
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
class(mld_d_onelev_type), intent(inout) :: lv
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_onelev_seti'
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
class(mld_d_onelev_type), intent(inout) :: lv
integer, intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
character(len=20) :: name='d_base_onelev_setr'
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_onelev_setr'
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
class(mld_s_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_onelev_check'
call psb_erractionsave(err_act)
info = psb_success_
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,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps)
& 'Jacobi sweeps',ione,is_legal_jac_sweeps)
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

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
Implicit None
! Arguments
class(mld_s_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl
integer, intent(out) :: info
integer, intent(in), optional :: iout
class(mld_s_onelev_type), intent(in) :: lv
integer(psb_ipk_), intent(in) :: il,nl
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_s_base_onelev_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_s_onelev_type), intent(in) :: lv
integer, intent(in) :: level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: ac, rp, 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 :: 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
class(mld_s_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
integer :: i
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: i
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
class(mld_s_onelev_type), intent(inout) :: lv
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_onelev_setc'
integer :: ival
integer(psb_ipk_) :: ival
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
class(mld_s_onelev_type), intent(inout) :: lv
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_onelev_seti'
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
class(mld_s_onelev_type), intent(inout) :: lv
integer, intent(in) :: what
real(psb_spk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
character(len=20) :: name='s_base_onelev_setr'
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_onelev_setr'
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
class(mld_z_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
Integer :: err_act
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_onelev_check'
call psb_erractionsave(err_act)
info = psb_success_
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,&
& 'Jacobi sweeps',1,is_legal_jac_sweeps)
& 'Jacobi sweeps',ione,is_legal_jac_sweeps)
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

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
Implicit None
! Arguments
class(mld_z_onelev_type), intent(in) :: lv
integer, intent(in) :: il,nl
integer, intent(out) :: info
integer, intent(in), optional :: iout
class(mld_z_onelev_type), intent(in) :: lv
integer(psb_ipk_), intent(in) :: il,nl
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: iout
! Local variables
integer :: err_act
integer :: ictxt, me, np
integer(psb_ipk_) :: err_act
character(len=20), parameter :: name='mld_z_base_onelev_descr'
integer :: iout_
integer(psb_ipk_) :: iout_
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
implicit none
class(mld_z_onelev_type), intent(in) :: lv
integer, intent(in) :: level
integer, intent(out) :: info
integer(psb_ipk_), intent(in) :: level
integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix, head
logical, optional, intent(in) :: ac, rp, 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 :: 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
class(mld_z_onelev_type), intent(inout) :: lv
integer, intent(out) :: info
integer :: i
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_) :: i
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
class(mld_z_onelev_type), intent(inout) :: lv
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_onelev_setc'
integer :: ival
integer(psb_ipk_) :: ival
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
class(mld_z_onelev_type), intent(inout) :: lv
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_onelev_seti'
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
class(mld_z_onelev_type), intent(inout) :: lv
integer, intent(in) :: what
real(psb_dpk_), intent(in) :: val
integer, intent(out) :: info
Integer :: err_act
character(len=20) :: name='z_base_onelev_setr'
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_onelev_setr'
call psb_erractionsave(err_act)

Write Preview
Loading…
Cancel
Save