shape(3I)

NAME
     SHAPE - Returns the shape of an array or a scalar

SYNOPSIS
     SHAPE ([SOURCE=]source)

STANDARDS
     Fortran

DESCRIPTION
     The SHAPE intrinsic function returns the shape of an array or a
     scalar.  It accepts the following argument:

     source    May be of any type.  It can be array valued or scalar.  It
               must not be a pointer that is disassociated or an
               allocatable array that is not allocated.  It must not be an
               assumed-size array.

     SHAPE is an inquiry function.  The name of this intrinsic cannot be
     passed as an argument.

RETURN VALUES
     The result is a default integer array of rank 1 whose size is equal to
     the rank of source.  The value of the result is the shape of source.

EXAMPLES
     SHAPE(A(2:5,-1:1)) yields (/4,3/).

     SHAPE(3) yields a zero-sized, rank-one array.