From 8360e7478e68278dea0324199d02e7ae0e904e79 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 6 Jan 2011 20:02:26 +0000 Subject: [PATCH] psblas3: 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. --- base/internals/psi_crea_index.f90 | 3 +-- base/serial/psb_znumbmm.f90 | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90 index 5222ddec..d30ed353 100644 --- a/base/internals/psi_crea_index.f90 +++ b/base/internals/psi_crea_index.f90 @@ -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) diff --git a/base/serial/psb_znumbmm.f90 b/base/serial/psb_znumbmm.f90 index 35081cbe..cf959b4a 100644 --- a/base/serial/psb_znumbmm.f90 +++ b/base/serial/psb_znumbmm.f90 @@ -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)