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