fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/comm/psb_dspgather.F90
 base/modules/psb_s_csr_mat_mod.f03
 prec/psb_dilu_fct.f90

Fixes for mld development.
This commit is contained in:
Salvatore Filippone
2009-10-14 10:51:20 +00:00
parent d52252a4d8
commit 9bd81680e3
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/comm/psb_dspgather.F90
+1 -1
View File
@@ -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
base/modules/psb_s_csr_mat_mod.f03
+1 -1
View File
@@ -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)
prec/psb_dilu_fct.f90
+1 -1
View File
@@ -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'