Merge pull request #321 from luzpaz/misc-typos

Misc. Typos

Author: langou

SRC/cgesvdq.f

@@ -354,7 +354,7 @@
 *>   1. The data movement (matrix transpose) is coded using simple nested
 *>   DO-loops because BLAS and LAPACK do not provide corresponding subroutines.
 *>   Those DO-loops are easily identified in this source code - by the CONTINUE
-*>   statements labeled wit 11**. In an optimized version of this code, the
+*>   statements labeled with 11**. In an optimized version of this code, the
 *>   nested DO loops should be replaced with calls to an optimized subroutine.
 *>   2. This code scales A by 1/SQRT(M) if the largest ABS(A(i,j)) could cause
 *>   column norm overflow. This is the minial precaution and it is left to the
@@ -390,7 +390,7 @@
 *
 *> \par Contributors:
 *  ==================
-*> 
+*>
 *> \verbatim
 *> Developed and coded by Zlatko Drmac, Department of Mathematics
 *>  University of Zagreb, Croatia, drmac@math.hr
@@ -953,7 +953,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
      $          CALL CLASET( 'L', NR-1,NR-1, CZERO,CZERO, A(2,1), LDA )
             CALL CGESVD( 'N', 'N', NR, N, A, LDA, S, U, LDU,
      $           V, LDV, CWORK, LCWORK, RWORK, INFO )
-*	
+*
          END IF
 *
       ELSE IF ( LSVEC .AND. ( .NOT. RSVEC) ) THEN

SRC/clahqr.f

@@ -153,7 +153,7 @@
 *>
 *>                  If INFO > 0 and WANTT is .TRUE., then on exit
 *>          (*)       (initial value of H)*U  = U*(final value of H)
-*>                  where U is an orthognal matrix.    The final
+*>                  where U is an orthogonal matrix.    The final
 *>                  value of H is upper Hessenberg and triangular in
 *>                  rows and columns INFO+1 through IHI.
 *>

SRC/ctgsy2.f

@@ -67,7 +67,7 @@
 *>             R  * B**H + L  * E**H  = scale * -F
 *>
 *> This case is used to compute an estimate of Dif[(A, D), (B, E)] =
-*> = sigma_min(Z) using reverse communicaton with CLACON.
+*> = sigma_min(Z) using reverse communication with CLACON.
 *>
 *> CTGSY2 also (IJOB >= 1) contributes to the computation in CTGSYL
 *> of an upper bound on the separation between to matrix pairs. Then

SRC/dgesvdq.f

@@ -356,7 +356,7 @@
 *>   1. The data movement (matrix transpose) is coded using simple nested
 *>   DO-loops because BLAS and LAPACK do not provide corresponding subroutines.
 *>   Those DO-loops are easily identified in this source code - by the CONTINUE
-*>   statements labeled wit 11**. In an optimized version of this code, the
+*>   statements labeled with 11**. In an optimized version of this code, the
 *>   nested DO loops should be replaced with calls to an optimized subroutine.
 *>   2. This code scales A by 1/SQRT(M) if the largest ABS(A(i,j)) could cause
 *>   column norm overflow. This is the minial precaution and it is left to the
@@ -392,7 +392,7 @@
 *
 *> \par Contributors:
 *  ==================
-*> 
+*>
 *> \verbatim
 *> Developed and coded by Zlatko Drmac, Department of Mathematics
 *>  University of Zagreb, Croatia, drmac@math.hr
@@ -955,7 +955,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
      $          CALL DLASET( 'L', NR-1,NR-1, ZERO,ZERO, A(2,1), LDA )
             CALL DGESVD( 'N', 'N', NR, N, A, LDA, S, U, LDU,
      $           V, LDV, WORK, LWORK, INFO )
-*	
+*
          END IF
 *
       ELSE IF ( LSVEC .AND. ( .NOT. RSVEC) ) THEN

SRC/dlahqr.f

@@ -165,7 +165,7 @@
 *>
 *>                  If INFO > 0 and WANTT is .TRUE., then on exit
 *>          (*)       (initial value of H)*U  = U*(final value of H)
-*>                  where U is an orthognal matrix.    The final
+*>                  where U is an orthogonal matrix.    The final
 *>                  value of H is upper Hessenberg and triangular in
 *>                  rows and columns INFO+1 through IHI.
 *>

