To: J3                                                     J3/26-221r1
From: Soren Rasmussen & HPC
Subject: Edits to replace the THIS_IMAGE example
Date: 2026-October-28


1. Introduction
---------------

This paper contains edits to 17.9.220 THIS_IMAGE, paragraph 6, Examples Case
(ii).



The issues with this example are
  1. Performs a naive pull-broadcast through a coarray, instead of calling
     the CO_BROADCAST collective subroutine, which should be expected
     to provide more scalable performance at large image counts.
  2. P is never declared, and it would have to be a coarray for P[1] to work.

2. Edits to 26-007r2
--------------------

[537:24-27] 17.9.220 THIS_IMAGE, paragraph 6 (Examples), Case (ii)

Replace the current text and code of Case (ii):

"
Case (ii): The following code uses image 1 to read data. The other images then
           copy the data.

   IF (THIS_IMAGE()==1) READ (*,*) P
   SYNC ALL
   P = P[1]
"

with:

"
Case (ii): The following statement prints a message from the first image of
           the current team.

  IF (THIS_IMAGE() == 1) PRINT *, "Phase one completed"
"