shape(3I)

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

SYNOPSIS
     SHAPE ([SOURCE=]source)

IMPLEMENTATION
     UNICOS, UNICOS/mk, IRIX systems

     CF90, MIPSpro 7 Fortran 90

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
     The value of SHAPE(A(2:5, -1:1)) is (/4, 3/).  The value of SHAPE(3)
     is the rank -1 array of size 0.

SEE ALSO
     Intrinsic Procedures Reference Manual for the printed version of this
     man page.