fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 15:14:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix USE realloc

Browse Source
This commit is contained in:
Salvatore Filippone
2022-04-15 12:02:30 +02:00
parent 49fc0f5ef7
commit 896d7a8853
7 changed files with 0 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_c_collective_mod.F90
-10
View File
@@ -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
base/modules/penv/psi_d_collective_mod.F90
-15
View File
@@ -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
base/modules/penv/psi_e_collective_mod.F90
-14
View File
@@ -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
base/modules/penv/psi_i2_collective_mod.F90
-14
View File
@@ -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
base/modules/penv/psi_m_collective_mod.F90
-14
View File
@@ -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
base/modules/penv/psi_s_collective_mod.F90
-15
View File
@@ -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
base/modules/penv/psi_z_collective_mod.F90
-10
View File
@@ -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