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

Fix USE realloc

Browse Source
maint-3.7.1
Salvatore Filippone 3 years ago
parent 49fc0f5ef7
commit 896d7a8853
7 changed files with 0 additions and 92 deletions
Show Stats Download Patch File Download Diff File

10
base/modules/penv/psi_c_collective_mod.F90
Unescape Escape View File

@ -147,7 +147,6 @@ contains
end subroutine psb_csums end subroutine psb_csums
subroutine psb_csumv(ctxt,dat,root,mode,request) subroutine psb_csumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -215,7 +214,6 @@ contains
end subroutine psb_csumv end subroutine psb_csumv
subroutine psb_csumm(ctxt,dat,root,mode,request) subroutine psb_csumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -354,7 +352,6 @@ contains
end subroutine psb_camxs end subroutine psb_camxs
subroutine psb_camxv(ctxt,dat,root,mode,request) subroutine psb_camxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -422,7 +419,6 @@ contains
end subroutine psb_camxv end subroutine psb_camxv
subroutine psb_camxm(ctxt,dat,root,mode,request) subroutine psb_camxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -560,7 +556,6 @@ contains
end subroutine psb_camns end subroutine psb_camns
subroutine psb_camnv(ctxt,dat,root,mode,request) subroutine psb_camnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -628,7 +623,6 @@ contains
end subroutine psb_camnv end subroutine psb_camnv
subroutine psb_camnm(ctxt,dat,root,mode,request) subroutine psb_camnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -755,7 +749,6 @@ contains
end subroutine psb_cbcasts end subroutine psb_cbcasts
subroutine psb_cbcastv(ctxt,dat,root,mode,request) subroutine psb_cbcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -811,7 +804,6 @@ contains
end subroutine psb_cbcastv end subroutine psb_cbcastv
subroutine psb_cbcastm(ctxt,dat,root,mode,request) subroutine psb_cbcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -977,7 +969,6 @@ contains
end subroutine psb_cexscan_sums end subroutine psb_cexscan_sums
subroutine psb_cscan_sumv(ctxt,dat,mode,request) subroutine psb_cscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1027,7 +1018,6 @@ contains
end subroutine psb_cscan_sumv end subroutine psb_cscan_sumv
subroutine psb_cexscan_sumv(ctxt,dat,mode,request) subroutine psb_cexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

15
base/modules/penv/psi_d_collective_mod.F90
Unescape Escape View File

