fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Silence more warnings/errors from INTEL

Browse Source
cmake
sfilippone 1 year ago
parent f6afacd1ff
commit 3b3a6c88a8
14 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File

3
amgprec/amg_c_base_aggregator_mod.f90
Unescape Escape View File

@ -302,7 +302,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Do nothing ! Do nothing
info = psb_success_
return return
end subroutine amg_c_base_aggregator_set_aggr_type end subroutine amg_c_base_aggregator_set_aggr_type
@ -486,6 +486,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='c_base_aggregator_bld_map' character(len=20) :: name='c_base_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.

3
amgprec/amg_c_dec_aggregator_mod.f90
Unescape Escape View File

@ -150,7 +150,7 @@ contains
class(amg_c_dec_aggregator_type), intent(inout) :: ag class(amg_c_dec_aggregator_type), intent(inout) :: ag
type(amg_sml_parms), intent(in) :: parms type(amg_sml_parms), intent(in) :: parms
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
select case(parms%aggr_type) select case(parms%aggr_type)
case (amg_noalg_) case (amg_noalg_)
ag%soc_map_bld => null() ag%soc_map_bld => null()
@ -192,6 +192,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

2
amgprec/amg_c_symdec_aggregator_mod.f90
Unescape Escape View File

@ -97,7 +97,7 @@ contains
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

3
amgprec/amg_d_base_aggregator_mod.f90
Unescape Escape View File

@ -302,7 +302,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Do nothing ! Do nothing
info = psb_success_
return return
end subroutine amg_d_base_aggregator_set_aggr_type end subroutine amg_d_base_aggregator_set_aggr_type
@ -486,6 +486,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_base_aggregator_bld_map' character(len=20) :: name='d_base_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.

3
amgprec/amg_d_dec_aggregator_mod.f90
Unescape Escape View File

@ -150,7 +150,7 @@ contains
class(amg_d_dec_aggregator_type), intent(inout) :: ag class(amg_d_dec_aggregator_type), intent(inout) :: ag
type(amg_dml_parms), intent(in) :: parms type(amg_dml_parms), intent(in) :: parms
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
select case(parms%aggr_type) select case(parms%aggr_type)
case (amg_noalg_) case (amg_noalg_)
ag%soc_map_bld => null() ag%soc_map_bld => null()
@ -192,6 +192,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

12
amgprec/amg_d_parmatch_aggregator_mod.F90
Unescape Escape View File

@ -400,6 +400,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else
@ -451,6 +452,7 @@ contains
class(amg_d_base_aggregator_type), target, intent(inout) :: agnext class(amg_d_base_aggregator_type), target, intent(inout) :: agnext
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
! !
! !
select type(agnext) select type(agnext)
@ -590,7 +592,7 @@ contains
class(amg_d_parmatch_aggregator_type), intent(inout) :: ag class(amg_d_parmatch_aggregator_type), intent(inout) :: ag
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = 0 info = psb_success_
if ((info == 0).and.allocated(ag%w)) deallocate(ag%w,stat=info) if ((info == 0).and.allocated(ag%w)) deallocate(ag%w,stat=info)
if ((info == 0).and.allocated(ag%w_nxt)) deallocate(ag%w_nxt,stat=info) if ((info == 0).and.allocated(ag%w_nxt)) deallocate(ag%w_nxt,stat=info)
if ((info == 0).and.allocated(ag%prol)) then if ((info == 0).and.allocated(ag%prol)) then
@ -629,7 +631,7 @@ contains
class(amg_d_base_aggregator_type), allocatable, intent(inout) :: agnext class(amg_d_base_aggregator_type), allocatable, intent(inout) :: agnext
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = 0 info = psb_success_
if (allocated(agnext)) then if (allocated(agnext)) then
call agnext%free(info) call agnext%free(info)
if (info == 0) deallocate(agnext,stat=info) if (info == 0) deallocate(agnext,stat=info)
@ -658,6 +660,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='d_parmatch_aggregator_bld_map' character(len=20) :: name='d_parmatch_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.
@ -675,11 +678,6 @@ contains
map = psb_linmap(psb_map_gen_linear_,desc_a,& map = psb_linmap(psb_map_gen_linear_,desc_a,&
& desc_ac,op_restr,op_prol,ilaggr,nlaggr) & desc_ac,op_restr,op_prol,ilaggr,nlaggr)
end if end if
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')
goto 9999
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

2
amgprec/amg_d_symdec_aggregator_mod.f90
Unescape Escape View File

@ -97,7 +97,7 @@ contains
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

3
amgprec/amg_s_base_aggregator_mod.f90
Unescape Escape View File

@ -302,7 +302,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Do nothing ! Do nothing
info = psb_success_
return return
end subroutine amg_s_base_aggregator_set_aggr_type end subroutine amg_s_base_aggregator_set_aggr_type
@ -486,6 +486,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_base_aggregator_bld_map' character(len=20) :: name='s_base_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.

