Fix other spelling errors

weslleyspereira · weslleyspereira · commit e9de46b7bf65 · 2021-03-18T12:29:46.000-03:00
diff --git a/SRC/cgesvdq.f b/SRC/cgesvdq.f
@@ -640,7 +640,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
                  IF ( WNTVA ) THEN
 *                   .. minimal workspace length for N x N/2 CGEQRF
                     LWQRF  = MAX( N/2, 1 )
-*                   .. minimal workspace lengthfor N/2 x N/2 CGESVD
+*                   .. minimal workspace length for N/2 x N/2 CGESVD
                     LWSVD2 = MAX( 3 * (N/2), 1 )
                     LWUNQ2 = MAX( N, 1 )
                     MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2,
diff --git a/SRC/dgesvdq.f b/SRC/dgesvdq.f
@@ -641,7 +641,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
                  IF ( WNTVA ) THEN
 *                   .. minimal workspace length for N x N/2 DGEQRF
                     LWQRF  = MAX( N/2, 1 )
-*                   .. minimal workspace lengthfor N/2 x N/2 DGESVD
+*                   .. minimal workspace length for N/2 x N/2 DGESVD
                     LWSVD2 = MAX( 5 * (N/2), 1 )
                     LWORQ2 = MAX( N, 1 )
                     MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2,
diff --git a/SRC/sgesvdq.f b/SRC/sgesvdq.f
@@ -644,7 +644,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
                  IF ( WNTVA ) THEN
 *                   .. minimal workspace length for N x N/2 SGEQRF
                     LWQRF  = MAX( N/2, 1 )
-*                   .. minimal workspace lengthfor N/2 x N/2 SGESVD
+*                   .. minimal workspace length for N/2 x N/2 SGESVD
                     LWSVD2 = MAX( 5 * (N/2), 1 )
                     LWORQ2 = MAX( N, 1 )
                     MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2,
diff --git a/SRC/zgesvdq.f b/SRC/zgesvdq.f
@@ -638,7 +638,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
                  IF ( WNTVA ) THEN
 *                   .. minimal workspace length for N x N/2 ZGEQRF
                     LWQRF  = MAX( N/2, 1 )
-*                   .. minimal workspace lengthfor N/2 x N/2 ZGESVD
+*                   .. minimal workspace length for N/2 x N/2 ZGESVD
                     LWSVD2 = MAX( 3 * (N/2), 1 )
                     LWUNQ2 = MAX( N, 1 )
                     MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2,
diff --git a/TESTING/LIN/cchkhe_rk.f b/TESTING/LIN/cchkhe_rk.f
@@ -493,7 +493,7 @@ SUBROUTINE CCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'CHETRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that CPOT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/cchksy_rk.f b/TESTING/LIN/cchksy_rk.f
@@ -505,7 +505,7 @@ SUBROUTINE CCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'CSYTRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that CSYT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/cdrvhe_rk.f b/TESTING/LIN/cdrvhe_rk.f
@@ -414,7 +414,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/TESTING/LIN/cdrvsy_rk.f b/TESTING/LIN/cdrvsy_rk.f
@@ -423,7 +423,7 @@ SUBROUTINE CDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/TESTING/LIN/dchksy_rk.f b/TESTING/LIN/dchksy_rk.f
@@ -486,7 +486,7 @@ SUBROUTINE DCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'DSYTRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that DPOT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/ddrvsy_rk.f b/TESTING/LIN/ddrvsy_rk.f
@@ -411,7 +411,7 @@ SUBROUTINE DDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/TESTING/LIN/schksy_rk.f b/TESTING/LIN/schksy_rk.f
@@ -486,7 +486,7 @@ SUBROUTINE SCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'SSYTRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that SPOT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/sdrvsy_rk.f b/TESTING/LIN/sdrvsy_rk.f
@@ -411,7 +411,7 @@ SUBROUTINE SDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL SSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/TESTING/LIN/zchkhe_rk.f b/TESTING/LIN/zchkhe_rk.f
@@ -493,7 +493,7 @@ SUBROUTINE ZCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'ZHETRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that ZPOT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/zchksy_rk.f b/TESTING/LIN/zchksy_rk.f
@@ -505,7 +505,7 @@ SUBROUTINE ZCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
                      CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      SRNAMT = 'ZSYTRI_3'
 *
