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

Fixed ambiguity in spfree vs sp_free (serial version). To be refined

Browse Source 
in the future? Probably.
This commit is contained in:
Salvatore Filippone
2006-03-10 12:28:55 +00:00
parent 97af703116
commit 9b586cf1e2
14 changed files with 102 additions and 216 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Fileread/mat_dist.f90
+4 -4
View File
@@ -470,10 +470,10 @@ contains
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
call psb_spfree(blck,info)
call psb_sp_free(blck,info)
if(info/=0)then
info=4010
ch_err='spfree'
ch_err='sp_free'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
@@ -823,10 +823,10 @@ contains
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
call psb_spfree(blck,info)
call psb_sp_free(blck,info)
if(info/=0)then
info=4010
ch_err='spfree'
ch_err='sp_free'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if