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

Always allocate szs in psb_gather

Browse Source
maint-3.8.1
sfilippone 1 year ago
parent baf18cebd7
commit d718ef1e6d
6 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File

4
base/comm/psb_cgather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

4
base/comm/psb_dgather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

4
base/comm/psb_igather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_igather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

4
base/comm/psb_lgather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_lgather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

4
base/comm/psb_sgather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

4
base/comm/psb_zgather.f90
Unescape Escape View File

@ -136,9 +136,7 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot)
end if end if
end do end do
if ((me == root).or.(root == -1)) then allocate(szs(np))
allocate(szs(np))
end if
loc_rows = desc_a%get_local_rows() loc_rows = desc_a%get_local_rows()
call psb_gather(ctxt,loc_rows,szs,root=root) call psb_gather(ctxt,loc_rows,szs,root=root)
if ((me == root).or.(root == -1)) then if ((me == root).or.(root == -1)) then

Write Preview
Loading…
Cancel
Save