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

psblas3:

Browse Source 
base/internals/psi_crea_index.f90
 base/serial/psb_znumbmm.f90

Silly bug in psb_znumbmm calling cnumbmm. 
crea_index was trying to get the size of an unallocated array.
This commit is contained in:
Salvatore Filippone
2011-01-06 20:02:26 +00:00
parent d4d408f950
commit 8360e7478e
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_crea_index.f90
+1 -2
View File
@@ -132,8 +132,7 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info
end if
if(debug_level >= psb_debug_inner_)&
& write(debug_unit,*) me,' ',trim(name),': calling psi_desc_index',&
& size(index_out)
& write(debug_unit,*) me,' ',trim(name),': calling psi_desc_index'
! Do the actual format conversion.
call psi_desc_index(desc_a,index_in,dep_list(1:,me),&
& length_dl(me),nsnd,nrcv, index_out,glob_idx,info)
base/serial/psb_znumbmm.f90
+1 -1
View File
@@ -169,7 +169,7 @@ contains
mb = b%get_nrows()
nb = b%get_ncols()
call cnumbmm(ma,na,nb,a%irp,a%ja,0,a%val,&
call znumbmm(ma,na,nb,a%irp,a%ja,0,a%val,&
& b%irp,b%ja,0,b%val,&
& c%irp,c%ja,0,c%val,temp)