[BACK]Return to dorcsd.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dorcsd.f between versions 1.2 and 1.3

version 1.2, 2010/12/21 13:53:34 version 1.3, 2011/07/22 07:38:08
Line 5 Line 5
      $                             LDV2T, WORK, LWORK, IWORK, INFO )       $                             LDV2T, WORK, LWORK, IWORK, INFO )
       IMPLICIT NONE        IMPLICIT NONE
 *  *
 *  -- LAPACK routine (version 3.3.0) --  *  -- LAPACK routine (version 3.3.1) --
 *  *
 *  -- Contributed by Brian Sutton of the Randolph-Macon College --  *  -- Contributed by Brian Sutton of the Randolph-Macon College --
 *  -- November 2010  *  -- November 2010
Line 13 Line 13
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--       *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--     
 *  *
   * @precisions normal d -> s
   *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS        CHARACTER          JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS
       INTEGER            INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12,        INTEGER            INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12,
Line 144 Line 146
 *          this value as the first entry of the work array, and no error  *          this value as the first entry of the work array, and no error
 *          message related to LWORK is issued by XERBLA.  *          message related to LWORK is issued by XERBLA.
 *  *
 *  IWORK   (workspace) INTEGER array, dimension (M-Q)  *  IWORK   (workspace) INTEGER array, dimension (M-MIN(P, M-P, Q, M-Q))
 *  *
 *  INFO    (output) INTEGER  *  INFO    (output) INTEGER
 *          = 0:  successful exit.  *          = 0:  successful exit.
Line 302 Line 304
      $              IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKOPT ) - 1       $              IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKOPT ) - 1
          LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN,           LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN,
      $              IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKMIN ) - 1       $              IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKMIN ) - 1
          WORK(1) = LWORKOPT           WORK(1) = MAX(LWORKOPT,LWORKMIN)
 *  *
          IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN           IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN
             INFO = -22              INFO = -22
Removed from v.1.2  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>