  LDR &gt;= MAX(1, S*K ),        if TYPET = 'R' and P = 0;
          LDR &gt;= MAX(1, (S+1)*K ),    if TYPET = 'R' and P &gt; 0;
          LDR &gt;= MAX(1, N*K ),        if TYPET = 'C' and P = 0;
          LDR &gt;= MAX(1, (N-P+1)*K ),  if TYPET = 'C' and P &gt; 0.

</PRE>
<B>Workspace</B>
<PRE>
  DWORK   DOUBLE PRECISION array, dimension (LDWORK)
          On exit, if INFO = 0,  DWORK(1)  returns the optimal
          value of LDWORK.
          On exit, if  INFO = -11,  DWORK(1)  returns the minimum
      