NUM_IMAGES— Function that returns the number of images
Returns the number of images.
Fortran 2008 and later. With DISTANCE or FAILED argument, Technical Specification (TS) 18508 or later
RESULT = NUM_IMAGES(DISTANCE, FAILED)
|DISTANCE||(optional, intent(in)) Nonnegative scalar integer|
|FAILED||(optional, intent(in)) Scalar logical expression|
Scalar default-kind integer. If DISTANCE is not present or has value 0,
the number of images in the current team is returned. For values smaller or
equal distance to the initial team, it returns the number of images index
on the ancestor team which has a distance of DISTANCE from the invoking
team. If DISTANCE is larger than the distance to the initial team, the
number of images of the initial team is returned. If FAILED is not present
the total number of images is returned; if it has the value
the number of failed images is returned, otherwise, the number of images which
do have not the failed status.
INTEGER :: value[*] INTEGER :: i value = THIS_IMAGE() SYNC ALL IF (THIS_IMAGE() == 1) THEN DO i = 1, NUM_IMAGES() WRITE(*,'(2(a,i0))') 'value[', i, '] is ', value[i] END DO END IF