 Usage:  d = xdiag (x)  
 
 Input:

  x                      n x n x d1 x d2 ... array of quadratic matrices 
                         
 Output:

  d                      n x 1 x d1 x d2 ... array of diagonal elements 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
