From 95b50f7182827fd8fe1485d8d651335d191b5f59 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 5 Mar 2013 14:16:54 +0000 Subject: [PATCH] *** empty log message *** --- base/tools/psb_icdasb.F90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index e56db556..99e12d92 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -165,9 +165,8 @@ subroutine psb_icdasb(desc,info,ext_hv) !datatypes allocation data_ = psb_comm_halo_ call desc%get_list(data_,idx,totxch,idxr,idxs,info) - totxch = max(1,totxch) - call psb_realloc(totxch,psb_nkidx_,desc%sendtypes,info) - if (info == 0) call psb_realloc(totxch,psb_nkidx_,desc%recvtypes,info) + call psb_realloc(max(1,totxch),psb_nkidx_,desc%sendtypes,info) + if (info == 0) call psb_realloc(max(1,totxch),psb_nkidx_,desc%recvtypes,info) if (info /= 0) then write(0,*) 'Failed alloc send/recvtypes',totxch,psb_nkidx_,info info =psb_err_alloc_dealloc_