remove unused call to xLANGE

jip · jip · commit ff2f5dc2643c · 2021-05-14T22:21:18.000+10:00
diff --git a/TESTING/LIN/cqrt14.f b/TESTING/LIN/cqrt14.f
@@ -197,7 +197,6 @@ REAL             FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X,
          IF( XNRM.NE.ZERO )
      $      CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
      $                   WORK( N*LDWORK+1 ), LDWORK, INFO )
-         ANRM = CLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
 *
 *        Compute QR factorization of X
 *
diff --git a/TESTING/LIN/dqrt14.f b/TESTING/LIN/dqrt14.f
@@ -197,7 +197,6 @@ DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X,
          IF( XNRM.NE.ZERO )
      $      CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
      $                   WORK( N*LDWORK+1 ), LDWORK, INFO )
-         ANRM = DLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
 *
 *        Compute QR factorization of X
 *
diff --git a/TESTING/LIN/sqrt14.f b/TESTING/LIN/sqrt14.f
@@ -197,7 +197,6 @@ REAL             FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X,
          IF( XNRM.NE.ZERO )
      $      CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
      $                   WORK( N*LDWORK+1 ), LDWORK, INFO )
-         ANRM = SLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
 *
 *        Compute QR factorization of X
 *
diff --git a/TESTING/LIN/zqrt14.f b/TESTING/LIN/zqrt14.f
@@ -197,7 +197,6 @@ DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X,
          IF( XNRM.NE.ZERO )
      $      CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
      $                   WORK( N*LDWORK+1 ), LDWORK, INFO )
-         ANRM = ZLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
 *
 *        Compute QR factorization of X
 *

Original file line number	Diff line number	Diff line change
`@@ -197,7 +197,6 @@ REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X,`
`197`	`197`	`IF( XNRM.NE.ZERO )`
`198`	`198`	`$ CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,`
`199`	`199`	`$ WORK( N*LDWORK+1 ), LDWORK, INFO )`
`200`		`- ANRM = CLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )`
`201`	`200`	`*`
`202`	`201`	`* Compute QR factorization of X`
`203`	`202`	`*`
Original file line number	Diff line number	Diff line change
`@@ -197,7 +197,6 @@ DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X,`
`197`	`197`	`IF( XNRM.NE.ZERO )`
`198`	`198`	`$ CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,`
`199`	`199`	`$ WORK( N*LDWORK+1 ), LDWORK, INFO )`
`200`		`- ANRM = DLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )`
`201`	`200`	`*`
`202`	`201`	`* Compute QR factorization of X`
`203`	`202`	`*`
Original file line number	Diff line number	Diff line change
`@@ -197,7 +197,6 @@ REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X,`
`197`	`197`	`IF( XNRM.NE.ZERO )`
`198`	`198`	`$ CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,`
`199`	`199`	`$ WORK( N*LDWORK+1 ), LDWORK, INFO )`
`200`		`- ANRM = SLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )`
`201`	`200`	`*`
`202`	`201`	`* Compute QR factorization of X`
`203`	`202`	`*`