diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90
index aed45035..3262f9e1 100644
--- a/base/comm/psb_dspgather.F90
+++ b/base/comm/psb_dspgather.F90
@@ -2,7 +2,7 @@ subroutine  psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep
   use psb_descriptor_type
   use psb_error_mod
   use psb_mat_mod
-
+  use psb_penv_mod
 #ifdef MPI_MOD
   use mpi
 #endif
diff --git a/base/modules/psb_s_csr_mat_mod.f03 b/base/modules/psb_s_csr_mat_mod.f03
index fc546a5a..18d56d69 100644
--- a/base/modules/psb_s_csr_mat_mod.f03
+++ b/base/modules/psb_s_csr_mat_mod.f03
@@ -272,7 +272,7 @@ contains
     class(psb_s_csr_sparse_mat), intent(in) :: a
     integer(psb_long_int_k_) :: res
     res = 8 
-    res = res + psb_sizeof_dp  * size(a%val)
+    res = res + psb_sizeof_sp  * size(a%val)
     res = res + psb_sizeof_int * size(a%irp)
     res = res + psb_sizeof_int * size(a%ja)
       
diff --git a/prec/psb_dilu_fct.f90 b/prec/psb_dilu_fct.f90
index 644c1ab8..fcb10ed3 100644
--- a/prec/psb_dilu_fct.f90
+++ b/prec/psb_dilu_fct.f90
@@ -137,7 +137,7 @@ contains
     if(psb_get_errstatus() /= 0) return 
     info=0
     call psb_erractionsave(err_act)
-    call trw%allocate(0,0,info)
+    call trw%allocate(0,0,1)
     if(info /= 0) then
       info=4010
       ch_err='psb_sp_all'