科学的规划
研究文章

使用Coarrays遗留Fortran程序并行化:策略和案例研究

清单3

并行循环通过分割粒子。
!遍历的粒子
做l = my_first_particle my_last_particle 4
k =nint(√6(真正的(左)* 0.5))
m = (l−(1 + 2 * k * (k−1)−4)) / 4
!第一个八分仪
!做一些计算
!第二个八分仪
!做一些计算
!第三个八分仪
!做一些计算
!第四个八分仪
!做一些计算
最后做