 Usage:  r = mlegpdiag (x, k)  
 
 Input:

  x                      vector 
                         
  k                      vector, number of exceedances 
                         
 Output:

  r                      vector with shape parameters 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