@ -157,7 +157,6 @@ contains
end subroutine psb_dmaxs end subroutine psb_dmaxs
subroutine psb_dmaxv(ctxt,dat,root,mode,request) subroutine psb_dmaxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -226,7 +225,6 @@ contains
end subroutine psb_dmaxv end subroutine psb_dmaxv
subroutine psb_dmaxm(ctxt,dat,root,mode,request) subroutine psb_dmaxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -364,7 +362,6 @@ contains
end subroutine psb_dmins end subroutine psb_dmins
subroutine psb_dminv(ctxt,dat,root,mode,request) subroutine psb_dminv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -432,7 +429,6 @@ contains
end subroutine psb_dminv end subroutine psb_dminv
subroutine psb_dminm(ctxt,dat,root,mode,request) subroutine psb_dminm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -573,7 +569,6 @@ contains
end subroutine psb_d_nrm2s end subroutine psb_d_nrm2s
subroutine psb_d_nrm2v(ctxt,dat,root,mode,request) subroutine psb_d_nrm2v(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -712,7 +707,6 @@ contains
end subroutine psb_dsums end subroutine psb_dsums
subroutine psb_dsumv(ctxt,dat,root,mode,request) subroutine psb_dsumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -780,7 +774,6 @@ contains
end subroutine psb_dsumv end subroutine psb_dsumv
subroutine psb_dsumm(ctxt,dat,root,mode,request) subroutine psb_dsumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -919,7 +912,6 @@ contains
end subroutine psb_damxs end subroutine psb_damxs
subroutine psb_damxv(ctxt,dat,root,mode,request) subroutine psb_damxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -987,7 +979,6 @@ contains
end subroutine psb_damxv end subroutine psb_damxv
subroutine psb_damxm(ctxt,dat,root,mode,request) subroutine psb_damxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1125,7 +1116,6 @@ contains
end subroutine psb_damns end subroutine psb_damns
subroutine psb_damnv(ctxt,dat,root,mode,request) subroutine psb_damnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1193,7 +1183,6 @@ contains
end subroutine psb_damnv end subroutine psb_damnv
subroutine psb_damnm(ctxt,dat,root,mode,request) subroutine psb_damnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1320,7 +1309,6 @@ contains
end subroutine psb_dbcasts end subroutine psb_dbcasts
subroutine psb_dbcastv(ctxt,dat,root,mode,request) subroutine psb_dbcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1376,7 +1364,6 @@ contains
end subroutine psb_dbcastv end subroutine psb_dbcastv
subroutine psb_dbcastm(ctxt,dat,root,mode,request) subroutine psb_dbcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1542,7 +1529,6 @@ contains
end subroutine psb_dexscan_sums end subroutine psb_dexscan_sums
subroutine psb_dscan_sumv(ctxt,dat,mode,request) subroutine psb_dscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1592,7 +1578,6 @@ contains
end subroutine psb_dscan_sumv end subroutine psb_dscan_sumv
subroutine psb_dexscan_sumv(ctxt,dat,mode,request) subroutine psb_dexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

14
base/modules/penv/psi_e_collective_mod.F90
Unescape Escape View File

@ -154,7 +154,6 @@ contains
end subroutine psb_emaxs end subroutine psb_emaxs
subroutine psb_emaxv(ctxt,dat,root,mode,request) subroutine psb_emaxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -223,7 +222,6 @@ contains
end subroutine psb_emaxv end subroutine psb_emaxv
subroutine psb_emaxm(ctxt,dat,root,mode,request) subroutine psb_emaxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -361,7 +359,6 @@ contains
end subroutine psb_emins end subroutine psb_emins
subroutine psb_eminv(ctxt,dat,root,mode,request) subroutine psb_eminv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -429,7 +426,6 @@ contains
end subroutine psb_eminv end subroutine psb_eminv
subroutine psb_eminm(ctxt,dat,root,mode,request) subroutine psb_eminm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -569,7 +565,6 @@ contains
end subroutine psb_esums end subroutine psb_esums
subroutine psb_esumv(ctxt,dat,root,mode,request) subroutine psb_esumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -637,7 +632,6 @@ contains
end subroutine psb_esumv end subroutine psb_esumv
subroutine psb_esumm(ctxt,dat,root,mode,request) subroutine psb_esumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -776,7 +770,6 @@ contains
end subroutine psb_eamxs end subroutine psb_eamxs
subroutine psb_eamxv(ctxt,dat,root,mode,request) subroutine psb_eamxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -844,7 +837,6 @@ contains
end subroutine psb_eamxv end subroutine psb_eamxv
subroutine psb_eamxm(ctxt,dat,root,mode,request) subroutine psb_eamxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -982,7 +974,6 @@ contains
end subroutine psb_eamns end subroutine psb_eamns
subroutine psb_eamnv(ctxt,dat,root,mode,request) subroutine psb_eamnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1050,7 +1041,6 @@ contains
end subroutine psb_eamnv end subroutine psb_eamnv
subroutine psb_eamnm(ctxt,dat,root,mode,request) subroutine psb_eamnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1177,7 +1167,6 @@ contains
end subroutine psb_ebcasts end subroutine psb_ebcasts
subroutine psb_ebcastv(ctxt,dat,root,mode,request) subroutine psb_ebcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1233,7 +1222,6 @@ contains
end subroutine psb_ebcastv end subroutine psb_ebcastv
subroutine psb_ebcastm(ctxt,dat,root,mode,request) subroutine psb_ebcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1399,7 +1387,6 @@ contains
end subroutine psb_eexscan_sums end subroutine psb_eexscan_sums
subroutine psb_escan_sumv(ctxt,dat,mode,request) subroutine psb_escan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1449,7 +1436,6 @@ contains
end subroutine psb_escan_sumv end subroutine psb_escan_sumv
subroutine psb_eexscan_sumv(ctxt,dat,mode,request) subroutine psb_eexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

14
base/modules/penv/psi_i2_collective_mod.F90
Unescape Escape View File

@ -154,7 +154,6 @@ contains
end subroutine psb_i2maxs end subroutine psb_i2maxs
subroutine psb_i2maxv(ctxt,dat,root,mode,request) subroutine psb_i2maxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -223,7 +222,6 @@ contains
end subroutine psb_i2maxv end subroutine psb_i2maxv
subroutine psb_i2maxm(ctxt,dat,root,mode,request) subroutine psb_i2maxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -361,7 +359,6 @@ contains
end subroutine psb_i2mins end subroutine psb_i2mins
subroutine psb_i2minv(ctxt,dat,root,mode,request) subroutine psb_i2minv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -429,7 +426,6 @@ contains
end subroutine psb_i2minv end subroutine psb_i2minv
subroutine psb_i2minm(ctxt,dat,root,mode,request) subroutine psb_i2minm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -569,7 +565,6 @@ contains
end subroutine psb_i2sums end subroutine psb_i2sums
subroutine psb_i2sumv(ctxt,dat,root,mode,request) subroutine psb_i2sumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -637,7 +632,6 @@ contains
end subroutine psb_i2sumv end subroutine psb_i2sumv
subroutine psb_i2summ(ctxt,dat,root,mode,request) subroutine psb_i2summ(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -776,7 +770,6 @@ contains
end subroutine psb_i2amxs end subroutine psb_i2amxs
subroutine psb_i2amxv(ctxt,dat,root,mode,request) subroutine psb_i2amxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -844,7 +837,6 @@ contains
end subroutine psb_i2amxv end subroutine psb_i2amxv
subroutine psb_i2amxm(ctxt,dat,root,mode,request) subroutine psb_i2amxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -982,7 +974,6 @@ contains
end subroutine psb_i2amns end subroutine psb_i2amns
subroutine psb_i2amnv(ctxt,dat,root,mode,request) subroutine psb_i2amnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1050,7 +1041,6 @@ contains
end subroutine psb_i2amnv end subroutine psb_i2amnv
subroutine psb_i2amnm(ctxt,dat,root,mode,request) subroutine psb_i2amnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1177,7 +1167,6 @@ contains
end subroutine psb_i2bcasts end subroutine psb_i2bcasts
subroutine psb_i2bcastv(ctxt,dat,root,mode,request) subroutine psb_i2bcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1233,7 +1222,6 @@ contains
end subroutine psb_i2bcastv end subroutine psb_i2bcastv
subroutine psb_i2bcastm(ctxt,dat,root,mode,request) subroutine psb_i2bcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1399,7 +1387,6 @@ contains
end subroutine psb_i2exscan_sums end subroutine psb_i2exscan_sums
subroutine psb_i2scan_sumv(ctxt,dat,mode,request) subroutine psb_i2scan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1449,7 +1436,6 @@ contains
end subroutine psb_i2scan_sumv end subroutine psb_i2scan_sumv
subroutine psb_i2exscan_sumv(ctxt,dat,mode,request) subroutine psb_i2exscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

14
base/modules/penv/psi_m_collective_mod.F90
Unescape Escape View File

@ -154,7 +154,6 @@ contains
end subroutine psb_mmaxs end subroutine psb_mmaxs
subroutine psb_mmaxv(ctxt,dat,root,mode,request) subroutine psb_mmaxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -223,7 +222,6 @@ contains
end subroutine psb_mmaxv end subroutine psb_mmaxv
subroutine psb_mmaxm(ctxt,dat,root,mode,request) subroutine psb_mmaxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -361,7 +359,6 @@ contains
end subroutine psb_mmins end subroutine psb_mmins
subroutine psb_mminv(ctxt,dat,root,mode,request) subroutine psb_mminv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -429,7 +426,6 @@ contains
end subroutine psb_mminv end subroutine psb_mminv
subroutine psb_mminm(ctxt,dat,root,mode,request) subroutine psb_mminm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -569,7 +565,6 @@ contains
end subroutine psb_msums end subroutine psb_msums
subroutine psb_msumv(ctxt,dat,root,mode,request) subroutine psb_msumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -637,7 +632,6 @@ contains
end subroutine psb_msumv end subroutine psb_msumv
subroutine psb_msumm(ctxt,dat,root,mode,request) subroutine psb_msumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -776,7 +770,6 @@ contains
end subroutine psb_mamxs end subroutine psb_mamxs
subroutine psb_mamxv(ctxt,dat,root,mode,request) subroutine psb_mamxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -844,7 +837,6 @@ contains
end subroutine psb_mamxv end subroutine psb_mamxv
subroutine psb_mamxm(ctxt,dat,root,mode,request) subroutine psb_mamxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -982,7 +974,6 @@ contains
end subroutine psb_mamns end subroutine psb_mamns
subroutine psb_mamnv(ctxt,dat,root,mode,request) subroutine psb_mamnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1050,7 +1041,6 @@ contains
end subroutine psb_mamnv end subroutine psb_mamnv
subroutine psb_mamnm(ctxt,dat,root,mode,request) subroutine psb_mamnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1177,7 +1167,6 @@ contains
end subroutine psb_mbcasts end subroutine psb_mbcasts
subroutine psb_mbcastv(ctxt,dat,root,mode,request) subroutine psb_mbcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1233,7 +1222,6 @@ contains
end subroutine psb_mbcastv end subroutine psb_mbcastv
subroutine psb_mbcastm(ctxt,dat,root,mode,request) subroutine psb_mbcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1399,7 +1387,6 @@ contains
end subroutine psb_mexscan_sums end subroutine psb_mexscan_sums
subroutine psb_mscan_sumv(ctxt,dat,mode,request) subroutine psb_mscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1449,7 +1436,6 @@ contains
end subroutine psb_mscan_sumv end subroutine psb_mscan_sumv
subroutine psb_mexscan_sumv(ctxt,dat,mode,request) subroutine psb_mexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

15
base/modules/penv/psi_s_collective_mod.F90
Unescape Escape View File

@ -157,7 +157,6 @@ contains
end subroutine psb_smaxs end subroutine psb_smaxs
subroutine psb_smaxv(ctxt,dat,root,mode,request) subroutine psb_smaxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -226,7 +225,6 @@ contains
end subroutine psb_smaxv end subroutine psb_smaxv
subroutine psb_smaxm(ctxt,dat,root,mode,request) subroutine psb_smaxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -364,7 +362,6 @@ contains
end subroutine psb_smins end subroutine psb_smins
subroutine psb_sminv(ctxt,dat,root,mode,request) subroutine psb_sminv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -432,7 +429,6 @@ contains
end subroutine psb_sminv end subroutine psb_sminv
subroutine psb_sminm(ctxt,dat,root,mode,request) subroutine psb_sminm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -573,7 +569,6 @@ contains
end subroutine psb_s_nrm2s end subroutine psb_s_nrm2s
subroutine psb_s_nrm2v(ctxt,dat,root,mode,request) subroutine psb_s_nrm2v(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -712,7 +707,6 @@ contains
end subroutine psb_ssums end subroutine psb_ssums
subroutine psb_ssumv(ctxt,dat,root,mode,request) subroutine psb_ssumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -780,7 +774,6 @@ contains
end subroutine psb_ssumv end subroutine psb_ssumv
subroutine psb_ssumm(ctxt,dat,root,mode,request) subroutine psb_ssumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -919,7 +912,6 @@ contains
end subroutine psb_samxs end subroutine psb_samxs
subroutine psb_samxv(ctxt,dat,root,mode,request) subroutine psb_samxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -987,7 +979,6 @@ contains
end subroutine psb_samxv end subroutine psb_samxv
subroutine psb_samxm(ctxt,dat,root,mode,request) subroutine psb_samxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1125,7 +1116,6 @@ contains
end subroutine psb_samns end subroutine psb_samns
subroutine psb_samnv(ctxt,dat,root,mode,request) subroutine psb_samnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1193,7 +1183,6 @@ contains
end subroutine psb_samnv end subroutine psb_samnv
subroutine psb_samnm(ctxt,dat,root,mode,request) subroutine psb_samnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1320,7 +1309,6 @@ contains
end subroutine psb_sbcasts end subroutine psb_sbcasts
subroutine psb_sbcastv(ctxt,dat,root,mode,request) subroutine psb_sbcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1376,7 +1364,6 @@ contains
end subroutine psb_sbcastv end subroutine psb_sbcastv
subroutine psb_sbcastm(ctxt,dat,root,mode,request) subroutine psb_sbcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1542,7 +1529,6 @@ contains
end subroutine psb_sexscan_sums end subroutine psb_sexscan_sums
subroutine psb_sscan_sumv(ctxt,dat,mode,request) subroutine psb_sscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1592,7 +1578,6 @@ contains
end subroutine psb_sscan_sumv end subroutine psb_sscan_sumv
subroutine psb_sexscan_sumv(ctxt,dat,mode,request) subroutine psb_sexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

10
base/modules/penv/psi_z_collective_mod.F90
Unescape Escape View File

@ -147,7 +147,6 @@ contains
end subroutine psb_zsums end subroutine psb_zsums
subroutine psb_zsumv(ctxt,dat,root,mode,request) subroutine psb_zsumv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -215,7 +214,6 @@ contains
end subroutine psb_zsumv end subroutine psb_zsumv
subroutine psb_zsumm(ctxt,dat,root,mode,request) subroutine psb_zsumm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -354,7 +352,6 @@ contains
end subroutine psb_zamxs end subroutine psb_zamxs
subroutine psb_zamxv(ctxt,dat,root,mode,request) subroutine psb_zamxv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -422,7 +419,6 @@ contains
end subroutine psb_zamxv end subroutine psb_zamxv
subroutine psb_zamxm(ctxt,dat,root,mode,request) subroutine psb_zamxm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -560,7 +556,6 @@ contains
end subroutine psb_zamns end subroutine psb_zamns
subroutine psb_zamnv(ctxt,dat,root,mode,request) subroutine psb_zamnv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -628,7 +623,6 @@ contains
end subroutine psb_zamnv end subroutine psb_zamnv
subroutine psb_zamnm(ctxt,dat,root,mode,request) subroutine psb_zamnm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -755,7 +749,6 @@ contains
end subroutine psb_zbcasts end subroutine psb_zbcasts
subroutine psb_zbcastv(ctxt,dat,root,mode,request) subroutine psb_zbcastv(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -811,7 +804,6 @@ contains
end subroutine psb_zbcastv end subroutine psb_zbcastv
subroutine psb_zbcastm(ctxt,dat,root,mode,request) subroutine psb_zbcastm(ctxt,dat,root,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -977,7 +969,6 @@ contains
end subroutine psb_zexscan_sums end subroutine psb_zexscan_sums
subroutine psb_zscan_sumv(ctxt,dat,mode,request) subroutine psb_zscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif
@ -1027,7 +1018,6 @@ contains
end subroutine psb_zscan_sumv end subroutine psb_zscan_sumv
subroutine psb_zexscan_sumv(ctxt,dat,mode,request) subroutine psb_zexscan_sumv(ctxt,dat,mode,request)
use psb_realloc_mod
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
#endif #endif

Write Preview
Loading…
Cancel
Save