--- rpl/lapack/lapack/dlasd7.f	2018/05/29 07:18:00	1.17
+++ rpl/lapack/lapack/dlasd7.f	2020/05/21 21:46:00	1.18
@@ -400,7 +400,7 @@
          VL( I ) = VLW( IDXI )
    50 CONTINUE
 *
-*     Calculate the allowable deflation tolerence
+*     Calculate the allowable deflation tolerance
 *
       EPS = DLAMCH( 'Epsilon' )
       TOL = MAX( ABS( ALPHA ), ABS( BETA ) )