aDimArr()

         Returns the dimension number of an array

    Syntax:

         aDimArr ( aArray ) -> nDim

         aArray : The array to treat

    Description:

         Returns the dimension number of an array. Tha array has to be
         homogeneous since that uses the first position to calculate the
         dimensions.

    Return:

         The array dimensions.

    Example:

         nMax := aDimArr ( { 2, 3, 1, 9, 7 } )          // 1
         nMax := aDimArr ( { { 12, 12 }, { 1, 1 } } )   // 2