SRC/dtgsy2.f

@@ -71,7 +71,7 @@
 *>             R  * B**T + L  * E**T  = scale * -F
 *>
 *> This case is used to compute an estimate of Dif[(A, D), (B, E)] =
-*> sigma_min(Z) using reverse communicaton with DLACON.
+*> sigma_min(Z) using reverse communication with DLACON.
 *>
 *> DTGSY2 also (IJOB >= 1) contributes to the computation in DTGSYL
 *> of an upper bound on the separation between to matrix pairs. Then

SRC/sgesvdq.f

@@ -356,7 +356,7 @@
 *>   1. The data movement (matrix transpose) is coded using simple nested
 *>   DO-loops because BLAS and LAPACK do not provide corresponding subroutines.
 *>   Those DO-loops are easily identified in this source code - by the CONTINUE
-*>   statements labeled wit 11**. In an optimized version of this code, the
+*>   statements labeled with 11**. In an optimized version of this code, the
 *>   nested DO loops should be replaced with calls to an optimized subroutine.
 *>   2. This code scales A by 1/SQRT(M) if the largest ABS(A(i,j)) could cause
 *>   column norm overflow. This is the minial precaution and it is left to the
@@ -392,7 +392,7 @@
 *
 *> \par Contributors:
 *  ==================
-*> 
+*>
 *> \verbatim
 *> Developed and coded by Zlatko Drmac, Department of Mathematics
 *>  University of Zagreb, Croatia, drmac@math.hr
@@ -958,7 +958,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
      $          CALL SLASET( 'L', NR-1,NR-1, ZERO,ZERO, A(2,1), LDA )
             CALL SGESVD( 'N', 'N', NR, N, A, LDA, S, U, LDU,
      $           V, LDV, WORK, LWORK, INFO )
-*	
+*
          END IF
 *
       ELSE IF ( LSVEC .AND. ( .NOT. RSVEC) ) THEN

SRC/slahqr.f

@@ -165,7 +165,7 @@
 *>
 *>                  If INFO > 0 and WANTT is .TRUE., then on exit
 *>          (*)       (initial value of H)*U  = U*(final value of H)
-*>                  where U is an orthognal matrix.    The final
+*>                  where U is an orthogonal matrix.    The final
 *>                  value of H is upper Hessenberg and triangular in
 *>                  rows and columns INFO+1 through IHI.
 *>

SRC/stgsy2.f

@@ -71,7 +71,7 @@
 *>             R  * B**T + L  * E**T  = scale * -F
 *>
 *> This case is used to compute an estimate of Dif[(A, D), (B, E)] =
-*> sigma_min(Z) using reverse communicaton with SLACON.
+*> sigma_min(Z) using reverse communication with SLACON.
 *>
 *> STGSY2 also (IJOB >= 1) contributes to the computation in STGSYL
 *> of an upper bound on the separation between to matrix pairs. Then

SRC/zgesvdq.f

@@ -354,7 +354,7 @@
 *>   1. The data movement (matrix transpose) is coded using simple nested
 *>   DO-loops because BLAS and LAPACK do not provide corresponding subroutines.
 *>   Those DO-loops are easily identified in this source code - by the CONTINUE
-*>   statements labeled wit 11**. In an optimized version of this code, the
+*>   statements labeled with 11**. In an optimized version of this code, the
 *>   nested DO loops should be replaced with calls to an optimized subroutine.
 *>   2. This code scales A by 1/SQRT(M) if the largest ABS(A(i,j)) could cause
 *>   column norm overflow. This is the minial precaution and it is left to the
@@ -390,7 +390,7 @@
 *
 *> \par Contributors:
 *  ==================
-*> 
+*>
 *> \verbatim
 *> Developed and coded by Zlatko Drmac, Department of Mathematics
 *>  University of Zagreb, Croatia, drmac@math.hr
@@ -951,7 +951,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA,
      $          CALL ZLASET( 'L', NR-1,NR-1, CZERO,CZERO, A(2,1), LDA )
             CALL ZGESVD( 'N', 'N', NR, N, A, LDA, S, U, LDU,
      $           V, LDV, CWORK, LCWORK, RWORK, INFO )
-*	
+*
          END IF
 *
       ELSE IF ( LSVEC .AND. ( .NOT. RSVEC) ) THEN