Don't use realloc on ov_idx ov_el, this generates strange errors.

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 9054afb579
commit d0c3fdfa67

@ -202,8 +202,7 @@ subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
l_ov_el = l_ov_el+3 l_ov_el = l_ov_el+3
if (debug) write(*,*) 'PSB_DSCALL: Ov len',l_ov_ix,l_ov_el if (debug) write(*,*) 'PSB_DSCALL: Ov len',l_ov_ix,l_ov_el
call psb_realloc(l_ov_ix,ov_idx,info) allocate(ov_idx(l_ov_ix),ov_el(l_ov_el), stat=info)
call psb_realloc(l_ov_el,ov_el,info)
if (info /= no_err) then if (info /= no_err) then
info=4010 info=4010
char_err='psb_realloc' char_err='psb_realloc'

Loading…
Cancel
Save