diff --git a/base/modules/penv/psi_c_collective_mod.F90 b/base/modules/penv/psi_c_collective_mod.F90 index 118cdc00..6da00176 100644 --- a/base/modules/penv/psi_c_collective_mod.F90 +++ b/base/modules/penv/psi_c_collective_mod.F90 @@ -147,7 +147,6 @@ contains end subroutine psb_csums subroutine psb_csumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -215,7 +214,6 @@ contains end subroutine psb_csumv subroutine psb_csumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -354,7 +352,6 @@ contains end subroutine psb_camxs subroutine psb_camxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -422,7 +419,6 @@ contains end subroutine psb_camxv subroutine psb_camxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -560,7 +556,6 @@ contains end subroutine psb_camns subroutine psb_camnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -628,7 +623,6 @@ contains end subroutine psb_camnv subroutine psb_camnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -755,7 +749,6 @@ contains end subroutine psb_cbcasts subroutine psb_cbcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -811,7 +804,6 @@ contains end subroutine psb_cbcastv subroutine psb_cbcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -977,7 +969,6 @@ contains end subroutine psb_cexscan_sums subroutine psb_cscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1027,7 +1018,6 @@ contains end subroutine psb_cscan_sumv subroutine psb_cexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_d_collective_mod.F90 b/base/modules/penv/psi_d_collective_mod.F90 index 225aa3c6..1f91c69e 100644 --- a/base/modules/penv/psi_d_collective_mod.F90 +++ b/base/modules/penv/psi_d_collective_mod.F90 @@ -157,7 +157,6 @@ contains end subroutine psb_dmaxs subroutine psb_dmaxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -226,7 +225,6 @@ contains end subroutine psb_dmaxv subroutine psb_dmaxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -364,7 +362,6 @@ contains end subroutine psb_dmins subroutine psb_dminv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -432,7 +429,6 @@ contains end subroutine psb_dminv subroutine psb_dminm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -573,7 +569,6 @@ contains end subroutine psb_d_nrm2s subroutine psb_d_nrm2v(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -712,7 +707,6 @@ contains end subroutine psb_dsums subroutine psb_dsumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -780,7 +774,6 @@ contains end subroutine psb_dsumv subroutine psb_dsumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -919,7 +912,6 @@ contains end subroutine psb_damxs subroutine psb_damxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -987,7 +979,6 @@ contains end subroutine psb_damxv subroutine psb_damxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1125,7 +1116,6 @@ contains end subroutine psb_damns subroutine psb_damnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1193,7 +1183,6 @@ contains end subroutine psb_damnv subroutine psb_damnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1320,7 +1309,6 @@ contains end subroutine psb_dbcasts subroutine psb_dbcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1376,7 +1364,6 @@ contains end subroutine psb_dbcastv subroutine psb_dbcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1542,7 +1529,6 @@ contains end subroutine psb_dexscan_sums subroutine psb_dscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1592,7 +1578,6 @@ contains end subroutine psb_dscan_sumv subroutine psb_dexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_e_collective_mod.F90 b/base/modules/penv/psi_e_collective_mod.F90 index 4e3f9637..7f57f2a6 100644 --- a/base/modules/penv/psi_e_collective_mod.F90 +++ b/base/modules/penv/psi_e_collective_mod.F90 @@ -154,7 +154,6 @@ contains end subroutine psb_emaxs subroutine psb_emaxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -223,7 +222,6 @@ contains end subroutine psb_emaxv subroutine psb_emaxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -361,7 +359,6 @@ contains end subroutine psb_emins subroutine psb_eminv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -429,7 +426,6 @@ contains end subroutine psb_eminv subroutine psb_eminm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -569,7 +565,6 @@ contains end subroutine psb_esums subroutine psb_esumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -637,7 +632,6 @@ contains end subroutine psb_esumv subroutine psb_esumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -776,7 +770,6 @@ contains end subroutine psb_eamxs subroutine psb_eamxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -844,7 +837,6 @@ contains end subroutine psb_eamxv subroutine psb_eamxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -982,7 +974,6 @@ contains end subroutine psb_eamns subroutine psb_eamnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1050,7 +1041,6 @@ contains end subroutine psb_eamnv subroutine psb_eamnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1177,7 +1167,6 @@ contains end subroutine psb_ebcasts subroutine psb_ebcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1233,7 +1222,6 @@ contains end subroutine psb_ebcastv subroutine psb_ebcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1399,7 +1387,6 @@ contains end subroutine psb_eexscan_sums subroutine psb_escan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1449,7 +1436,6 @@ contains end subroutine psb_escan_sumv subroutine psb_eexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_i2_collective_mod.F90 b/base/modules/penv/psi_i2_collective_mod.F90 index 022fcbdf..bfe3bf35 100644 --- a/base/modules/penv/psi_i2_collective_mod.F90 +++ b/base/modules/penv/psi_i2_collective_mod.F90 @@ -154,7 +154,6 @@ contains end subroutine psb_i2maxs subroutine psb_i2maxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -223,7 +222,6 @@ contains end subroutine psb_i2maxv subroutine psb_i2maxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -361,7 +359,6 @@ contains end subroutine psb_i2mins subroutine psb_i2minv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -429,7 +426,6 @@ contains end subroutine psb_i2minv subroutine psb_i2minm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -569,7 +565,6 @@ contains end subroutine psb_i2sums subroutine psb_i2sumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -637,7 +632,6 @@ contains end subroutine psb_i2sumv subroutine psb_i2summ(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -776,7 +770,6 @@ contains end subroutine psb_i2amxs subroutine psb_i2amxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -844,7 +837,6 @@ contains end subroutine psb_i2amxv subroutine psb_i2amxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -982,7 +974,6 @@ contains end subroutine psb_i2amns subroutine psb_i2amnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1050,7 +1041,6 @@ contains end subroutine psb_i2amnv subroutine psb_i2amnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1177,7 +1167,6 @@ contains end subroutine psb_i2bcasts subroutine psb_i2bcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1233,7 +1222,6 @@ contains end subroutine psb_i2bcastv subroutine psb_i2bcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1399,7 +1387,6 @@ contains end subroutine psb_i2exscan_sums subroutine psb_i2scan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1449,7 +1436,6 @@ contains end subroutine psb_i2scan_sumv subroutine psb_i2exscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_m_collective_mod.F90 b/base/modules/penv/psi_m_collective_mod.F90 index c63c148a..09995175 100644 --- a/base/modules/penv/psi_m_collective_mod.F90 +++ b/base/modules/penv/psi_m_collective_mod.F90 @@ -154,7 +154,6 @@ contains end subroutine psb_mmaxs subroutine psb_mmaxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -223,7 +222,6 @@ contains end subroutine psb_mmaxv subroutine psb_mmaxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -361,7 +359,6 @@ contains end subroutine psb_mmins subroutine psb_mminv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -429,7 +426,6 @@ contains end subroutine psb_mminv subroutine psb_mminm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -569,7 +565,6 @@ contains end subroutine psb_msums subroutine psb_msumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -637,7 +632,6 @@ contains end subroutine psb_msumv subroutine psb_msumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -776,7 +770,6 @@ contains end subroutine psb_mamxs subroutine psb_mamxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -844,7 +837,6 @@ contains end subroutine psb_mamxv subroutine psb_mamxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -982,7 +974,6 @@ contains end subroutine psb_mamns subroutine psb_mamnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1050,7 +1041,6 @@ contains end subroutine psb_mamnv subroutine psb_mamnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1177,7 +1167,6 @@ contains end subroutine psb_mbcasts subroutine psb_mbcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1233,7 +1222,6 @@ contains end subroutine psb_mbcastv subroutine psb_mbcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1399,7 +1387,6 @@ contains end subroutine psb_mexscan_sums subroutine psb_mscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1449,7 +1436,6 @@ contains end subroutine psb_mscan_sumv subroutine psb_mexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_s_collective_mod.F90 b/base/modules/penv/psi_s_collective_mod.F90 index e29a3a49..d8e6ba82 100644 --- a/base/modules/penv/psi_s_collective_mod.F90 +++ b/base/modules/penv/psi_s_collective_mod.F90 @@ -157,7 +157,6 @@ contains end subroutine psb_smaxs subroutine psb_smaxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -226,7 +225,6 @@ contains end subroutine psb_smaxv subroutine psb_smaxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -364,7 +362,6 @@ contains end subroutine psb_smins subroutine psb_sminv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -432,7 +429,6 @@ contains end subroutine psb_sminv subroutine psb_sminm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -573,7 +569,6 @@ contains end subroutine psb_s_nrm2s subroutine psb_s_nrm2v(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -712,7 +707,6 @@ contains end subroutine psb_ssums subroutine psb_ssumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -780,7 +774,6 @@ contains end subroutine psb_ssumv subroutine psb_ssumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -919,7 +912,6 @@ contains end subroutine psb_samxs subroutine psb_samxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -987,7 +979,6 @@ contains end subroutine psb_samxv subroutine psb_samxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1125,7 +1116,6 @@ contains end subroutine psb_samns subroutine psb_samnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1193,7 +1183,6 @@ contains end subroutine psb_samnv subroutine psb_samnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1320,7 +1309,6 @@ contains end subroutine psb_sbcasts subroutine psb_sbcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1376,7 +1364,6 @@ contains end subroutine psb_sbcastv subroutine psb_sbcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1542,7 +1529,6 @@ contains end subroutine psb_sexscan_sums subroutine psb_sscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1592,7 +1578,6 @@ contains end subroutine psb_sscan_sumv subroutine psb_sexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif diff --git a/base/modules/penv/psi_z_collective_mod.F90 b/base/modules/penv/psi_z_collective_mod.F90 index bf288edb..6f43742f 100644 --- a/base/modules/penv/psi_z_collective_mod.F90 +++ b/base/modules/penv/psi_z_collective_mod.F90 @@ -147,7 +147,6 @@ contains end subroutine psb_zsums subroutine psb_zsumv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -215,7 +214,6 @@ contains end subroutine psb_zsumv subroutine psb_zsumm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -354,7 +352,6 @@ contains end subroutine psb_zamxs subroutine psb_zamxv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -422,7 +419,6 @@ contains end subroutine psb_zamxv subroutine psb_zamxm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -560,7 +556,6 @@ contains end subroutine psb_zamns subroutine psb_zamnv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -628,7 +623,6 @@ contains end subroutine psb_zamnv subroutine psb_zamnm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -755,7 +749,6 @@ contains end subroutine psb_zbcasts subroutine psb_zbcastv(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -811,7 +804,6 @@ contains end subroutine psb_zbcastv subroutine psb_zbcastm(ctxt,dat,root,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -977,7 +969,6 @@ contains end subroutine psb_zexscan_sums subroutine psb_zscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif @@ -1027,7 +1018,6 @@ contains end subroutine psb_zscan_sumv subroutine psb_zexscan_sumv(ctxt,dat,mode,request) - use psb_realloc_mod #ifdef MPI_MOD use mpi #endif