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 |
|