IMAGE_INDEX— Function that converts a cosubscript to an image index
Returns the image index belonging to a cosubscript.
Fortran 2008 and later
RESULT = IMAGE_INDEX(COARRAY, SUB)
|COARRAY||Coarray of any type.|
|SUB||default integer rank-1 array of a size equal to the corank of COARRAY.|
Scalar default integer with the value of the image index which corresponds to the cosubscripts. For invalid cosubscripts the result is zero.
INTEGER :: array[2,-1:4,8,*] ! Writes 28 (or 0 if there are fewer than 28 images) WRITE (*,*) IMAGE_INDEX (array, [2,0,3,1])