SHAPE

 SHAPE (source [,kind])

 Class:  Inquiry function - Generic

 Returns the shape of an array or scalar argument.

 The "source" must not be an assumed-size array, a disassociated
 pointer, or an allocatable array that is not allocated.  The "kind"
 must be a scalar integer initialization expression.

 The result is a rank-one integer array whose size is equal to the
 rank of "source".  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.  If the processor cannot
 represent the result value in the kind of the result, the result is
 undefined.

 The value of the result is the shape of "source".

 The setting of compiler options that specify integer size can
 affect the result of this function.

 Examples:

 SHAPE (2) has the value of a rank-one array of size zero.

 If B is declared as B(2:4, -3:1), then SHAPE (B) has the value (3,
 5).