-*                    Another reason that we need to compute the invesrse
+*                    Another reason that we need to compute the inverse
 *                    is that ZSYT03 produces RCONDC which is used later
 *                    in TEST6 and TEST7.
 *
diff --git a/TESTING/LIN/zdrvhe_rk.f b/TESTING/LIN/zdrvhe_rk.f
@@ -415,7 +415,7 @@ SUBROUTINE ZDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL ZHETRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/TESTING/LIN/zdrvsy_rk.f b/TESTING/LIN/zdrvsy_rk.f
@@ -422,7 +422,7 @@ SUBROUTINE ZDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
                      CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
                      LWORK = (N+NB+1)*(NB+3)
 *
-*                    We need to compute the invesrse to compute
+*                    We need to compute the inverse to compute
 *                    RCONDC that is used later in TEST3.
 *
                      CALL ZSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,

Original file line number	Diff line number	Diff line change
`@@ -493,7 +493,7 @@ SUBROUTINE CCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,`
`493`	`493`	`CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`494`	`494`	`SRNAMT = 'CHETRI_3'`
`495`	`495`	`*`
`496`		`-* Another reason that we need to compute the invesrse`
	`496`	`+* Another reason that we need to compute the inverse`
`497`	`497`	`* is that CPOT03 produces RCONDC which is used later`
`498`	`498`	`* in TEST6 and TEST7.`
`499`	`499`	`*`
Original file line number	Diff line number	Diff line change
`@@ -505,7 +505,7 @@ SUBROUTINE CCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,`
`505`	`505`	`CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`506`	`506`	`SRNAMT = 'CSYTRI_3'`
`507`	`507`	`*`
`508`		`-* Another reason that we need to compute the invesrse`
	`508`	`+* Another reason that we need to compute the inverse`
`509`	`509`	`* is that CSYT03 produces RCONDC which is used later`
`510`	`510`	`* in TEST6 and TEST7.`
`511`	`511`	`*`
Original file line number	Diff line number	Diff line change
`@@ -414,7 +414,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`414`	`414`	`CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`415`	`415`	`LWORK = (N+NB+1)*(NB+3)`
`416`	`416`	`*`
`417`		`-* We need to compute the invesrse to compute`
	`417`	`+* We need to compute the inverse to compute`
`418`	`418`	`* RCONDC that is used later in TEST3.`
`419`	`419`	`*`
`420`	`420`	`CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,`
Original file line number	Diff line number	Diff line change
`@@ -423,7 +423,7 @@ SUBROUTINE CDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`423`	`423`	`CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`424`	`424`	`LWORK = (N+NB+1)*(NB+3)`
`425`	`425`	`*`
`426`		`-* We need to compute the invesrse to compute`
	`426`	`+* We need to compute the inverse to compute`
`427`	`427`	`* RCONDC that is used later in TEST3.`
`428`	`428`	`*`
`429`	`429`	`CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,`
Original file line number	Diff line number	Diff line change
`@@ -486,7 +486,7 @@ SUBROUTINE DCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,`
`486`	`486`	`CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`487`	`487`	`SRNAMT = 'DSYTRI_3'`
`488`	`488`	`*`
`489`		`-* Another reason that we need to compute the invesrse`
	`489`	`+* Another reason that we need to compute the inverse`
`490`	`490`	`* is that DPOT03 produces RCONDC which is used later`
`491`	`491`	`* in TEST6 and TEST7.`
`492`	`492`	`*`
Original file line number	Diff line number	Diff line change
`@@ -411,7 +411,7 @@ SUBROUTINE DDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,`
`411`	`411`	`CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )`
`412`	`412`	`LWORK = (N+NB+1)*(NB+3)`
`413`	`413`	`*`
`414`		`-* We need to compute the invesrse to compute`
	`414`	`+* We need to compute the inverse to compute`
`415`	`415`	`* RCONDC that is used later in TEST3.`
`416`	`416`	`*`
`417`	`417`	`CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,`