psblas3

base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 Silly double allocation bug.
13 years ago · eb26a4958c
parent bd193bc97c
commit eb26a4958c
4 changed files with 0 additions and 36 deletions
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@ -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
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@ -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
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@ -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
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@ -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