comments unified: 'End of' comment: name fixed

SRC/cgetsls.f

@@ -491,6 +491,6 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB,
       WORK( 1 ) = REAL( TSZO + LWO )
       RETURN
 *
-*     End of ZGETSLS
+*     End of CGETSLS
 *
       END

SRC/clapmr.f

@@ -195,7 +195,7 @@ SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K )
 *
       RETURN
 *
-*     End of ZLAPMT
+*     End of CLAPMR
 *
       END
 

SRC/dladiv.f

@@ -246,6 +246,6 @@ DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T )
 *
       RETURN
 *
-*     End of DLADIV12
+*     End of DLADIV2
 *
       END

SRC/dlapmr.f

@@ -195,7 +195,7 @@ SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K )
 *
       RETURN
 *
-*     End of ZLAPMT
+*     End of DLAPMR
 *
       END
 

SRC/sladiv.f

@@ -246,6 +246,6 @@ REAL FUNCTION SLADIV2( A, B, C, D, R, T )
 *
       RETURN
 *
-*     End of SLADIV
+*     End of SLADIV2
 *
       END

SRC/slapmr.f

@@ -195,7 +195,7 @@ SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K )
 *
       RETURN
 *
-*     End of ZLAPMT
+*     End of SLAPMR
 *
       END
 

SRC/slartgp.f

@@ -194,6 +194,6 @@ SUBROUTINE SLARTGP( F, G, CS, SN, R )
       END IF
       RETURN
 *
-*     End of SLARTG
+*     End of SLARTGP
 *
       END

SRC/ssycon_3.f

@@ -277,6 +277,6 @@ SUBROUTINE SSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND,
 *
       RETURN
 *
-*     End of DSYCON_3
+*     End of SSYCON_3
 *
       END

SRC/zlapmr.f

@@ -195,7 +195,7 @@ SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K )
 *
       RETURN
 *
-*     End of ZLAPMT
+*     End of ZLAPMR
 *
       END
 

TESTING/EIG/cchkhb2stg.f

@@ -888,6 +888,6 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
  9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
      $      I2, ', test(', I2, ')=', G10.3 )
 *
-*     End of CCHKHBSTG
+*     End of CCHKHB2STG
 *
       END

TESTING/EIG/dchksb2stg.f

@@ -876,6 +876,6 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
  9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
      $      I2, ', test(', I2, ')=', G10.3 )
 *
-*     End of DCHKSBSTG
+*     End of DCHKSB2STG
 *
       END

TESTING/EIG/dsgt01.f

@@ -237,6 +237,6 @@ SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
 *
       RETURN
 *
-*     End of DDGT01
+*     End of DSGT01
 *
       END

TESTING/EIG/schksb2stg.f

@@ -876,6 +876,6 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
  9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
      $      I2, ', test(', I2, ')=', G10.3 )
 *
-*     End of SCHKSBSTG
+*     End of SCHKSB2STG
 *
       END

TESTING/EIG/zchkhb2stg.f

@@ -885,6 +885,6 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
  9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
      $      I2, ', test(', I2, ')=', G10.3 )
 *
-*     End of ZCHKHBSTG
+*     End of ZCHKHB2STG
 *
       END

TESTING/EIG/zsgt01.f

@@ -247,6 +247,6 @@ SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
 *
       RETURN
 *
-*     End of CDGT01
+*     End of ZDGT01
 *
       END

TESTING/LIN/cchkhe_aa_2stage.f

@@ -575,6 +575,6 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS,
      $      I6 )
       RETURN
 *
-*     End of CCHKSY_AA_2STAGE
+*     End of CCHKHE_AA_2STAGE
 *
       END

TESTING/LIN/cchktsqr.f

@@ -249,6 +249,6 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
      $      ', NB=', I5,' test(', I2, ')=', G12.5 )
       RETURN
 *
-*     End of CCHKQRT
+*     End of CCHKTSQR
 *
       END

TESTING/LIN/cdrvgbx.f

@@ -1027,6 +1027,6 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA,
 *
       RETURN
 *
-*     End of CDRVGB
+*     End of CDRVGBX
 *
       END

TESTING/LIN/cdrvgex.f

@@ -888,6 +888,6 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      G12.5 )
       RETURN
 *
-*     End of CDRVGE
+*     End of CDRVGEX
 *
       END

TESTING/LIN/cdrvhex.f

@@ -715,6 +715,6 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of CDRVHE
+*     End of CDRVHEX
 *
       END

TESTING/LIN/cdrvpox.f

@@ -731,6 +731,6 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      G12.5 )
       RETURN
 *
-*     End of CDRVPO
+*     End of CDRVPOX
 *
       END

TESTING/LIN/cdrvsy_aa_2stage.f

