psblas3:

base/comm/psb_dspgather.F90 base/modules/psb_s_csr_mat_mod.f03 prec/psb_dilu_fct.f90 Fixes for mld development.
15 years ago · 9bd81680e3
parent d52252a4d8
commit 9bd81680e3
3 changed files with 3 additions and 3 deletions
--- 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
--- 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)
      
--- 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'