Scientific Programming / 2015 / Article / Lst 3

Research Article

High-Performance Design Patterns for Modern Fortran

Listing 3

if (this_image() == 3) then
 a(1, 1, 1)1] = a(1, 1, 1)2]
end if

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.