@@ -482,6 +482,6 @@ SUBROUTINE CDRVSY_AA_2STAGE(
      $      ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of SDRVSY_AA_2STAGE
+*     End of CSDRVSY_AA_2STAGE
 *
       END

TESTING/LIN/cdrvsyx.f

@@ -721,6 +721,6 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of CDRVSY
+*     End of CDRVSYX
 *
       END

TESTING/LIN/cerrgex.f

@@ -557,6 +557,6 @@ SUBROUTINE CERRGE( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRGE
+*     End of CERRGEX
 *
       END

TESTING/LIN/cerrhex.f

@@ -606,6 +606,6 @@ SUBROUTINE CERRHE( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRHE
+*     End of CERRHEX
 *
       END

TESTING/LIN/cerrlqtp.f

@@ -217,6 +217,6 @@ SUBROUTINE CERRLQTP( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRLQT
+*     End of CERRLQTP
 *
       END

TESTING/LIN/cerrpox.f

@@ -529,6 +529,6 @@ SUBROUTINE CERRPO( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRPO
+*     End of CERRPOX
 *
       END

TESTING/LIN/cerrqrtp.f

@@ -221,6 +221,6 @@ SUBROUTINE CERRQRTP( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRQRT
+*     End of CERRQRTP
 *
       END

TESTING/LIN/cerrsyx.f

@@ -604,6 +604,6 @@ SUBROUTINE CERRSY( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRSY
+*     End of CERRSYX
 *
       END

TESTING/LIN/cerrvxx.f

@@ -1264,6 +1264,6 @@ SUBROUTINE CERRVX( PATH, NUNIT )
 *
       RETURN
 *
-*     End of CERRVX
+*     End of CERRVXX
 *
       END

TESTING/LIN/clatb5.f

@@ -226,6 +226,6 @@ SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE,
 *
       RETURN
 *
-*     End of SLATB5
+*     End of CLATB5
 *
       END

TESTING/LIN/csyt01_aa.f

@@ -255,6 +255,6 @@ SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
 *
       RETURN
 *
-*     End of CSYT01
+*     End of CSYT01_AA
 *
       END

TESTING/LIN/dchktsqr.f

@@ -249,6 +249,6 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
      $      ', NB=', I5,' test(', I2, ')=', G12.5 )
       RETURN
 *
-*     End of DCHKQRT
+*     End of DCHKTSQR
 *
       END

TESTING/LIN/ddrvgbx.f

@@ -1021,6 +1021,6 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA,
 *
       RETURN
 *
-*     End of DDRVGB
+*     End of DDRVGBX
 *
       END

TESTING/LIN/ddrvgex.f

@@ -886,6 +886,6 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      G12.5 )
       RETURN
 *
-*     End of DDRVGE
+*     End of DDRVGEX
 *
       END

TESTING/LIN/ddrvpox.f

@@ -728,6 +728,6 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      G12.5 )
       RETURN
 *
-*     End of DDRVPO
+*     End of DDRVPOX
 *
       END

TESTING/LIN/ddrvsyx.f

@@ -704,6 +704,6 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
       RETURN
 *
-*     End of DDRVSY
+*     End of DDRVSYX
 *
       END

TESTING/LIN/derrgex.f

@@ -557,6 +557,6 @@ SUBROUTINE DERRGE( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRGE
+*     End of DERRGEX
 *
       END

TESTING/LIN/derrlqtp.f

@@ -217,6 +217,6 @@ SUBROUTINE DERRLQTP( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRLQT
+*     End of DERRLQTP
 *
       END

TESTING/LIN/derrpox.f

@@ -523,6 +523,6 @@ SUBROUTINE DERRPO( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRPO
+*     End of DERRPOX
 *
       END

TESTING/LIN/derrqrtp.f

@@ -221,6 +221,6 @@ SUBROUTINE DERRQRTP( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRQRT
+*     End of DERRQRTP
 *
       END

TESTING/LIN/derrsyx.f

@@ -611,6 +611,6 @@ SUBROUTINE DERRSY( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRSY
+*     End of DERRSYX
 *
       END

TESTING/LIN/derrvxx.f

@@ -1039,6 +1039,6 @@ SUBROUTINE DERRVX( PATH, NUNIT )
 *
       RETURN
 *
-*     End of DERRVX
+*     End of DERRVXX
 *
       END

TESTING/LIN/dget08.f

@@ -214,6 +214,6 @@ SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
 *
       RETURN
 *
-*     End of DGET02
+*     End of DGET08
 *
       END

TESTING/LIN/dsyt01_aa.f

@@ -253,6 +253,6 @@ SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
 *
       RETURN
 *
-*     End of DSYT01
+*     End of DSYT01_AA
 *
       END

TESTING/LIN/schksy_aa_2stage.f

@@ -564,6 +564,6 @@ SUBROUTINE SCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS,
      $      I6 )
       RETURN
 *
-*     End of DCHKSY_AA_2STAGE
+*     End of SCHKSY_AA_2STAGE
 *
       END

TESTING/LIN/schktsqr.f

@@ -249,6 +249,6 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
      $      ', NB=', I5,' test(', I2, ')=', G12.5 )
       RETURN
 *
-*     End of SCHKQRT
+*     End of SCHKTSQR
 *
       END

TESTING/LIN/sdrvgbx.f

@@ -1024,6 +1024,6 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA,
 *
       RETURN
 *
-*     End of SDRVGB
+*     End of SDRVGBX
 *
       END

TESTING/LIN/sdrvgex.f

@@ -886,6 +886,6 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX,
      $      G12.5 )
       RETURN
 *
-*     End of SDRVGE
+*     End of SDRVGEX
 *
       END