IMAGE_INDEX(3) - [COLLECTIVE] Cosubscript to image index conversion
result = image_index(coarray, sub)
IMAGE_INDEX(3) returns the image index belonging to a cosubscript.
o COARRAY : Coarray of any type. o 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.
Sample program:
program demo image_index implicit none 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]) end demo image_index
Fortran 2008
THIS_IMAGE(3), NUM_IMAGES(3)
Fortran intrinsic descriptions
Nemo Release 3.1 | image_index (3fortran) | November 02, 2024 |