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

psblas3-integer8:

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


Advance in tools.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent a84ca2d351
commit f059962c4c
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

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

@ -169,7 +169,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
idx = 0 idx = 0
idxs = 0 idxs = 0
idxr = 0 idxr = 0
call acoo%allocate(0,a%get_ncols(),info) call acoo%allocate(izero,a%get_ncols(),info)
! For all rows in the halo descriptor, extract and send/receive. ! For all rows in the halo descriptor, extract and send/receive.
Do Do
proc=idxv(counter) proc=idxv(counter)
@ -298,7 +298,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
l1 = 0 l1 = 0
call acoo%set_nrows(0) call acoo%set_nrows(izero)
! !
irmin = huge(irmin) irmin = huge(irmin)
icmin = huge(icmin) icmin = huge(icmin)

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

@ -169,7 +169,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
idx = 0 idx = 0
idxs = 0 idxs = 0
idxr = 0 idxr = 0
call acoo%allocate(0,a%get_ncols(),info) call acoo%allocate(izero,a%get_ncols(),info)
! For all rows in the halo descriptor, extract and send/receive. ! For all rows in the halo descriptor, extract and send/receive.
Do Do
proc=idxv(counter) proc=idxv(counter)
@ -298,7 +298,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
l1 = 0 l1 = 0
call acoo%set_nrows(0) call acoo%set_nrows(izero)
! !
irmin = huge(irmin) irmin = huge(irmin)
icmin = huge(icmin) icmin = huge(icmin)

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

@ -169,7 +169,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
idx = 0 idx = 0
idxs = 0 idxs = 0
idxr = 0 idxr = 0
call acoo%allocate(0,a%get_ncols(),info) call acoo%allocate(izero,a%get_ncols(),info)
! For all rows in the halo descriptor, extract and send/receive. ! For all rows in the halo descriptor, extract and send/receive.
Do Do
proc=idxv(counter) proc=idxv(counter)
@ -298,7 +298,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
l1 = 0 l1 = 0
call acoo%set_nrows(0) call acoo%set_nrows(izero)
! !
irmin = huge(irmin) irmin = huge(irmin)
icmin = huge(icmin) icmin = huge(icmin)

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

@ -169,7 +169,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
idx = 0 idx = 0
idxs = 0 idxs = 0
idxr = 0 idxr = 0
call acoo%allocate(0,a%get_ncols(),info) call acoo%allocate(izero,a%get_ncols(),info)
! For all rows in the halo descriptor, extract and send/receive. ! For all rows in the halo descriptor, extract and send/receive.
Do Do
proc=idxv(counter) proc=idxv(counter)
@ -298,7 +298,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
end if end if
l1 = 0 l1 = 0
call acoo%set_nrows(0) call acoo%set_nrows(izero)
! !
irmin = huge(irmin) irmin = huge(irmin)
icmin = huge(icmin) icmin = huge(icmin)

Write Preview
Loading…
Cancel
Save