comments unified: 'End of' comment: name fixed

Author: jip

SRC/cgetsls.f

@@ -494,6 +494,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

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

SRC/dladiv.f

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

SRC/dlapmr.f

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

SRC/sladiv.f

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

SRC/slapmr.f

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

SRC/slartgp.f

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

SRC/ssycon_3.f

@@ -280,6 +280,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

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

TESTING/EIG/cchkhb2stg.f

@@ -873,6 +873,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