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

Renamed macro SP_A2AV_MAT into SP_A2AV_TRIAD

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent cdaae0b484
commit cc9ef42464
8 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File

4
base/tools/psb_c_glob_transpose.F90
Unescape Escape View File

@ -81,7 +81,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
@ -290,7 +290,7 @@ subroutine psb_lc_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
& acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),& & acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)

10
base/tools/psb_csphalo.F90
Unescape Escape View File

@ -57,7 +57,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rowscale,colscale,outfmt,data) & rowscale,colscale,outfmt,data)
use psb_base_mod, psb_protect_name => psb_csphalo use psb_base_mod, psb_protect_name => psb_csphalo
@ -331,7 +331,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& iarcv,rvsz,brvindx,ictxt,info) & iarcv,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& jarcv,rvsz,brvindx,ictxt,info) & jarcv,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info) & acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info)
#else #else
@ -423,7 +423,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -766,7 +766,7 @@ Subroutine psb_lcsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -1117,7 +1117,7 @@ Subroutine psb_lc_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else

4
base/tools/psb_d_glob_transpose.F90
Unescape Escape View File

@ -81,7 +81,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
@ -290,7 +290,7 @@ subroutine psb_ld_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
& acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),& & acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)

10
base/tools/psb_dsphalo.F90
Unescape Escape View File

@ -57,7 +57,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rowscale,colscale,outfmt,data) & rowscale,colscale,outfmt,data)
use psb_base_mod, psb_protect_name => psb_dsphalo use psb_base_mod, psb_protect_name => psb_dsphalo
@ -331,7 +331,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& iarcv,rvsz,brvindx,ictxt,info) & iarcv,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& jarcv,rvsz,brvindx,ictxt,info) & jarcv,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info) & acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info)
#else #else
@ -423,7 +423,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -766,7 +766,7 @@ Subroutine psb_ldsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -1117,7 +1117,7 @@ Subroutine psb_ld_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else

4
base/tools/psb_s_glob_transpose.F90
Unescape Escape View File

@ -81,7 +81,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
@ -290,7 +290,7 @@ subroutine psb_ls_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
& acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),& & acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)

10
base/tools/psb_ssphalo.F90
Unescape Escape View File

@ -57,7 +57,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rowscale,colscale,outfmt,data) & rowscale,colscale,outfmt,data)
use psb_base_mod, psb_protect_name => psb_ssphalo use psb_base_mod, psb_protect_name => psb_ssphalo
@ -331,7 +331,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& iarcv,rvsz,brvindx,ictxt,info) & iarcv,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& jarcv,rvsz,brvindx,ictxt,info) & jarcv,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info) & acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info)
#else #else
@ -423,7 +423,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -766,7 +766,7 @@ Subroutine psb_lssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -1117,7 +1117,7 @@ Subroutine psb_ls_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else

4
base/tools/psb_z_glob_transpose.F90
Unescape Escape View File

@ -81,7 +81,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx) subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
#ifdef MPI_MOD #ifdef MPI_MOD
use mpi use mpi
@ -290,7 +290,7 @@ subroutine psb_lz_coo_glob_transpose(ain,desc_r,info,atrans,desc_c,desc_rx)
& acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ia(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),& & acoo%val(nzl+1:nzl+iszr),acoo%ia(nzl+1:nzl+iszr),&
& acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info) & acoo%ja(nzl+1:nzl+iszr),rvsz,brvindx,ictxt,info)

10
base/tools/psb_zsphalo.F90
Unescape Escape View File

@ -57,7 +57,7 @@
! !
#undef SP_A2AV_MPI #undef SP_A2AV_MPI
#undef SP_A2AV_XI #undef SP_A2AV_XI
#define SP_A2AV_MAT #define SP_A2AV_TRIAD
Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rowscale,colscale,outfmt,data) & rowscale,colscale,outfmt,data)
use psb_base_mod, psb_protect_name => psb_zsphalo use psb_base_mod, psb_protect_name => psb_zsphalo
@ -331,7 +331,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& iarcv,rvsz,brvindx,ictxt,info) & iarcv,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& jarcv,rvsz,brvindx,ictxt,info) & jarcv,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info) & acoo%val,iarcv,jarcv,rvsz,brvindx,ictxt,info)
#else #else
@ -423,7 +423,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -766,7 +766,7 @@ Subroutine psb_lzsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else
@ -1117,7 +1117,7 @@ Subroutine psb_lz_csr_halo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ia,rvsz,brvindx,ictxt,info) & acoo%ia,rvsz,brvindx,ictxt,info)
if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,&
& acoo%ja,rvsz,brvindx,ictxt,info) & acoo%ja,rvsz,brvindx,ictxt,info)
#elif defined(SP_A2AV_MAT) #elif defined(SP_A2AV_TRIAD)
call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,&
& acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info) & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ictxt,info)
#else #else

Write Preview
Loading…
Cancel
Save