Next: TIME, Previous: TANH, Up: Intrinsic Procedures
THIS_IMAGE
— Function that returns the cosubscript index of this imageRESULT = THIS_IMAGE()
|
RESULT = THIS_IMAGE(COARRAY [, DIM])
|
COARRAY | Coarray of any type (optional; if DIM
present, required).
|
DIM | default integer scalar (optional). If present,
DIM shall be between one and the corank of COARRAY.
|
THIS_IMAGE(COARRAY)
.
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