Research Article

Using Coarrays to Parallelize Legacy Fortran Applications: Strategy and Case Study

Listing 6

Coarray method of gathering arrays.
integer  :: my_first[*], my_last[*]
my_first = lbound(sn, 2)
my_last = ubound(sn, 2)
do l = 1, num_images()
   cr_global(:, my_first[l]:my_last[l]) = cr(:,:)[l]
   sn_global(:, my_first[l]:my_last[l]) = sn(:,:)[l]
end do