---------------------------------------------------------------------------
   Returns the scalar part of a quaternion.
---------------------------------------------------------------------------
   Form:
   s = scalar( a )
---------------------------------------------------------------------------

   ------
   Inputs
   ------
   a       (:,:) Quaternion

   -------
   Outputs 
   -------
   s       (1,1) Scalar part

---------------------------------------------------------------------------