 Usage:  z = diag (x)  
 
 Input:

  x                      p x 1 matrix 
                         
 Output:

  z                      p x p diagonal matrix 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
