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

Minor change to mat_dist_impl

Browse Source
pull/28/head
Salvatore Filippone 10 months ago
parent 25d63d156a
commit 6bb7725102
4 changed files with 16 additions and 24 deletions
Show Stats Download Patch File Download Diff File

10
util/psb_c_mat_dist_impl.f90
Unescape Escape View File

@ -238,6 +238,10 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
if (j_count > nrow) exit if (j_count > nrow) exit
if (j_count > lastigp) exit if (j_count > lastigp) exit
end do end do
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if end if
! now we should insert rows i_count..j_count-1 ! now we should insert rows i_count..j_count-1
@ -313,12 +317,6 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
end do end do
endif endif
i_count = j_count i_count = j_count
if ((use_vsz).and.(j_count <= nrow)) then
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if
end do end do
call psb_barrier(ctxt) call psb_barrier(ctxt)

10
util/psb_d_mat_dist_impl.f90
Unescape Escape View File

@ -238,6 +238,10 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
if (j_count > nrow) exit if (j_count > nrow) exit
if (j_count > lastigp) exit if (j_count > lastigp) exit
end do end do
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if end if
! now we should insert rows i_count..j_count-1 ! now we should insert rows i_count..j_count-1
@ -313,12 +317,6 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
end do end do
endif endif
i_count = j_count i_count = j_count
if ((use_vsz).and.(j_count <= nrow)) then
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if
end do end do
call psb_barrier(ctxt) call psb_barrier(ctxt)

10
util/psb_s_mat_dist_impl.f90
Unescape Escape View File

@ -238,6 +238,10 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
if (j_count > nrow) exit if (j_count > nrow) exit
if (j_count > lastigp) exit if (j_count > lastigp) exit
end do end do
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if end if
! now we should insert rows i_count..j_count-1 ! now we should insert rows i_count..j_count-1
@ -313,12 +317,6 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
end do end do
endif endif
i_count = j_count i_count = j_count
if ((use_vsz).and.(j_count <= nrow)) then
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if
end do end do
call psb_barrier(ctxt) call psb_barrier(ctxt)

10
util/psb_z_mat_dist_impl.f90
Unescape Escape View File

@ -238,6 +238,10 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
if (j_count > nrow) exit if (j_count > nrow) exit
if (j_count > lastigp) exit if (j_count > lastigp) exit
end do end do
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if end if
! now we should insert rows i_count..j_count-1 ! now we should insert rows i_count..j_count-1
@ -313,12 +317,6 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
end do end do
endif endif
i_count = j_count i_count = j_count
if ((use_vsz).and.(j_count <= nrow)) then
if (j_count > lastigp) then
iproc = iproc + 1
lastigp = lastigp + vsz(iproc+1)
end if
end if
end do end do
call psb_barrier(ctxt) call psb_barrier(ctxt)

Write Preview
Loading…
Cancel
Save