/*
** olsc(const mY, const mX, const amB);
**      mY      in:  T x n matrix Y
**      mX      in:  T x k matrix X
**      amB     in:  address of variable
**              out: k x n matrix with OLS coefficients
**
** Return value
**      integer: 1: success, 2: rescaling advised,
**          -1: X'X is singular, -2: combines 2 and -1.
**
** Description
**      Performs OLS, expecting the data in columns.
**
** Example
**      error = ols(my, mx, &mb);
**
** Last changed
**      21-04-96 (Marius Ooms): made documentation
*/
