From bf40c96646dc0d1fff231a7f8a02fcfe5921d43c Mon Sep 17 00:00:00 2001 From: sfilippone Date: Thu, 17 Sep 2026 11:37:16 +0200 Subject: [PATCH] Minor fixes to silence Intel compiler warnings. --- base/auxil/psi_desc_impl.f90 | 1 + base/auxil/psi_indx_map_fnd_owner.F90 | 6 ++-- base/modules/desc/psb_indx_map_mod.F90 | 36 ++++++++++++++++-------- base/serial/impl/psb_base_mat_impl.f90 | 2 ++ base/serial/impl/psb_c_base_mat_impl.F90 | 12 ++++++++ base/serial/impl/psb_d_base_mat_impl.F90 | 12 ++++++++ base/serial/impl/psb_s_base_mat_impl.F90 | 12 ++++++++ base/serial/impl/psb_z_base_mat_impl.F90 | 12 ++++++++ base/tools/psb_c_remap.F90 | 30 +++++++++----------- base/tools/psb_d_remap.F90 | 30 +++++++++----------- base/tools/psb_s_remap.F90 | 30 +++++++++----------- base/tools/psb_z_remap.F90 | 30 +++++++++----------- 12 files changed, 130 insertions(+), 83 deletions(-) diff --git a/base/auxil/psi_desc_impl.f90 b/base/auxil/psi_desc_impl.f90 index 5743f97bc..ace23dcdd 100644 --- a/base/auxil/psi_desc_impl.f90 +++ b/base/auxil/psi_desc_impl.f90 @@ -41,6 +41,7 @@ subroutine psi_i_renum_index(iperm,idx,info) integer(psb_ipk_) :: i,j,k,nh + info = 0 i=1 k=idx(i) do while (k /= -1) diff --git a/base/auxil/psi_indx_map_fnd_owner.F90 b/base/auxil/psi_indx_map_fnd_owner.F90 index 95fc97e65..1d13b016a 100644 --- a/base/auxil/psi_indx_map_fnd_owner.F90 +++ b/base/auxil/psi_indx_map_fnd_owner.F90 @@ -207,9 +207,9 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj) call psb_amx(ctxt,tidx) call psb_amx(ctxt,t1) if (me == psb_root_) then - write(psb_out_unit,'(" fnd_owner idx time : ",es10.4)') tidx - write(psb_out_unit,'(" fnd_owner amx time : ",es10.4)') tamx - write(psb_out_unit,'(" fnd_owner remainedr : ",es10.4)') t1 + write(psb_out_unit,'(" fnd_owner idx time : ",es16.4)') tidx + write(psb_out_unit,'(" fnd_owner amx time : ",es16.4)') tamx + write(psb_out_unit,'(" fnd_owner remainedr : ",es16.4)') t1 endif end if diff --git a/base/modules/desc/psb_indx_map_mod.F90 b/base/modules/desc/psb_indx_map_mod.F90 index e99bbc691..e68c34586 100644 --- a/base/modules/desc/psb_indx_map_mod.F90 +++ b/base/modules/desc/psb_indx_map_mod.F90 @@ -744,7 +744,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) @@ -790,7 +791,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -841,7 +843,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) @@ -887,7 +890,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -936,7 +940,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -985,7 +990,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1033,7 +1039,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1082,7 +1089,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1131,7 +1139,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1181,7 +1190,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1230,7 +1240,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return @@ -1280,7 +1291,8 @@ contains ! This is the base version. If we get here ! it means the derived class is incomplete, ! so we throw an error. - info = psb_err_missing_override_method_ + info = psb_err_missing_override_method_ + idxout(:) = -1 call psb_errpush(info,name,a_err=idxmap%get_fmt()) call psb_error_handler(err_act) return diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index 83a8e6405..2fb622064 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -166,6 +166,7 @@ subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_base_csgetptn @@ -457,6 +458,7 @@ subroutine psb_lbase_csgetptn(imin,imax,a,nz,ia,ja,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) end subroutine psb_lbase_csgetptn diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index e04a742c4..83e83aeca 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -416,6 +416,7 @@ subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1729,6 +1730,7 @@ subroutine psb_c_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1750,6 +1752,7 @@ subroutine psb_c_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1771,6 +1774,7 @@ subroutine psb_c_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1792,6 +1796,7 @@ subroutine psb_c_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1816,6 +1821,7 @@ subroutine psb_c_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -2887,6 +2893,7 @@ subroutine psb_lc_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3812,6 +3819,7 @@ subroutine psb_lc_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3833,6 +3841,7 @@ subroutine psb_lc_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3854,6 +3863,7 @@ subroutine psb_lc_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3875,6 +3885,7 @@ subroutine psb_lc_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -4038,6 +4049,7 @@ subroutine psb_lc_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = czero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index 0b54601ac..669089da4 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -416,6 +416,7 @@ subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1729,6 +1730,7 @@ subroutine psb_d_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1750,6 +1752,7 @@ subroutine psb_d_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1771,6 +1774,7 @@ subroutine psb_d_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1792,6 +1796,7 @@ subroutine psb_d_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1816,6 +1821,7 @@ subroutine psb_d_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -2887,6 +2893,7 @@ subroutine psb_ld_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3812,6 +3819,7 @@ subroutine psb_ld_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3833,6 +3841,7 @@ subroutine psb_ld_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3854,6 +3863,7 @@ subroutine psb_ld_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3875,6 +3885,7 @@ subroutine psb_ld_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -4038,6 +4049,7 @@ subroutine psb_ld_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = dzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index 7fe841e3f..197765c5c 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -416,6 +416,7 @@ subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1729,6 +1730,7 @@ subroutine psb_s_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1750,6 +1752,7 @@ subroutine psb_s_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1771,6 +1774,7 @@ subroutine psb_s_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1792,6 +1796,7 @@ subroutine psb_s_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1816,6 +1821,7 @@ subroutine psb_s_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -2887,6 +2893,7 @@ subroutine psb_ls_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3812,6 +3819,7 @@ subroutine psb_ls_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3833,6 +3841,7 @@ subroutine psb_ls_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3854,6 +3863,7 @@ subroutine psb_ls_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3875,6 +3885,7 @@ subroutine psb_ls_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -4038,6 +4049,7 @@ subroutine psb_ls_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = szero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index b488fd0da..b36f195b6 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -416,6 +416,7 @@ subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1729,6 +1730,7 @@ subroutine psb_z_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1750,6 +1752,7 @@ subroutine psb_z_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1771,6 +1774,7 @@ subroutine psb_z_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1792,6 +1796,7 @@ subroutine psb_z_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -1816,6 +1821,7 @@ subroutine psb_z_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -2887,6 +2893,7 @@ subroutine psb_lz_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + nz = -1 call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3812,6 +3819,7 @@ subroutine psb_lz_base_rowsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3833,6 +3841,7 @@ subroutine psb_lz_base_arwsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3854,6 +3863,7 @@ subroutine psb_lz_base_colsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -3875,6 +3885,7 @@ subroutine psb_lz_base_aclsum(d,a) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) @@ -4038,6 +4049,7 @@ subroutine psb_lz_base_get_diag(a,d,info) ! it means the derived class is incomplete, ! so we throw an error. info = psb_err_missing_override_method_ + d = zzero call psb_errpush(info,name,a_err=a%get_fmt()) call psb_error_handler(err_act) diff --git a/base/tools/psb_c_remap.F90 b/base/tools/psb_c_remap.F90 index e5ccd9a04..93319c3a4 100644 --- a/base/tools/psb_c_remap.F90 +++ b/base/tools/psb_c_remap.F90 @@ -222,8 +222,6 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & nzp = nzp + nzsrc(ip) end do call acoo_rcv%set_nzeros(nzp) -!!$ write(0,*) rme,' Collected: ',& -!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros() ! ! New descriptor @@ -237,9 +235,6 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & call psb_cdasb(desc_out,info) call psb_spasb(a_out,desc_out,info) -!!$ write(0,*) rme,' Regenerated: ',& -!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),& -!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros() naggr(me+1) = desc_out%get_local_rows() else naggr(me+1) = 0 @@ -257,16 +252,17 @@ subroutine psb_c_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & return end subroutine psb_c_remap -subroutine psb_c_remap2(map_in, desc_new, map_out, flag, info) - use psb_base_mod, psb_protect_name => psb_c_remap2 - - implicit none - !....parameters... - type(psb_desc_type), intent(inout) :: desc_new - type(psb_clinmap_type), intent(inout) :: map_in - type(psb_clinmap_type), intent(out) :: map_out - integer(psb_ipk_), intent(in) :: flag - integer(psb_ipk_), intent(out) :: info - -end subroutine psb_c_remap2 +!!$subroutine psb_c_remap2(map_in, desc_new, map_out, flag, info) +!!$ +!!$ use psb_base_mod, psb_protect_name => psb_c_remap2 +!!$ +!!$ implicit none +!!$ !....parameters... +!!$ type(psb_desc_type), intent(inout) :: desc_new +!!$ type(psb_clinmap_type), intent(inout) :: map_in +!!$ type(psb_clinmap_type), intent(out) :: map_out +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ +!!$end subroutine psb_c_remap2 diff --git a/base/tools/psb_d_remap.F90 b/base/tools/psb_d_remap.F90 index fb2ce2754..771b2e285 100644 --- a/base/tools/psb_d_remap.F90 +++ b/base/tools/psb_d_remap.F90 @@ -222,8 +222,6 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & nzp = nzp + nzsrc(ip) end do call acoo_rcv%set_nzeros(nzp) -!!$ write(0,*) rme,' Collected: ',& -!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros() ! ! New descriptor @@ -237,9 +235,6 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & call psb_cdasb(desc_out,info) call psb_spasb(a_out,desc_out,info) -!!$ write(0,*) rme,' Regenerated: ',& -!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),& -!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros() naggr(me+1) = desc_out%get_local_rows() else naggr(me+1) = 0 @@ -257,16 +252,17 @@ subroutine psb_d_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & return end subroutine psb_d_remap -subroutine psb_d_remap2(map_in, desc_new, map_out, flag, info) - use psb_base_mod, psb_protect_name => psb_d_remap2 - - implicit none - !....parameters... - type(psb_desc_type), intent(inout) :: desc_new - type(psb_dlinmap_type), intent(inout) :: map_in - type(psb_dlinmap_type), intent(out) :: map_out - integer(psb_ipk_), intent(in) :: flag - integer(psb_ipk_), intent(out) :: info - -end subroutine psb_d_remap2 +!!$subroutine psb_d_remap2(map_in, desc_new, map_out, flag, info) +!!$ +!!$ use psb_base_mod, psb_protect_name => psb_d_remap2 +!!$ +!!$ implicit none +!!$ !....parameters... +!!$ type(psb_desc_type), intent(inout) :: desc_new +!!$ type(psb_dlinmap_type), intent(inout) :: map_in +!!$ type(psb_dlinmap_type), intent(out) :: map_out +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ +!!$end subroutine psb_d_remap2 diff --git a/base/tools/psb_s_remap.F90 b/base/tools/psb_s_remap.F90 index 3f861fd88..a5023ae74 100644 --- a/base/tools/psb_s_remap.F90 +++ b/base/tools/psb_s_remap.F90 @@ -222,8 +222,6 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & nzp = nzp + nzsrc(ip) end do call acoo_rcv%set_nzeros(nzp) -!!$ write(0,*) rme,' Collected: ',& -!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros() ! ! New descriptor @@ -237,9 +235,6 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & call psb_cdasb(desc_out,info) call psb_spasb(a_out,desc_out,info) -!!$ write(0,*) rme,' Regenerated: ',& -!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),& -!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros() naggr(me+1) = desc_out%get_local_rows() else naggr(me+1) = 0 @@ -257,16 +252,17 @@ subroutine psb_s_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & return end subroutine psb_s_remap -subroutine psb_s_remap2(map_in, desc_new, map_out, flag, info) - use psb_base_mod, psb_protect_name => psb_s_remap2 - - implicit none - !....parameters... - type(psb_desc_type), intent(inout) :: desc_new - type(psb_slinmap_type), intent(inout) :: map_in - type(psb_slinmap_type), intent(out) :: map_out - integer(psb_ipk_), intent(in) :: flag - integer(psb_ipk_), intent(out) :: info - -end subroutine psb_s_remap2 +!!$subroutine psb_s_remap2(map_in, desc_new, map_out, flag, info) +!!$ +!!$ use psb_base_mod, psb_protect_name => psb_s_remap2 +!!$ +!!$ implicit none +!!$ !....parameters... +!!$ type(psb_desc_type), intent(inout) :: desc_new +!!$ type(psb_slinmap_type), intent(inout) :: map_in +!!$ type(psb_slinmap_type), intent(out) :: map_out +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ +!!$end subroutine psb_s_remap2 diff --git a/base/tools/psb_z_remap.F90 b/base/tools/psb_z_remap.F90 index 706f09869..cc912f61e 100644 --- a/base/tools/psb_z_remap.F90 +++ b/base/tools/psb_z_remap.F90 @@ -222,8 +222,6 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & nzp = nzp + nzsrc(ip) end do call acoo_rcv%set_nzeros(nzp) -!!$ write(0,*) rme,' Collected: ',& -!!$ & acoo_rcv%get_nrows(),acoo_rcv%get_ncols(),acoo_rcv%get_nzeros() ! ! New descriptor @@ -237,9 +235,6 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & call psb_cdasb(desc_out,info) call psb_spasb(a_out,desc_out,info) -!!$ write(0,*) rme,' Regenerated: ',& -!!$ & desc_out%get_local_rows(), desc_out%get_local_cols(),& -!!$ & a_out%get_nrows(),a_out%get_ncols(),a_out%get_nzeros() naggr(me+1) = desc_out%get_local_rows() else naggr(me+1) = 0 @@ -257,16 +252,17 @@ subroutine psb_z_remap(np_remap, desc_in, a_in, ipd, isrc, nrsrc, naggr, & return end subroutine psb_z_remap -subroutine psb_z_remap2(map_in, desc_new, map_out, flag, info) - use psb_base_mod, psb_protect_name => psb_z_remap2 - - implicit none - !....parameters... - type(psb_desc_type), intent(inout) :: desc_new - type(psb_zlinmap_type), intent(inout) :: map_in - type(psb_zlinmap_type), intent(out) :: map_out - integer(psb_ipk_), intent(in) :: flag - integer(psb_ipk_), intent(out) :: info - -end subroutine psb_z_remap2 +!!$subroutine psb_z_remap2(map_in, desc_new, map_out, flag, info) +!!$ +!!$ use psb_base_mod, psb_protect_name => psb_z_remap2 +!!$ +!!$ implicit none +!!$ !....parameters... +!!$ type(psb_desc_type), intent(inout) :: desc_new +!!$ type(psb_zlinmap_type), intent(inout) :: map_in +!!$ type(psb_zlinmap_type), intent(out) :: map_out +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ +!!$end subroutine psb_z_remap2