diff options
| author | julie <julielangou@users.noreply.github.com> | 2016-01-08 03:07:42 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2016-01-08 03:07:42 +0000 |
| commit | 21c91533ffb3b82114b7b37a74bee5542b262815 (patch) | |
| tree | 1b39458239f73272ad70eb9741ef4080ea43e198 | |
| parent | 198dd8994cfa67040a4e8250b537eb5dc78d2115 (diff) | |
Committing Sébastien Villemot patches (5) sent on Jan 6th 2016 to LAPACK Mailing list
From Sébastien Villemot:
I attach to this message 5 patches that are currently applied to the
Debian package for LAPACK, and that I think could be usefully merged in
the LAPACK SVN tree.
The patches include fixes for old outstanding bugs in the CBLAS test
programs, fixes for the build system, and fixes for various typos.
Each patch file contains a more detailed description of its purpose.
109 files changed, 146 insertions, 138 deletions
diff --git a/CBLAS/testing/Makefile b/CBLAS/testing/Makefile index 2ad1ad1d..b4213e41 100644 --- a/CBLAS/testing/Makefile +++ b/CBLAS/testing/Makefile @@ -41,7 +41,7 @@ all2: stest2 dtest2 ctest2 ztest2 all3: stest3 dtest3 ctest3 ztest3 clean: - rm -f core *.o a.out x* + rm -f core *.o *.out x* cleanobj: rm -f core *.o a.out cleanexe: diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index b03d4791..62a43643 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -1365,8 +1365,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/CBLAS/testing/c_dblat3.f b/CBLAS/testing/c_dblat3.f index fb9acbb9..846ac953 100644 --- a/CBLAS/testing/c_dblat3.f +++ b/CBLAS/testing/c_dblat3.f @@ -1335,8 +1335,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/CBLAS/testing/c_sblat3.f b/CBLAS/testing/c_sblat3.f index 948fd6ed..c6b42d54 100644 --- a/CBLAS/testing/c_sblat3.f +++ b/CBLAS/testing/c_sblat3.f @@ -1339,8 +1339,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN diff --git a/CBLAS/testing/c_zblat2.f b/CBLAS/testing/c_zblat2.f index 236088ff..12bf0e77 100644 --- a/CBLAS/testing/c_zblat2.f +++ b/CBLAS/testing/c_zblat2.f @@ -1350,7 +1350,7 @@ * * Call the subroutine. * - IF( SNAME( 4: 5 ).EQ.'mv' )THEN + IF( SNAME( 10: 11 ).EQ.'mv' )THEN IF( FULL )THEN IF( TRACE ) $ WRITE( NTRA, FMT = 9993 )NC, SNAME, @@ -1376,7 +1376,7 @@ CALL CZTPMV( IORDER, UPLO, TRANS, DIAG, $ N, AA, XX, INCX ) END IF - ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN + ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN IF( FULL )THEN IF( TRACE ) $ WRITE( NTRA, FMT = 9993 )NC, SNAME, @@ -1465,7 +1465,7 @@ END IF * IF( .NOT.NULL )THEN - IF( SNAME( 4: 5 ).EQ.'mv' )THEN + IF( SNAME( 10: 11 ).EQ.'mv' )THEN * * Check the result. * @@ -1473,7 +1473,7 @@ $ INCX, ZERO, Z, INCX, XT, G, $ XX, EPS, ERR, FATAL, NOUT, $ .TRUE. ) - ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN + ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN * * Compute approximation to original vector. * @@ -1611,7 +1611,7 @@ * .. Common blocks .. COMMON /INFOC/INFOT, NOUTC, OK * .. Executable Statements .. - CONJ = SNAME( 5: 5 ).EQ.'c' + CONJ = SNAME( 11: 11 ).EQ.'c' * Define the number of arguments. NARGS = 9 * diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index 6e9dbbd8..4b278a16 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -1366,8 +1366,9 @@ * 150 CONTINUE WRITE( NOUT, FMT = 9996 )SNAME - CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, - $ M, N, ALPHA, LDA, LDB) + IF( TRACE ) + $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, + $ M, N, ALPHA, LDA, LDB) * 160 CONTINUE RETURN @@ -21,7 +21,7 @@ blaslib: ( cd BLAS/SRC; $(MAKE) ) cblaslib: - ( cd CBLAS/src; $(MAKE) ) + ( cd CBLAS; $(MAKE) ) lapacklib: lapack_install ( cd SRC; $(MAKE) ) @@ -117,7 +117,7 @@ cleanblas_testing: ( cd BLAS; rm -f xblat* ) cleancblas_testing: - ( cd CBLAS; $(MAKE) cleanexe ) + ( cd CBLAS/testing; $(MAKE) clean ) cleantesting: ( cd TESTING/LIN; $(MAKE) clean ) diff --git a/SRC/cgejsv.f b/SRC/cgejsv.f index c003b5f5..e2f6cea7 100644 --- a/SRC/cgejsv.f +++ b/SRC/cgejsv.f @@ -317,7 +317,7 @@ *> the minimal requirement is LWORK >= 5*N+2*N*N. *> 4.2. if JOBV.EQ.'J' the minimal requirement is *> LWORK >= 4*N+N*N. -*> In both cases, the allocated CWORK can accomodate blocked runs +*> In both cases, the allocated CWORK can accommodate blocked runs *> of CGEQP3, CGEQRF, CGELQF, SUNMQR, CUNMLQ. *> \endverbatim *> diff --git a/SRC/claed7.f b/SRC/claed7.f index c1441393..02e0cab2 100644 --- a/SRC/claed7.f +++ b/SRC/claed7.f @@ -57,7 +57,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine SLAED2. *> diff --git a/SRC/clarrv.f b/SRC/clarrv.f index ecedfa4d..895ad7b1 100644 --- a/SRC/clarrv.f +++ b/SRC/clarrv.f @@ -81,7 +81,7 @@ *> L is REAL array, dimension (N) *> On entry, the (N-1) subdiagonal elements of the unit *> bidiagonal matrix L are in elements 1 to N-1 of L -*> (if the matrix is not splitted.) At the end of each block +*> (if the matrix is not split.) At the end of each block *> is stored the corresponding shift as given by SLARRE. *> On exit, L is overwritten. *> \endverbatim @@ -236,7 +236,7 @@ *> INFO is INTEGER *> = 0: successful exit *> -*> > 0: A problem occured in CLARRV. +*> > 0: A problem occurred in CLARRV. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/clatdf.f b/SRC/clatdf.f index 11f0dfd9..441cb317 100644 --- a/SRC/clatdf.f +++ b/SRC/clatdf.f @@ -58,7 +58,7 @@ *> Zx = +-e - f with the sign giving the greater value of *> 2-norm(x). About 5 times as expensive as Default. *> IJOB .ne. 2: Local look ahead strategy where -*> all entries of the r.h.s. b is choosen as either +1 or +*> all entries of the r.h.s. b is chosen as either +1 or *> -1. Default. *> \endverbatim *> diff --git a/SRC/cstegr.f b/SRC/cstegr.f index 6e1eae05..900e8437 100644 --- a/SRC/cstegr.f +++ b/SRC/cstegr.f @@ -48,7 +48,7 @@ *> either an interval (VL,VU] or a range of indices IL:IU for the desired *> eigenvalues. *> -*> CSTEGR is a compatability wrapper around the improved CSTEMR routine. +*> CSTEGR is a compatibility wrapper around the improved CSTEMR routine. *> See SSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any diff --git a/SRC/dlaed1.f b/SRC/dlaed1.f index c37c1d21..ffee218d 100644 --- a/SRC/dlaed1.f +++ b/SRC/dlaed1.f @@ -54,7 +54,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine DLAED2. *> diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index 658ece9a..31999b7c 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.f @@ -59,7 +59,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine DLAED8. *> diff --git a/SRC/dlag2.f b/SRC/dlag2.f index a941b940..791161e0 100644 --- a/SRC/dlag2.f +++ b/SRC/dlag2.f @@ -99,7 +99,7 @@ *> will always be positive. If the eigenvalues are real, then *> the first (real) eigenvalue is WR1 / SCALE1 , but this may *> overflow or underflow, and in fact, SCALE1 may be zero or -*> less than the underflow threshhold if the exact eigenvalue +*> less than the underflow threshold if the exact eigenvalue *> is sufficiently large. *> \endverbatim *> @@ -112,7 +112,7 @@ *> eigenvalues are real, then the second (real) eigenvalue is *> WR2 / SCALE2 , but this may overflow or underflow, and in *> fact, SCALE2 may be zero or less than the underflow -*> threshhold if the exact eigenvalue is sufficiently large. +*> threshold if the exact eigenvalue is sufficiently large. *> \endverbatim *> *> \param[out] WR1 @@ -266,8 +266,8 @@ * Note: the test of R in the following IF is to cover the case when * DISCR is small and negative and is flushed to zero during * the calculation of R. On machines which have a consistent -* flush-to-zero threshhold and handle numbers above that -* threshhold correctly, it would not be necessary. +* flush-to-zero threshold and handle numbers above that +* threshold correctly, it would not be necessary. * IF( DISCR.GE.ZERO .OR. R.EQ.ZERO ) THEN SUM = PP + SIGN( R, PP ) diff --git a/SRC/dlamrg.f b/SRC/dlamrg.f index 7126053e..c31e9e14 100644 --- a/SRC/dlamrg.f +++ b/SRC/dlamrg.f @@ -50,7 +50,7 @@ *> \param[in] N2 *> \verbatim *> N2 is INTEGER -*> These arguements contain the respective lengths of the two +*> These arguments contain the respective lengths of the two *> sorted lists to be merged. *> \endverbatim *> diff --git a/SRC/dlarre.f b/SRC/dlarre.f index e7eea10c..2212c574 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -244,7 +244,7 @@ *> \verbatim *> INFO is INTEGER *> = 0: successful exit -*> > 0: A problem occured in DLARRE. +*> > 0: A problem occurred in DLARRE. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index f054caa8..de062817 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -51,7 +51,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The order of the matrix (subblock, if the matrix splitted). +*> The order of the matrix (subblock, if the matrix split). *> \endverbatim *> *> \param[in] D diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index 828661f2..8f79f330 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -81,7 +81,7 @@ *> L is DOUBLE PRECISION array, dimension (N) *> On entry, the (N-1) subdiagonal elements of the unit *> bidiagonal matrix L are in elements 1 to N-1 of L -*> (if the matrix is not splitted.) At the end of each block +*> (if the matrix is not split.) At the end of each block *> is stored the corresponding shift as given by DLARRE. *> On exit, L is overwritten. *> \endverbatim @@ -236,7 +236,7 @@ *> INFO is INTEGER *> = 0: successful exit *> -*> > 0: A problem occured in DLARRV. +*> > 0: A problem occurred in DLARRV. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index 7b66d90b..c457d1ab 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -60,7 +60,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple singular values or when there are zeros in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine DLASD2. *> diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index a5238b91..f8b7dea0 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -74,7 +74,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple singular values or if there is a zero -*> in the Z vector. For each such occurence the dimension of the +*> in the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine DLASD7. *> diff --git a/SRC/dlasdq.f b/SRC/dlasdq.f index 6beef32a..cbfdb4a5 100644 --- a/SRC/dlasdq.f +++ b/SRC/dlasdq.f @@ -59,7 +59,7 @@ *> \verbatim *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the input bidiagonal matrix -*> is upper or lower bidiagonal, and wether it is square are +*> is upper or lower bidiagonal, and whether it is square are *> not. *> UPLO = 'U' or 'u' B is upper bidiagonal. *> UPLO = 'L' or 'l' B is lower bidiagonal. diff --git a/SRC/dlasrt.f b/SRC/dlasrt.f index f5d0e6cd..6d7cbb13 100644 --- a/SRC/dlasrt.f +++ b/SRC/dlasrt.f @@ -123,7 +123,7 @@ * .. * .. Executable Statements .. * -* Test the input paramters. +* Test the input parameters. * INFO = 0 DIR = -1 diff --git a/SRC/dlatdf.f b/SRC/dlatdf.f index be70313b..2a8fabe0 100644 --- a/SRC/dlatdf.f +++ b/SRC/dlatdf.f @@ -58,7 +58,7 @@ *> Zx = +-e - f with the sign giving the greater value *> of 2-norm(x). About 5 times as expensive as Default. *> IJOB .ne. 2: Local look ahead strategy where all entries of -*> the r.h.s. b is choosen as either +1 or -1 (Default). +*> the r.h.s. b is chosen as either +1 or -1 (Default). *> \endverbatim *> *> \param[in] N diff --git a/SRC/dsgesv.f b/SRC/dsgesv.f index 64e2c168..9d42c329 100644 --- a/SRC/dsgesv.f +++ b/SRC/dsgesv.f @@ -164,7 +164,7 @@ *> -3 : failure of SGETRF *> -31: stop the iterative refinement after the 30th *> iterations -*> > 0: iterative refinement has been sucessfully used. +*> > 0: iterative refinement has been successfully used. *> Returns the number of iterations *> \endverbatim *> diff --git a/SRC/dsposv.f b/SRC/dsposv.f index bb72199b..49896a31 100644 --- a/SRC/dsposv.f +++ b/SRC/dsposv.f @@ -168,7 +168,7 @@ *> -3 : failure of SPOTRF *> -31: stop the iterative refinement after the 30th *> iterations -*> > 0: iterative refinement has been sucessfully used. +*> > 0: iterative refinement has been successfully used. *> Returns the number of iterations *> \endverbatim *> diff --git a/SRC/dstegr.f b/SRC/dstegr.f index 298e1c76..541d4655 100644 --- a/SRC/dstegr.f +++ b/SRC/dstegr.f @@ -48,7 +48,7 @@ *> either an interval (VL,VU] or a range of indices IL:IU for the desired *> eigenvalues. *> -*> DSTEGR is a compatability wrapper around the improved DSTEMR routine. +*> DSTEGR is a compatibility wrapper around the improved DSTEMR routine. *> See DSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any diff --git a/SRC/slaed1.f b/SRC/slaed1.f index 74eeb633..bef873a1 100644 --- a/SRC/slaed1.f +++ b/SRC/slaed1.f @@ -54,7 +54,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine SLAED2. *> diff --git a/SRC/slaed7.f b/SRC/slaed7.f index 3d3d6292..8e3e8d93 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -59,7 +59,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine SLAED8. *> diff --git a/SRC/slag2.f b/SRC/slag2.f index ad04333a..03baa0c5 100644 --- a/SRC/slag2.f +++ b/SRC/slag2.f @@ -99,7 +99,7 @@ *> will always be positive. If the eigenvalues are real, then *> the first (real) eigenvalue is WR1 / SCALE1 , but this may *> overflow or underflow, and in fact, SCALE1 may be zero or -*> less than the underflow threshhold if the exact eigenvalue +*> less than the underflow threshold if the exact eigenvalue *> is sufficiently large. *> \endverbatim *> @@ -112,7 +112,7 @@ *> eigenvalues are real, then the second (real) eigenvalue is *> WR2 / SCALE2 , but this may overflow or underflow, and in *> fact, SCALE2 may be zero or less than the underflow -*> threshhold if the exact eigenvalue is sufficiently large. +*> threshold if the exact eigenvalue is sufficiently large. *> \endverbatim *> *> \param[out] WR1 @@ -266,8 +266,8 @@ * Note: the test of R in the following IF is to cover the case when * DISCR is small and negative and is flushed to zero during * the calculation of R. On machines which have a consistent -* flush-to-zero threshhold and handle numbers above that -* threshhold correctly, it would not be necessary. +* flush-to-zero threshold and handle numbers above that +* threshold correctly, it would not be necessary. * IF( DISCR.GE.ZERO .OR. R.EQ.ZERO ) THEN SUM = PP + SIGN( R, PP ) diff --git a/SRC/slamrg.f b/SRC/slamrg.f index 6229abd6..815c6bff 100644 --- a/SRC/slamrg.f +++ b/SRC/slamrg.f @@ -50,7 +50,7 @@ *> \param[in] N2 *> \verbatim *> N2 is INTEGER -*> These arguements contain the respective lengths of the two +*> These arguments contain the respective lengths of the two *> sorted lists to be merged. *> \endverbatim *> diff --git a/SRC/slarre.f b/SRC/slarre.f index a5b9f2fd..2df98c7d 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -244,7 +244,7 @@ *> \verbatim *> INFO is INTEGER *> = 0: successful exit -*> > 0: A problem occured in SLARRE. +*> > 0: A problem occurred in SLARRE. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/slarrf.f b/SRC/slarrf.f index 058e5027..b136e61e 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -51,7 +51,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The order of the matrix (subblock, if the matrix splitted). +*> The order of the matrix (subblock, if the matrix split). *> \endverbatim *> *> \param[in] D diff --git a/SRC/slarrv.f b/SRC/slarrv.f index 73847f39..bd7d5282 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -81,7 +81,7 @@ *> L is REAL array, dimension (N) *> On entry, the (N-1) subdiagonal elements of the unit *> bidiagonal matrix L are in elements 1 to N-1 of L -*> (if the matrix is not splitted.) At the end of each block +*> (if the matrix is not split.) At the end of each block *> is stored the corresponding shift as given by SLARRE. *> On exit, L is overwritten. *> \endverbatim @@ -236,7 +236,7 @@ *> INFO is INTEGER *> = 0: successful exit *> -*> > 0: A problem occured in SLARRV. +*> > 0: A problem occurred in SLARRV. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/slasd1.f b/SRC/slasd1.f index ae076a0f..4157180c 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -60,7 +60,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple singular values or when there are zeros in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine SLASD2. *> diff --git a/SRC/slasd6.f b/SRC/slasd6.f index f79a06d0..e0cb1da9 100644 --- a/SRC/slasd6.f +++ b/SRC/slasd6.f @@ -74,7 +74,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple singular values or if there is a zero -*> in the Z vector. For each such occurence the dimension of the +*> in the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine SLASD7. *> diff --git a/SRC/slasdq.f b/SRC/slasdq.f index 289ed855..defbe352 100644 --- a/SRC/slasdq.f +++ b/SRC/slasdq.f @@ -59,7 +59,7 @@ *> \verbatim *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the input bidiagonal matrix -*> is upper or lower bidiagonal, and wether it is square are +*> is upper or lower bidiagonal, and whether it is square are *> not. *> UPLO = 'U' or 'u' B is upper bidiagonal. *> UPLO = 'L' or 'l' B is lower bidiagonal. diff --git a/SRC/slasrt.f b/SRC/slasrt.f index e93c0d6d..05a492ad 100644 --- a/SRC/slasrt.f +++ b/SRC/slasrt.f @@ -123,7 +123,7 @@ * .. * .. Executable Statements .. * -* Test the input paramters. +* Test the input parameters. * INFO = 0 DIR = -1 diff --git a/SRC/slatdf.f b/SRC/slatdf.f index 51773d4e..4f8c0391 100644 --- a/SRC/slatdf.f +++ b/SRC/slatdf.f @@ -58,7 +58,7 @@ *> Zx = +-e - f with the sign giving the greater value *> of 2-norm(x). About 5 times as expensive as Default. *> IJOB .ne. 2: Local look ahead strategy where all entries of -*> the r.h.s. b is choosen as either +1 or -1 (Default). +*> the r.h.s. b is chosen as either +1 or -1 (Default). *> \endverbatim *> *> \param[in] N diff --git a/SRC/sstegr.f b/SRC/sstegr.f index d98c451f..f943f2c8 100644 --- a/SRC/sstegr.f +++ b/SRC/sstegr.f @@ -48,7 +48,7 @@ *> either an interval (VL,VU] or a range of indices IL:IU for the desired *> eigenvalues. *> -*> SSTEGR is a compatability wrapper around the improved SSTEMR routine. +*> SSTEGR is a compatibility wrapper around the improved SSTEMR routine. *> See SSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index d7d0a9d2..a27ce0d1 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -170,7 +170,7 @@ *> -3 : failure of CGETRF *> -31: stop the iterative refinement after the 30th *> iterations -*> > 0: iterative refinement has been sucessfully used. +*> > 0: iterative refinement has been successfully used. *> Returns the number of iterations *> \endverbatim *> diff --git a/SRC/zcposv.f b/SRC/zcposv.f index dfa114d9..983b6ef9 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -178,7 +178,7 @@ *> -3 : failure of CPOTRF *> -31: stop the iterative refinement after the 30th *> iterations -*> > 0: iterative refinement has been sucessfully used. +*> > 0: iterative refinement has been successfully used. *> Returns the number of iterations *> \endverbatim *> diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f index 644e67a3..89e19e63 100644 --- a/SRC/zgejsv.f +++ b/SRC/zgejsv.f @@ -318,7 +318,7 @@ *> the minimal requirement is LWORK >= 5*N+2*N*N. *> 4.2. if JOBV.EQ.'J' the minimal requirement is *> LWORK >= 4*N+N*N. -*> In both cases, the allocated CWORK can accomodate blocked runs +*> In both cases, the allocated CWORK can accommodate blocked runs *> of ZGEQP3, ZGEQRF, ZGELQF, SUNMQR, CUNMLQ. *> \endverbatim *> diff --git a/SRC/zlaed7.f b/SRC/zlaed7.f index ae6e9a36..9a4b4162 100644 --- a/SRC/zlaed7.f +++ b/SRC/zlaed7.f @@ -57,7 +57,7 @@ *> *> The first stage consists of deflating the size of the problem *> when there are multiple eigenvalues or if there is a zero in -*> the Z vector. For each such occurence the dimension of the +*> the Z vector. For each such occurrence the dimension of the *> secular equation problem is reduced by one. This stage is *> performed by the routine DLAED2. *> diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f index 3992f14d..acc6c7f1 100644 --- a/SRC/zlarrv.f +++ b/SRC/zlarrv.f @@ -81,7 +81,7 @@ *> L is DOUBLE PRECISION array, dimension (N) *> On entry, the (N-1) subdiagonal elements of the unit *> bidiagonal matrix L are in elements 1 to N-1 of L -*> (if the matrix is not splitted.) At the end of each block +*> (if the matrix is not split.) At the end of each block *> is stored the corresponding shift as given by DLARRE. *> On exit, L is overwritten. *> \endverbatim @@ -236,7 +236,7 @@ *> INFO is INTEGER *> = 0: successful exit *> -*> > 0: A problem occured in ZLARRV. +*> > 0: A problem occurred in ZLARRV. *> < 0: One of the called subroutines signaled an internal problem. *> Needs inspection of the corresponding parameter IINFO *> for further information. diff --git a/SRC/zlatdf.f b/SRC/zlatdf.f index e90bfede..23b4713c 100644 --- a/SRC/zlatdf.f +++ b/SRC/zlatdf.f @@ -58,7 +58,7 @@ *> Zx = +-e - f with the sign giving the greater value of *> 2-norm(x). About 5 times as expensive as Default. *> IJOB .ne. 2: Local look ahead strategy where -*> all entries of the r.h.s. b is choosen as either +1 or +*> all entries of the r.h.s. b is chosen as either +1 or *> -1. Default. *> \endverbatim *> diff --git a/SRC/zstegr.f b/SRC/zstegr.f index 16a4e789..5213e493 100644 --- a/SRC/zstegr.f +++ b/SRC/zstegr.f @@ -48,7 +48,7 @@ *> either an interval (VL,VU] or a range of indices IL:IU for the desired *> eigenvalues. *> -*> ZSTEGR is a compatability wrapper around the improved ZSTEMR routine. +*> ZSTEGR is a compatibility wrapper around the improved ZSTEMR routine. *> See DSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any diff --git a/TESTING/EIG/cchkgg.f b/TESTING/EIG/cchkgg.f index e1daf478..84f2f7b9 100644 --- a/TESTING/EIG/cchkgg.f +++ b/TESTING/EIG/cchkgg.f @@ -68,7 +68,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 13 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> H *> (1) | A - U H V | / ( |A| n ulp ) @@ -128,7 +128,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is REAL -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/cdrges.f b/TESTING/EIG/cdrges.f index 14af1039..e90f9b9d 100644 --- a/TESTING/EIG/cdrges.f +++ b/TESTING/EIG/cdrges.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/cdrges3.f b/TESTING/EIG/cdrges3.f index 0ef33dfd..2fbcef4f 100644 --- a/TESTING/EIG/cdrges3.f +++ b/TESTING/EIG/cdrges3.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/cdrgev.f b/TESTING/EIG/cdrgev.f index 1e0eca55..dee55d1d 100644 --- a/TESTING/EIG/cdrgev.f +++ b/TESTING/EIG/cdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from CGGEV: *> diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index 6531752b..b23532aa 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from CGGEV3: *> diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index d0129ea5..4e711cea 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -59,7 +59,7 @@ *> (need more details on what kind of read-in data are needed). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index 9c0a807f..fffdbf1b 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -50,7 +50,7 @@ *> corresponding the first and last eigenvalues are also know *> ``exactly'' (see CLATM6). *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/cdrves.f b/TESTING/EIG/cdrves.f index 782cae7c..fe3e1f85 100644 --- a/TESTING/EIG/cdrves.f +++ b/TESTING/EIG/cdrves.f @@ -901,7 +901,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' CDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/cdrvsx.f b/TESTING/EIG/cdrvsx.f index 8bac9cc2..6b756152 100644 --- a/TESTING/EIG/cdrvsx.f +++ b/TESTING/EIG/cdrvsx.f @@ -914,7 +914,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/cdrvvx.f b/TESTING/EIG/cdrvvx.f index 629e78cf..930acd86 100644 --- a/TESTING/EIG/cdrvvx.f +++ b/TESTING/EIG/cdrvvx.f @@ -446,7 +446,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, CLATMR, CLATMS, CLATME or CGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/clctes.f b/TESTING/EIG/clctes.f index 82499fae..82bc9760 100644 --- a/TESTING/EIG/clctes.f +++ b/TESTING/EIG/clctes.f @@ -25,7 +25,7 @@ *> eigenvalue is negative), and otherwise it returns .FALSE.. *> *> It is used by the test routine CDRGES to test whether the driver -*> routine CGGES succesfully sorts eigenvalues. +*> routine CGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/cslect.f b/TESTING/EIG/cslect.f index ea244d89..a3da9065 100644 --- a/TESTING/EIG/cslect.f +++ b/TESTING/EIG/cslect.f @@ -22,8 +22,8 @@ *> *> CSLECT returns .TRUE. if the eigenvalue Z is to be selected, *> otherwise it returns .FALSE. -*> It is used by CCHK41 to test if CGEES succesfully sorts eigenvalues, -*> and by CCHK43 to test if CGEESX succesfully sorts eigenvalues. +*> It is used by CCHK41 to test if CGEES successfully sorts eigenvalues, +*> and by CCHK43 to test if CGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then CSLECT return .TRUE. when real(Z) is less than diff --git a/TESTING/EIG/dchkgg.f b/TESTING/EIG/dchkgg.f index ebdc9f18..858b4c61 100644 --- a/TESTING/EIG/dchkgg.f +++ b/TESTING/EIG/dchkgg.f @@ -72,7 +72,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 15 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> T *> (1) | A - U H V | / ( |A| n ulp ) @@ -132,7 +132,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is DOUBLE PRECISION -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/ddrges.f b/TESTING/EIG/ddrges.f index b16efc65..65a122b7 100644 --- a/TESTING/EIG/ddrges.f +++ b/TESTING/EIG/ddrges.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/ddrges3.f b/TESTING/EIG/ddrges3.f index 77363019..8712dc86 100644 --- a/TESTING/EIG/ddrges3.f +++ b/TESTING/EIG/ddrges3.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/ddrgev.f b/TESTING/EIG/ddrgev.f index 9155aed3..f36288fc 100644 --- a/TESTING/EIG/ddrgev.f +++ b/TESTING/EIG/ddrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from DGGEV: *> diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index e8de1a8a..7b803857 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from DGGEV3: *> diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index 843fd204..eea47c4e 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -60,7 +60,7 @@ *> to test DGGESX. *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 08a7aff0..70b732e6 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -50,7 +50,7 @@ *> ``exactly'' (see DLATM6). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/ddrves.f b/TESTING/EIG/ddrves.f index 93e495e1..b8c4aa34 100644 --- a/TESTING/EIG/ddrves.f +++ b/TESTING/EIG/ddrves.f @@ -948,7 +948,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' DDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/ddrvsx.f b/TESTING/EIG/ddrvsx.f index 42b5b76e..12a7271f 100644 --- a/TESTING/EIG/ddrvsx.f +++ b/TESTING/EIG/ddrvsx.f @@ -933,7 +933,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/ddrvvx.f b/TESTING/EIG/ddrvvx.f index 14c5c74b..4a7e72a8 100644 --- a/TESTING/EIG/ddrvvx.f +++ b/TESTING/EIG/ddrvvx.f @@ -471,7 +471,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, DLATMR, SLATMS, SLATME or DGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/dlctes.f b/TESTING/EIG/dlctes.f index 71b70919..b25bbc5c 100644 --- a/TESTING/EIG/dlctes.f +++ b/TESTING/EIG/dlctes.f @@ -26,7 +26,7 @@ *> .FALSE.. *> *> It is used by the test routine DDRGES to test whether the driver -*> routine DGGES succesfully sorts eigenvalues. +*> routine DGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/dslect.f b/TESTING/EIG/dslect.f index 3978024c..5dbac822 100644 --- a/TESTING/EIG/dslect.f +++ b/TESTING/EIG/dslect.f @@ -22,8 +22,8 @@ *> *> DSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be *> selected, and otherwise it returns .FALSE. -*> It is used by DCHK41 to test if DGEES succesfully sorts eigenvalues, -*> and by DCHK43 to test if DGEESX succesfully sorts eigenvalues. +*> It is used by DCHK41 to test if DGEES successfully sorts eigenvalues, +*> and by DCHK43 to test if DGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then DSLECT return .TRUE. when ZR is less than zero, diff --git a/TESTING/EIG/schkgg.f b/TESTING/EIG/schkgg.f index 708b2437..0297c859 100644 --- a/TESTING/EIG/schkgg.f +++ b/TESTING/EIG/schkgg.f @@ -72,7 +72,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 15 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> T *> (1) | A - U H V | / ( |A| n ulp ) @@ -132,7 +132,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is REAL -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/sdrges.f b/TESTING/EIG/sdrges.f index f4d9a124..aedff349 100644 --- a/TESTING/EIG/sdrges.f +++ b/TESTING/EIG/sdrges.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/sdrges3.f b/TESTING/EIG/sdrges3.f index 6fed3c84..6b23dc93 100644 --- a/TESTING/EIG/sdrges3.f +++ b/TESTING/EIG/sdrges3.f @@ -52,7 +52,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/sdrgev.f b/TESTING/EIG/sdrgev.f index 816b37bb..0701d882 100644 --- a/TESTING/EIG/sdrgev.f +++ b/TESTING/EIG/sdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from SGGEV: *> diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index c1c92a89..2a1e351e 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from SGGEV3: *> diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index 4cc8d019..0c64eb38 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -60,7 +60,7 @@ *> to test SGGESX. *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index d899e56d..a4df2b27 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -51,7 +51,7 @@ *> ``exactly'' (see SLATM6). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/sdrves.f b/TESTING/EIG/sdrves.f index f2ec1e72..ebbca770 100644 --- a/TESTING/EIG/sdrves.f +++ b/TESTING/EIG/sdrves.f @@ -948,7 +948,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' SDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/sdrvsx.f b/TESTING/EIG/sdrvsx.f index a4437adb..d6147a02 100644 --- a/TESTING/EIG/sdrvsx.f +++ b/TESTING/EIG/sdrvsx.f @@ -933,7 +933,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if WR, WI same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/sdrvvx.f b/TESTING/EIG/sdrvvx.f index a7136196..0e6a11b6 100644 --- a/TESTING/EIG/sdrvvx.f +++ b/TESTING/EIG/sdrvvx.f @@ -470,7 +470,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, SLATMR, SLATMS, SLATME or SGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/slctes.f b/TESTING/EIG/slctes.f index e39b0d63..09f2ccb1 100644 --- a/TESTING/EIG/slctes.f +++ b/TESTING/EIG/slctes.f @@ -26,7 +26,7 @@ *> .FALSE.. *> *> It is used by the test routine SDRGES to test whether the driver -*> routine SGGES succesfully sorts eigenvalues. +*> routine SGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/sslect.f b/TESTING/EIG/sslect.f index 89d0981a..25300772 100644 --- a/TESTING/EIG/sslect.f +++ b/TESTING/EIG/sslect.f @@ -22,8 +22,8 @@ *> *> SSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be *> selected, and otherwise it returns .FALSE. -*> It is used by SCHK41 to test if SGEES succesfully sorts eigenvalues, -*> and by SCHK43 to test if SGEESX succesfully sorts eigenvalues. +*> It is used by SCHK41 to test if SGEES successfully sorts eigenvalues, +*> and by SCHK43 to test if SGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then SSLECT return .TRUE. when ZR is less than zero, diff --git a/TESTING/EIG/zchkgg.f b/TESTING/EIG/zchkgg.f index 5c554cae..1fa4b09a 100644 --- a/TESTING/EIG/zchkgg.f +++ b/TESTING/EIG/zchkgg.f @@ -68,7 +68,7 @@ *> and each type of matrix, one matrix will be generated and used *> to test the nonsymmetric eigenroutines. For each matrix, 13 *> tests will be performed. The first twelve "test ratios" should be -*> small -- O(1). They will be compared with the threshhold THRESH: +*> small -- O(1). They will be compared with the threshold THRESH: *> *> H *> (1) | A - U H V | / ( |A| n ulp ) @@ -128,7 +128,7 @@ *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp *> *> In addition, the normalization of L and R are checked, and compared -*> with the threshhold THRSHN. +*> with the threshold THRSHN. *> *> Test Matrices *> ---- -------- @@ -298,7 +298,7 @@ *> \param[in] THRSHN *> \verbatim *> THRSHN is DOUBLE PRECISION -*> Threshhold for reporting eigenvector normalization error. +*> Threshold for reporting eigenvector normalization error. *> If the normalization of any eigenvector differs from 1 by *> more than THRSHN*ulp, then a special error message will be *> printed. (This is handled separately from the other tests, diff --git a/TESTING/EIG/zdrges.f b/TESTING/EIG/zdrges.f index 6e10cb1e..6dc578dc 100644 --- a/TESTING/EIG/zdrges.f +++ b/TESTING/EIG/zdrges.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index 9a427739..7c43d6df 100644 --- a/TESTING/EIG/zdrges3.f +++ b/TESTING/EIG/zdrges3.f @@ -50,7 +50,7 @@ *> number of matrix "TYPES" are specified. For each size ("N") *> and each TYPE of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following 13 tests -*> will be performed and compared with the threshhold THRESH except +*> will be performed and compared with the threshold THRESH except *> the tests (5), (11) and (13). *> *> diff --git a/TESTING/EIG/zdrgev.f b/TESTING/EIG/zdrgev.f index 96727449..537191f3 100644 --- a/TESTING/EIG/zdrgev.f +++ b/TESTING/EIG/zdrgev.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from ZGGEV: *> diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index cc9526c3..ad19102c 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -55,7 +55,7 @@ *> number of matrix "types" are specified. For each size ("n") *> and each type of matrix, a pair of matrices (A, B) will be generated *> and used for testing. For each matrix pair, the following tests -*> will be performed and compared with the threshhold THRESH. +*> will be performed and compared with the threshold THRESH. *> *> Results from ZGGEV3: *> diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index 9b859e49..09393186 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -59,7 +59,7 @@ *> (need more details on what kind of read-in data are needed). *> *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH except for the tests (7) and (9): +*> compared with the threshold THRESH except for the tests (7) and (9): *> *> (1) | A - Q S Z' | / ( |A| n ulp ) *> diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index 452530fe..2d3f735e 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -49,7 +49,7 @@ *> corresponding the first and last eigenvalues are also know *> ``exactly'' (see ZLATM6). *> For each matrix pair, the following tests will be performed and -*> compared with the threshhold THRESH. +*> compared with the threshold THRESH. *> *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of *> diff --git a/TESTING/EIG/zdrves.f b/TESTING/EIG/zdrves.f index d2657720..e89e9b6e 100644 --- a/TESTING/EIG/zdrves.f +++ b/TESTING/EIG/zdrves.f @@ -901,7 +901,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter if VS computed (sort),', $ ' 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), $ ' type ', I2, ', test(', I2, ')=', G10.3 ) 9992 FORMAT( ' ZDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', diff --git a/TESTING/EIG/zdrvsx.f b/TESTING/EIG/zdrvsx.f index 742162eb..615dfb90 100644 --- a/TESTING/EIG/zdrvsx.f +++ b/TESTING/EIG/zdrvsx.f @@ -914,7 +914,7 @@ $ ' 1/ulp otherwise', / $ ' 12 = 0 if W same no matter what else computed ', $ '(sort), 1/ulp otherwise', / - $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', + $ ' 13 = 0 if sorting successful, 1/ulp otherwise', $ / ' 14 = 0 if RCONDE same no matter what else computed,', $ ' 1/ulp otherwise', / $ ' 15 = 0 if RCONDv same no matter what else computed,', diff --git a/TESTING/EIG/zdrvvx.f b/TESTING/EIG/zdrvvx.f index c9ea4e0d..f8881005 100644 --- a/TESTING/EIG/zdrvvx.f +++ b/TESTING/EIG/zdrvvx.f @@ -446,7 +446,7 @@ *> \verbatim *> INFO is INTEGER *> If 0, then successful exit. -*> If <0, then input paramter -INFO is incorrect. +*> If <0, then input parameter -INFO is incorrect. *> If >0, ZLATMR, CLATMS, CLATME or ZGET23 returned an error *> code, and INFO is its absolute value. *> diff --git a/TESTING/EIG/zlctes.f b/TESTING/EIG/zlctes.f index 1306180d..90bafdf2 100644 --- a/TESTING/EIG/zlctes.f +++ b/TESTING/EIG/zlctes.f @@ -25,7 +25,7 @@ *> eigenvalue is negative), and otherwise it returns .FALSE.. *> *> It is used by the test routine ZDRGES to test whether the driver -*> routine ZGGES succesfully sorts eigenvalues. +*> routine ZGGES successfully sorts eigenvalues. *> \endverbatim * * Arguments: diff --git a/TESTING/EIG/zslect.f b/TESTING/EIG/zslect.f index a01308db..2169bfdb 100644 --- a/TESTING/EIG/zslect.f +++ b/TESTING/EIG/zslect.f @@ -22,8 +22,8 @@ *> *> ZSLECT returns .TRUE. if the eigenvalue Z is to be selected, *> otherwise it returns .FALSE. -*> It is used by ZCHK41 to test if ZGEES succesfully sorts eigenvalues, -*> and by ZCHK43 to test if ZGEESX succesfully sorts eigenvalues. +*> It is used by ZCHK41 to test if ZGEES successfully sorts eigenvalues, +*> and by ZCHK43 to test if ZGEESX successfully sorts eigenvalues. *> *> The common block /SSLCT/ controls how eigenvalues are selected. *> If SELOPT = 0, then ZSLECT return .TRUE. when real(Z) is less than diff --git a/TESTING/LIN/Makefile b/TESTING/LIN/Makefile index 09d514e5..9db8b38a 100644 --- a/TESTING/LIN/Makefile +++ b/TESTING/LIN/Makefile @@ -339,3 +339,5 @@ zchkaa.o: zchkaa.f .f.o: $(FORTRAN) $(OPTS) -c $< -o $@ + +.NOTPARALLEL: diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f index 588caaa4..096ff167 100644 --- a/TESTING/MATGEN/clatm2.f +++ b/TESTING/MATGEN/clatm2.f @@ -30,7 +30,7 @@ *> \verbatim *> *> CLATM2 returns the (I,J) entry of a random matrix of dimension -*> (M, N) described by the other paramters. It is called by the +*> (M, N) described by the other parameters. It is called by the *> CLATMR routine in order to build random test matrices. No error *> checking on parameters is done, because this routine is called in *> a tight loop by CLATMR which has already checked the parameters. diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f index d3073bef..a8664ab4 100644 --- a/TESTING/MATGEN/clatm3.f +++ b/TESTING/MATGEN/clatm3.f @@ -32,7 +32,7 @@ *> \verbatim *> *> CLATM3 returns the (ISUB,JSUB) entry of a random matrix of -*> dimension (M, N) described by the other paramters. (ISUB,JSUB) +*> dimension (M, N) described by the other parameters. (ISUB,JSUB) *> is the final position of the (I,J) entry after pivoting *> according to IPVTNG and IWORK. CLATM3 is called by the *> CLATMR routine in order to build random test matrices. No error diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f index 3f3eb956..41a2437e 100644 --- a/TESTING/MATGEN/clatm5.f +++ b/TESTING/MATGEN/clatm5.f @@ -48,7 +48,7 @@ *> \param[in] PRTYPE *> \verbatim *> PRTYPE is INTEGER -*> "Points" to a certian type of the matrices to generate +*> "Points" to a certain type of the matrices to generate *> (see futher details). *> \endverbatim *> diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f index 87ef4f42..d71b9663 100644 --- a/TESTING/MATGEN/dlatm2.f +++ b/TESTING/MATGEN/dlatm2.f @@ -30,7 +30,7 @@ *> \verbatim *> *> DLATM2 returns the (I,J) entry of a random matrix of dimension -*> (M, N) described by the other paramters. It is called by the +*> (M, N) described by the other parameters. It is called by the *> DLATMR routine in order to build random test matrices. No error *> checking on parameters is done, because this routine is called in *> a tight loop by DLATMR which has already checked the parameters. diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f index b2c49823..96f9516a 100644 --- a/TESTING/MATGEN/dlatm3.f +++ b/TESTING/MATGEN/dlatm3.f @@ -32,7 +32,7 @@ *> \verbatim *> *> DLATM3 returns the (ISUB,JSUB) entry of a random matrix of -*> dimension (M, N) described by the other paramters. (ISUB,JSUB) +*> dimension (M, N) described by the other parameters. (ISUB,JSUB) *> is the final position of the (I,J) entry after pivoting *> according to IPVTNG and IWORK. DLATM3 is called by the *> DLATMR routine in order to build random test matrices. No error diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f index 9c8ee380..76902b42 100644 --- a/TESTING/MATGEN/dlatm5.f +++ b/TESTING/MATGEN/dlatm5.f @@ -48,7 +48,7 @@ *> \param[in] PRTYPE *> \verbatim *> PRTYPE is INTEGER -*> "Points" to a certian type of the matrices to generate +*> "Points" to a certain type of the matrices to generate *> (see futher details). *> \endverbatim *> diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f index 88dcd649..75c0a6ca 100644 --- a/TESTING/MATGEN/slatm2.f +++ b/TESTING/MATGEN/slatm2.f @@ -30,7 +30,7 @@ *> \verbatim *> *> SLATM2 returns the (I,J) entry of a random matrix of dimension -*> (M, N) described by the other paramters. It is called by the +*> (M, N) described by the other parameters. It is called by the *> SLATMR routine in order to build random test matrices. No error *> checking on parameters is done, because this routine is called in *> a tight loop by SLATMR which has already checked the parameters. diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f index f90790cb..1a9dc730 100644 --- a/TESTING/MATGEN/slatm3.f +++ b/TESTING/MATGEN/slatm3.f @@ -32,7 +32,7 @@ *> \verbatim *> *> SLATM3 returns the (ISUB,JSUB) entry of a random matrix of -*> dimension (M, N) described by the other paramters. (ISUB,JSUB) +*> dimension (M, N) described by the other parameters. (ISUB,JSUB) *> is the final position of the (I,J) entry after pivoting *> according to IPVTNG and IWORK. SLATM3 is called by the *> SLATMR routine in order to build random test matrices. No error diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f index ce0540c1..c38b3e7a 100644 --- a/TESTING/MATGEN/slatm5.f +++ b/TESTING/MATGEN/slatm5.f @@ -48,7 +48,7 @@ *> \param[in] PRTYPE *> \verbatim *> PRTYPE is INTEGER -*> "Points" to a certian type of the matrices to generate +*> "Points" to a certain type of the matrices to generate *> (see futher details). *> \endverbatim *> diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index 920e43e8..b977a7f4 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -30,7 +30,7 @@ *> \verbatim *> *> ZLATM2 returns the (I,J) entry of a random matrix of dimension -*> (M, N) described by the other paramters. It is called by the +*> (M, N) described by the other parameters. It is called by the *> ZLATMR routine in order to build random test matrices. No error *> checking on parameters is done, because this routine is called in *> a tight loop by ZLATMR which has already checked the parameters. diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f index 4c27ad3b..a79bf62b 100644 --- a/TESTING/MATGEN/zlatm3.f +++ b/TESTING/MATGEN/zlatm3.f @@ -32,7 +32,7 @@ *> \verbatim *> *> ZLATM3 returns the (ISUB,JSUB) entry of a random matrix of -*> dimension (M, N) described by the other paramters. (ISUB,JSUB) +*> dimension (M, N) described by the other parameters. (ISUB,JSUB) *> is the final position of the (I,J) entry after pivoting *> according to IPVTNG and IWORK. ZLATM3 is called by the *> ZLATMR routine in order to build random test matrices. No error diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f index 6b277268..5064fb7e 100644 --- a/TESTING/MATGEN/zlatm5.f +++ b/TESTING/MATGEN/zlatm5.f @@ -48,7 +48,7 @@ *> \param[in] PRTYPE *> \verbatim *> PRTYPE is INTEGER -*> "Points" to a certian type of the matrices to generate +*> "Points" to a certain type of the matrices to generate *> (see futher details). *> \endverbatim *> diff --git a/TESTING/Makefile b/TESTING/Makefile index 9aaf07de..968a9a2b 100644 --- a/TESTING/Makefile +++ b/TESTING/Makefile @@ -582,3 +582,5 @@ FRCEIG: FRC: @FRC=$(FRC) + +.NOTPARALLEL: |