psblas3:

base/tools/psb_csphalo.F90 base/tools/psb_dsphalo.F90 base/tools/psb_ssphalo.F90 base/tools/psb_zsphalo.F90 Wrong order of arguments in call to get_list in sphalo (but was irrelevant to overall correctness)
11 years ago · 9c16a09111
parent d5827395ca
commit 9c16a09111
4 changed files with 4 additions and 4 deletions
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@ -158,7 +158,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
    goto 9999
  end select

-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)

  l1  = 0

--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@ -158,7 +158,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
    goto 9999
  end select

-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)

  l1  = 0

--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@ -158,7 +158,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
    goto 9999
  end select

-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)

  l1  = 0

--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@ -158,7 +158,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
    goto 9999
  end select

-  call desc_a%get_list(data_,idxv,totxch,nxs,nxr,info)
+  call desc_a%get_list(data_,idxv,totxch,nxr,nxs,info)

  l1  = 0