fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-14 18:09:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Salvatore Filippone
2005-12-20 15:53:51 +00:00
parent 9054afb579
commit d0c3fdfa67
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/psb_dscall.f90
+1 -2
View File
@@ -202,8 +202,7 @@ subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
l_ov_el = l_ov_el+3
if (debug) write(*,*) 'PSB_DSCALL: Ov len',l_ov_ix,l_ov_el
call psb_realloc(l_ov_ix,ov_idx,info)
call psb_realloc(l_ov_el,ov_el,info)
allocate(ov_idx(l_ov_ix),ov_el(l_ov_el), stat=info)
if (info /= no_err) then
info=4010
char_err='psb_realloc'