From 9bd81680e31e55867b1a9637f9be956d94e22383 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Oct 2009 10:51:20 +0000 Subject: [PATCH] psblas3: base/comm/psb_dspgather.F90 base/modules/psb_s_csr_mat_mod.f03 prec/psb_dilu_fct.f90 Fixes for mld development. --- base/comm/psb_dspgather.F90 | 2 +- base/modules/psb_s_csr_mat_mod.f03 | 2 +- prec/psb_dilu_fct.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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'