Fix type handling bug in simple_triad

base/modules/penv/psi_c_collective_mod.F90

@@ -1048,7 +1048,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_complex_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_c_spk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/modules/penv/psi_e_collective_mod.F90

@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int8_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_epk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/modules/penv/psi_i2_collective_mod.F90

@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int2_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_i2pk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/modules/penv/psi_m_collective_mod.F90

@@ -1416,7 +1416,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_int4_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_mpk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/modules/penv/psi_s_collective_mod.F90

@@ -1539,7 +1539,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_real_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_r_spk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/modules/penv/psi_z_collective_mod.F90

@@ -1048,7 +1048,7 @@ contains
         idx = bsdindx(ip+1)
         p2ptag = psb_dcomplex_tag
         call mpi_send(valsnd(idx+1:idx+sz),sz,&
-             & psb_mpi_r_dpk_,prcid(ip+1),&
+             & psb_mpi_c_dpk_,prcid(ip+1),&
              & p2ptag, icomm,iret)
         p2ptag = psb_int_swap_tag
         call mpi_send(iasnd(idx+1:idx+sz),sz,&

base/tools/psb_csphalo.F90

@@ -1284,7 +1284,7 @@ Subroutine psb_c_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
 
   if(psb_get_errstatus() /= 0) return 
   info=psb_success_
-  name='psb_lc_csr_sphalo'
+  name='psb_c_lc_csr_sphalo'
   call psb_erractionsave(err_act)
   if (psb_errstatus_fatal()) then
     info = psb_err_internal_error_ ;    goto 9999

base/tools/psb_dsphalo.F90

@@ -1284,7 +1284,7 @@ Subroutine psb_d_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
 
   if(psb_get_errstatus() /= 0) return 
   info=psb_success_
-  name='psb_ld_csr_sphalo'
+  name='psb_d_ld_csr_sphalo'
   call psb_erractionsave(err_act)
   if (psb_errstatus_fatal()) then
     info = psb_err_internal_error_ ;    goto 9999

base/tools/psb_ssphalo.F90

@@ -1284,7 +1284,7 @@ Subroutine psb_s_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
 
   if(psb_get_errstatus() /= 0) return 
   info=psb_success_
-  name='psb_ls_csr_sphalo'
+  name='psb_s_ls_csr_sphalo'
   call psb_erractionsave(err_act)
   if (psb_errstatus_fatal()) then
     info = psb_err_internal_error_ ;    goto 9999

base/tools/psb_zsphalo.F90

@@ -1284,7 +1284,7 @@ Subroutine psb_z_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
 
   if(psb_get_errstatus() /= 0) return 
   info=psb_success_
-  name='psb_lz_csr_sphalo'
+  name='psb_z_lz_csr_sphalo'
   call psb_erractionsave(err_act)
   if (psb_errstatus_fatal()) then
     info = psb_err_internal_error_ ;    goto 9999