      if JOBSCL =  'N'.

  D       (output) DOUBLE PRECISION array, dimension (nd)
          If JOBSCL = 'S', then nd = N and D contains the diagonal
          elements of the diagonal scaling matrix in (2).
          If JOBSCL = '1' or 'O', then nd = 1 and D(1) is set to tau
          from (3). In this case, no other elements of D are
          referenced.
          If JOBSCL = 'N', this array is not referenced.

</PRE>
<B>Workspace</B>
<PRE>
  DWORK   DOUBLE PRECISION array, dimension (N)
          If JOB