你的程序是对的，我用gfortran跑出来是对的。看一下这个链接。
https://software.intel.com/en-us/fortran-compiler-developer-guide-and-reference-coarray-qcoarray
我以前用过VS的IDE，应该是Language > Enable Coarrays，然后在程序的option里面有改核心数的选项。
这个其实挺方便的因为你可以配置每个子程序所需要运行的核数。但是我觉得更方便的办法是你直接在cmd下运行ifort /Qcoarray:shared /Qcoarray-num-images:n xxx.f90

coarray用的人太少了，你可以试试openmp