研究文章
使用Coarrays遗留Fortran程序并行化:策略和案例研究
| 整数::my_first [*], my_last [*] |
| my_first =lbound(sn, 2) |
| my_last =ubound(sn, 2) |
| 做l = 1,num_images() |
| cr_global (:, my_first [l]: my_last [l]) = cr (:,:) [l] |
| sn_global (:, my_first [l]: my_last [l]) = sn (:,:) [l] |
| 最后做 |
|
