10 lines
210 B
Fortran
10 lines
210 B
Fortran
|
implicit none
|
||
|
|
|
||
|
|
if (this_image() == 1) print *, 'number of Fortran coarray images:', num_images()
|
||
|
|
|
||
|
|
sync all ! semaphore, ensures message above is printed at top.
|
||
|
|
|
||
|
|
print *, 'Process ', this_image()
|
||
|
|
|
||
|
|
end program
|