 Usage:  {r,s}=stointp(aIh,b,N)  
 
 Input:

  aIh                    dim: p; diag. of Eigenvalues of A I^{1/2}, 
                         I Fisher-Information (all >=0)! 
                         
  b                      numeric; clipping height >0 
                         
  N                      numeric; sample size for MC-Integration 
                         
 Output:

  r                      p-dim; r=diag(E[ YY' u min(b/|aIhY|,u) ]) 
                         
  s                      p-dim; s=diag(E[ YY' min(b/|aIhY|,u)^2 ]) 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
