projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 49b7de3)
changed variable names from LAM_MAX to SING_MAX and from LAM_MIN to SING_MIN to refle...
authorigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 19 Aug 2015 21:17:27 +0000 (21:17 +0000)
committerigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 19 Aug 2015 21:17:27 +0000 (21:17 +0000)
TESTING/LIN/cchkhe_rook.f patch | blob | history
TESTING/LIN/cchksy_rook.f patch | blob | history
TESTING/LIN/dchksy_rook.f patch | blob | history
TESTING/LIN/schksy_rook.f patch | blob | history
TESTING/LIN/zchkhe_rook.f patch | blob | history
TESTING/LIN/zchksy_rook.f patch | blob | history

diff --git a/TESTING/LIN/cchkhe_rook.f b/TESTING/LIN/cchkhe_rook.f
index a58b590a296b44d65767241d2a314c1103661593..0296eeba2014be604f4005222755fa4cd774ca39 100644 (file)
--- a/TESTING/LIN/cchkhe_rook.f
+++ b/TESTING/LIN/cchkhe_rook.f
@@ -214,8 +214,8 @@
      $                   ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA,
      $                   LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS,
      $                   NRUN, NT
-      REAL               ALPHA, ANORM, CNDNUM, CONST, LAM_MAX, LAM_MIN,
-     $                   RCOND, RCONDC, STEMP
+      REAL               ALPHA, ANORM, CNDNUM, CONST, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC, STEMP
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -234,7 +234,7 @@
      $                   CHETRI_ROOK, CHETRS_ROOK, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          MAX, MIN, SQRT
+      INTRINSIC          CONJG, MAX, MIN, SQRT
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -634,7 +634,7 @@
 *
                         BLOCK( 1, 1 ) = AFAC( ( K-2 )*LDA+K-1 )
                         BLOCK( 1, 2 ) = AFAC( (K-1)*LDA+K-1 )
-                        BLOCK( 2, 1 ) = BLOCK( 1, 2 )
+                        BLOCK( 2, 1 ) = CONJG( BLOCK( 1, 2 ) )
                         BLOCK( 2, 2 ) = AFAC( (K-1)*LDA+K )
 *
                         CALL CGESVD( 'N', 'N', 2, 2, BLOCK, 2, RWORK,
@@ -642,10 +642,10 @@
      $                               WORK, 6, RWORK( 3 ), INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
@@ -678,17 +678,17 @@
 *
                         BLOCK( 1, 1 ) = AFAC( ( K-1 )*LDA+K )
                         BLOCK( 2, 1 ) = AFAC( ( K-1 )*LDA+K+1 )
-                        BLOCK( 1, 2 ) = BLOCK( 2, 1 )
+                        BLOCK( 1, 2 ) = CONJG( BLOCK( 2, 1 ) )
                         BLOCK( 2, 2 ) = AFAC( K*LDA+K+1 )
 *
                         CALL CGESVD( 'N', 'N', 2, 2, BLOCK, 2, RWORK,
      $                               CDUMMY, 1, CDUMMY, 1,
      $                               WORK, 6, RWORK(3), INFO )
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f
index 9b77efae656501235318994214eb512cbeb63592..285395835848d1774a5d8427de11e1244159a3bb 100644 (file)
--- a/TESTING/LIN/cchksy_rook.f
+++ b/TESTING/LIN/cchksy_rook.f
@@ -214,8 +214,8 @@
      $                   ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA,
      $                   LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS,
      $                   NRUN, NT
-      REAL               ALPHA, ANORM, CNDNUM, CONST, LAM_MAX, LAM_MIN,
-     $                   RCOND, RCONDC, STEMP
+      REAL               ALPHA, ANORM, CNDNUM, CONST, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC, STEMP
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -653,10 +653,10 @@
      $                               WORK, 6, RWORK( 3 ), INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
@@ -696,10 +696,10 @@
      $                               CDUMMY, 1, CDUMMY, 1,
      $                               WORK, 6, RWORK(3), INFO )
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
diff --git a/TESTING/LIN/dchksy_rook.f b/TESTING/LIN/dchksy_rook.f
index 4e3ec5bfd55ed4d0bb23d4385978ee26c4bc8935..bdec3e3d73d90a07dc9fecfd5a5048d11cf7776b 100644 (file)
--- a/TESTING/LIN/dchksy_rook.f
+++ b/TESTING/LIN/dchksy_rook.f
@@ -208,8 +208,8 @@
      $                   ITEMP, IUPLO, IZERO, J, K, KL, KU, LDA, LWORK,
      $                   MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN,
      $                   NT
-      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, DTEMP, LAM_MAX,
-     $                   LAM_MIN, RCOND, RCONDC
+      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, DTEMP, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -632,10 +632,10 @@
      $                               DDUMMY, 1, DDUMMY, 1,
      $                               WORK, 10, INFO )
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
@@ -676,10 +676,10 @@
      $                               WORK, 10, INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
