Minor fixes to silence Intel compiler warnings.

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)

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
 

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

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

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)
 

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)
 

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)
 

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)
 

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

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

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

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