diff options
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: |