\? Description. This is a FORTRAN 77-callable version of the HPF intrinsic
SHAPE, as it would behave as called from HPF_LOCAL.
\? Arguments.
SHAPE is a rank-one, integer array of size equal to at
least the rank of the subgrid associated with ARRAY.
Its return value is the shape of that subgrid.