From 896d7a8853dcf7f555396e0b6989085bc2e4fa58 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 15 Apr 2022 12:02:30 +0200
Subject: [PATCH] Fix USE realloc

---
 base/modules/penv/psi_c_collective_mod.F90  | 10 ----------
 base/modules/penv/psi_d_collective_mod.F90  | 15 ---------------
 base/modules/penv/psi_e_collective_mod.F90  | 14 --------------
 base/modules/penv/psi_i2_collective_mod.F90 | 14 --------------
 base/modules/penv/psi_m_collective_mod.F90  | 14 --------------
 base/modules/penv/psi_s_collective_mod.F90  | 15 ---------------
 base/modules/penv/psi_z_collective_mod.F90  | 10 ----------
 7 files changed, 92 deletions(-)

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