Visible to Intel only — GUID: GUID-158F26A3-08C6-4ADB-9801-0B5317E55020
Visible to Intel only — GUID: GUID-158F26A3-08C6-4ADB-9801-0B5317E55020
COSHAPE
Inquiry Intrinsic Function (Generic): Returns the sizes of codimensions of a coarray.
result = COSHAPE (coarray [, kind])
coarray |
(Input) Is a coarray. It may be of any data type. It must not be an unallocated allocatable coarray. |
kind |
(Input; optional) Must be a scalar integer constant expression. |
The result is an integer array of rank one whose size is equal to the corank of coarray. If kind is present, the kind parameter of the result is that specified by kind; otherwise, the kind parameter of the result is that of default integer.
The result has a value whose ith element is equal to the size of the ith codimension of coarray as provided by UCOBOUND(coarray, i) − LCOBOUND(coarray, i) + 1.
The setting of compiler options specifying integer size can affect this function.
Consider the following coarray declaration:
REAL :: X (10, 20) [10, -1:8, 0:*]
It NUM_IMAGES() is 200, it has these properties:
RANK (X) == 2
corank of X == 3
SHAPE (X) == [10,20]
COSHAPE (X) == [10,10,2]
LCOBOUND (X) == [1, -1, 0]
UCOBOUND (X) == [10, 8, 1]