3
amgprec/amg_s_dec_aggregator_mod.f90
Unescape Escape View File

@ -150,7 +150,7 @@ contains
class(amg_s_dec_aggregator_type), intent(inout) :: ag class(amg_s_dec_aggregator_type), intent(inout) :: ag
type(amg_sml_parms), intent(in) :: parms type(amg_sml_parms), intent(in) :: parms
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
select case(parms%aggr_type) select case(parms%aggr_type)
case (amg_noalg_) case (amg_noalg_)
ag%soc_map_bld => null() ag%soc_map_bld => null()
@ -192,6 +192,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

12
amgprec/amg_s_parmatch_aggregator_mod.F90
Unescape Escape View File

@ -400,6 +400,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else
@ -451,6 +452,7 @@ contains
class(amg_s_base_aggregator_type), target, intent(inout) :: agnext class(amg_s_base_aggregator_type), target, intent(inout) :: agnext
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
! !
! !
select type(agnext) select type(agnext)
@ -590,7 +592,7 @@ contains
class(amg_s_parmatch_aggregator_type), intent(inout) :: ag class(amg_s_parmatch_aggregator_type), intent(inout) :: ag
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = 0 info = psb_success_
if ((info == 0).and.allocated(ag%w)) deallocate(ag%w,stat=info) if ((info == 0).and.allocated(ag%w)) deallocate(ag%w,stat=info)
if ((info == 0).and.allocated(ag%w_nxt)) deallocate(ag%w_nxt,stat=info) if ((info == 0).and.allocated(ag%w_nxt)) deallocate(ag%w_nxt,stat=info)
if ((info == 0).and.allocated(ag%prol)) then if ((info == 0).and.allocated(ag%prol)) then
@ -629,7 +631,7 @@ contains
class(amg_s_base_aggregator_type), allocatable, intent(inout) :: agnext class(amg_s_base_aggregator_type), allocatable, intent(inout) :: agnext
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = 0 info = psb_success_
if (allocated(agnext)) then if (allocated(agnext)) then
call agnext%free(info) call agnext%free(info)
if (info == 0) deallocate(agnext,stat=info) if (info == 0) deallocate(agnext,stat=info)
@ -658,6 +660,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='s_parmatch_aggregator_bld_map' character(len=20) :: name='s_parmatch_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.
@ -675,11 +678,6 @@ contains
map = psb_linmap(psb_map_gen_linear_,desc_a,& map = psb_linmap(psb_map_gen_linear_,desc_a,&
& desc_ac,op_restr,op_prol,ilaggr,nlaggr) & desc_ac,op_restr,op_prol,ilaggr,nlaggr)
end if end if
if(info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='sp_Free')
goto 9999
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

2
amgprec/amg_s_symdec_aggregator_mod.f90
Unescape Escape View File

@ -97,7 +97,7 @@ contains
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

3
amgprec/amg_z_base_aggregator_mod.f90
Unescape Escape View File

@ -302,7 +302,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Do nothing ! Do nothing
info = psb_success_
return return
end subroutine amg_z_base_aggregator_set_aggr_type end subroutine amg_z_base_aggregator_set_aggr_type
@ -486,6 +486,7 @@ contains
integer(psb_ipk_) :: err_act integer(psb_ipk_) :: err_act
character(len=20) :: name='z_base_aggregator_bld_map' character(len=20) :: name='z_base_aggregator_bld_map'
info = psb_success_
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
! !
! Copy the prolongation/restriction matrices into the descriptor map. ! Copy the prolongation/restriction matrices into the descriptor map.

3
amgprec/amg_z_dec_aggregator_mod.f90
Unescape Escape View File

@ -150,7 +150,7 @@ contains
class(amg_z_dec_aggregator_type), intent(inout) :: ag class(amg_z_dec_aggregator_type), intent(inout) :: ag
type(amg_dml_parms), intent(in) :: parms type(amg_dml_parms), intent(in) :: parms
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
info = psb_success_
select case(parms%aggr_type) select case(parms%aggr_type)
case (amg_noalg_) case (amg_noalg_)
ag%soc_map_bld => null() ag%soc_map_bld => null()
@ -192,6 +192,7 @@ contains
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

2
amgprec/amg_z_symdec_aggregator_mod.f90
Unescape Escape View File

@ -97,7 +97,7 @@ contains
character(len=*), intent(in), optional :: prefix character(len=*), intent(in), optional :: prefix
character(1024) :: prefix_ character(1024) :: prefix_
info = psb_success_
if (present(prefix)) then if (present(prefix)) then
prefix_ = prefix prefix_ = prefix
else else

Write Preview
Loading…
Cancel
Save