科学的规划
研究文章

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

清单7

实现集体和例程。
子例程vector_co_sum_serial(向量)
真正的(rkind),意图(inout)::向量(:)[*]
整数图像
同步所有
如果(this_image()= = 1)然后
做形象= 2,num_images()
向量(:) 1 =向量(:) 1 +矢量(:)[图片]
最后做
如果
同步所有
如果(this_image()/ = 1)矢量(,)= (:) 1
同步所有
子程序结束