High-Performance Design Patterns for Modern Fortran
Listing 15
if (num_images() == 1 .or. &
num_images() == 2) then
sync all
else
if (this_image() == 1) then
sync images([, num_images()])
elseif (this_image() == num_images()) then
sync images([, this_image() − ])
else
sync images([this_image() − 1, &
this_image() + 1])
endif
endif
We are committed to sharing findings related to COVID-19 as quickly as possible. We will be providing unlimited waivers of publication charges for accepted research articles as well as case reports and case series related to COVID-19. Review articles are excluded from this waiver policy. Sign up here as a reviewer to help fast-track new submissions.
