fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix spspmm allocation to avoid double free error

Browse Source
pull/28/head
Salvatore Filippone 8 months ago
parent 6bb7725102
commit 25f73d15db
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/impl/psb_c_csr_impl.F90
Unescape Escape View File

@ -4277,7 +4277,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero
@ -6652,7 +6652,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero

4
base/serial/impl/psb_d_csr_impl.F90
Unescape Escape View File

@ -4277,7 +4277,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero
@ -6652,7 +6652,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero

4
base/serial/impl/psb_s_csr_impl.F90
Unescape Escape View File

@ -4277,7 +4277,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero
@ -6652,7 +6652,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero

4
base/serial/impl/psb_z_csr_impl.F90
Unescape Escape View File

@ -4277,7 +4277,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero
@ -6652,7 +6652,7 @@ contains
nze = min(size(c%val),size(c%ja))
isz = max(ma,na,mb,nb)
call psb_realloc(nb,row,info)
if (info == 0) call psb_realloc(na,idxs,info)
if (info == 0) call psb_realloc(max(na,nb),idxs,info)
if (info == 0) call psb_realloc(nb,irow,info)
if (info /= 0) return
row = dzero

Write Preview
Loading…
Cancel
Save