diff --git a/TESTING/LIN/schksy_rook.f b/TESTING/LIN/schksy_rook.f
index 38cb63bb88b4b14d096e3bc209b1340b6d328c5c..246b4ea6ab9745cbc32dd6d0abe87289c39038a3 100644 (file)
--- a/TESTING/LIN/schksy_rook.f
+++ b/TESTING/LIN/schksy_rook.f
@@ -208,8 +208,8 @@
      $                   ITEMP, IUPLO, IZERO, J, K, KL, KU, LDA, LWORK,
      $                   MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN,
      $                   NT
-      REAL               ALPHA, ANORM, CNDNUM, CONST, LAM_MAX, LAM_MIN,
-     $                   RCOND, RCONDC, STEMP
+      REAL               ALPHA, ANORM, CNDNUM, CONST, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC, STEMP
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -633,10 +633,10 @@
      $                               WORK, 10, INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
@@ -677,10 +677,10 @@
      $                               WORK, 10, INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        STEMP = LAM_MAX / LAM_MIN
+                        STEMP = SING_MAX / SING_MIN
 *
 *                       STEMP should be bounded by CONST
 *
diff --git a/TESTING/LIN/zchkhe_rook.f b/TESTING/LIN/zchkhe_rook.f
index decebb9bd7d0db9b7d8f8706364d8bfef44e0d15..1230ee8472379707d23bb4183eed824222f3372c 100644 (file)
--- a/TESTING/LIN/zchkhe_rook.f
+++ b/TESTING/LIN/zchkhe_rook.f
@@ -214,8 +214,8 @@
      $                   ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA,
      $                   LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS,
      $                   NRUN, NT
-      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, LAM_MAX, LAM_MIN,
-     $                   RCOND, RCONDC, DTEMP
+      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC, DTEMP
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -234,7 +234,7 @@
      $                   ZHETRI_ROOK, ZHETRS_ROOK, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          MAX, MIN, SQRT
+      INTRINSIC          CONJG, MAX, MIN, SQRT
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -634,7 +634,7 @@
 *
                         BLOCK( 1, 1 ) = AFAC( ( K-2 )*LDA+K-1 )
                         BLOCK( 1, 2 ) = AFAC( (K-1)*LDA+K-1 )
-                        BLOCK( 2, 1 ) = BLOCK( 1, 2 )
+                        BLOCK( 2, 1 ) = CONJG( BLOCK( 1, 2 ) )
                         BLOCK( 2, 2 ) = AFAC( (K-1)*LDA+K )
 *
                         CALL ZGESVD( 'N', 'N', 2, 2, BLOCK, 2, RWORK,
@@ -642,10 +642,10 @@
      $                               WORK, 6, RWORK( 3 ), INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
@@ -678,17 +678,17 @@
 *
                         BLOCK( 1, 1 ) = AFAC( ( K-1 )*LDA+K )
                         BLOCK( 2, 1 ) = AFAC( ( K-1 )*LDA+K+1 )
-                        BLOCK( 1, 2 ) = BLOCK( 2, 1 )
+                        BLOCK( 1, 2 ) = CONJG( BLOCK( 2, 1 ) )
                         BLOCK( 2, 2 ) = AFAC( K*LDA+K+1 )
 *
                         CALL ZGESVD( 'N', 'N', 2, 2, BLOCK, 2, RWORK,
      $                               ZDUMMY, 1, ZDUMMY, 1,
      $                               WORK, 6, RWORK(3), INFO )
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
diff --git a/TESTING/LIN/zchksy_rook.f b/TESTING/LIN/zchksy_rook.f
index 5eb83ebfa4fdb127f4a64b26e1de0609e3e85867..398a45a04a9c5e9a434517e1e7ecbc4977a1ce02 100644 (file)
--- a/TESTING/LIN/zchksy_rook.f
+++ b/TESTING/LIN/zchksy_rook.f
@@ -214,8 +214,8 @@
      $                   ITEMP, ITEMP2, IUPLO, IZERO, J, K, KL, KU, LDA,
      $                   LWORK, MODE, N, NB, NERRS, NFAIL, NIMAT, NRHS,
      $                   NRUN, NT
-      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, DTEMP, LAM_MAX,
-     $                   LAM_MIN, RCOND, RCONDC
+      DOUBLE PRECISION   ALPHA, ANORM, CNDNUM, CONST, DTEMP, SING_MAX,
+     $                   SING_MIN, RCOND, RCONDC
 *     ..
 *     .. Local Arrays ..
       CHARACTER          UPLOS( 2 )
@@ -653,10 +653,10 @@
      $                               WORK, 6, RWORK( 3 ), INFO )
 *
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
@@ -696,10 +696,10 @@
      $                               ZDUMMY, 1, ZDUMMY, 1,
      $                               WORK, 6, RWORK(3), INFO )
 *
-                        LAM_MAX = RWORK( 1 )
-                        LAM_MIN = RWORK( 2 )
+                        SING_MAX = RWORK( 1 )
+                        SING_MIN = RWORK( 2 )
 *
-                        DTEMP = LAM_MAX / LAM_MIN
+                        DTEMP = SING_MAX / SING_MIN
 *
 *                       DTEMP should be bounded by CONST
 *
Domain: System / Base;