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

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

version 1.2, 2010/12/21 13:53:58 version 1.3, 2011/07/22 07:38:21
Line 6 Line 6
      $                             IWORK, INFO )       $                             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 14 Line 14
 *  -- 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 z -> c
   *
 *     .. 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 157 Line 159
 *          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 LRWORK is issued by XERBLA.  *          message related to LRWORK 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 327 Line 329
      $              IORBDB + LORBDBWORKOPT ) - 1       $              IORBDB + LORBDBWORKOPT ) - 1
          LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN,           LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN,
      $              IORBDB + LORBDBWORKMIN ) - 1       $              IORBDB + LORBDBWORKMIN ) - 1
          WORK(1) = LWORKOPT           WORK(1) = MAX(LWORKOPT,LWORKMIN)
 *  *
          IF( LWORK .LT. LWORKMIN           IF( LWORK .LT. LWORKMIN
      $       .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN       $       .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN
Removed from v.1.2  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>