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

*** empty log message ***

Browse Source
psblas-testmv
Salvatore Filippone 11 years ago
parent 9fb59c39b8
commit d5129cf77b
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File

20
base/modules/psb_repl_map_mod.f90
Unescape Escape View File

@ -393,7 +393,7 @@ contains
if (present(mask)) then if (present(mask)) then
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
do i=1, is do i=1, im
if (mask(i)) then if (mask(i)) then
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
@ -403,7 +403,7 @@ contains
end if end if
end do end do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
do i=1,is do i=1,im
if (mask(i)) then if (mask(i)) then
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
@ -413,14 +413,14 @@ contains
end if end if
end do end do
else else
idxout(1:is) = -1 idxout(1:im) = -1
info = -1 info = -1
end if end if
else if (.not.present(mask)) then else if (.not.present(mask)) then
if (idxmap%is_asb()) then if (idxmap%is_asb()) then
do i=1, is do i=1, im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
else else
@ -428,7 +428,7 @@ contains
end if end if
end do end do
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
do i=1,is do i=1,im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
else else
@ -436,7 +436,7 @@ contains
end if end if
end do end do
else else
idxout(1:is) = -1 idxout(1:im) = -1
info = -1 info = -1
end if end if
@ -614,7 +614,7 @@ contains
else if (idxmap%is_valid()) then else if (idxmap%is_valid()) then
if (present(lidx)) then if (present(lidx)) then
if (present(mask)) then if (present(mask)) then
do i=1, is do i=1, im
if (mask(i)) then if (mask(i)) then
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
@ -626,7 +626,7 @@ contains
else if (.not.present(mask)) then else if (.not.present(mask)) then
do i=1, is do i=1, im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
else else
@ -636,7 +636,7 @@ contains
end if end if
else if (.not.present(lidx)) then else if (.not.present(lidx)) then
if (present(mask)) then if (present(mask)) then
do i=1, is do i=1, im
if (mask(i)) then if (mask(i)) then
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
@ -647,7 +647,7 @@ contains
end do end do
else if (.not.present(mask)) then else if (.not.present(mask)) then
do i=1, is do i=1, im
if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then if ((1<= idxin(i)).and.(idxin(i) <= idxmap%global_rows)) then
idxout(i) = idxin(i) idxout(i) = idxin(i)
else else

Write Preview
Loading…
Cancel
Save