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

psblas3

Browse Source 
base/tools/psb_csphalo.F90
 base/tools/psb_dsphalo.F90
 base/tools/psb_ssphalo.F90
 base/tools/psb_zsphalo.F90

Silly double allocation bug.
This commit is contained in:
Salvatore Filippone
2011-12-13 16:37:31 +00:00
parent bd193bc97c
commit eb26a4958c
4 changed files with 0 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_csphalo.F90
-9
View File
@@ -163,15 +163,6 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
goto 9999
end select
allocate(acoo,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
goto 9999
end if
l1 = 0
sdsz(:)=0
base/tools/psb_dsphalo.F90
-9
View File
@@ -163,15 +163,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
goto 9999
end select
allocate(acoo,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
goto 9999
end if
l1 = 0
sdsz(:)=0
base/tools/psb_ssphalo.F90
-9
View File
@@ -163,15 +163,6 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
goto 9999
end select
allocate(acoo,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
goto 9999
end if
l1 = 0
sdsz(:)=0
base/tools/psb_zsphalo.F90
-9
View File
@@ -163,15 +163,6 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
goto 9999
end select
allocate(acoo,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
goto 9999
end if
l1 = 0
sdsz(:)=0