diff --git a/SRC/cgehrd.f b/SRC/cgehrd.f
index f2a7d042a..35bd2e668 100644
--- a/SRC/cgehrd.f
+++ b/SRC/cgehrd.f
@@ -232,7 +232,7 @@ SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK,
          IF( NH.LE.1 ) THEN
             LWKOPT = 1
          ELSE
-            NB = MIN( NBMAX, ILAENV( 1, 'DGEHRD', ' ', N, ILO, IHI,
+            NB = MIN( NBMAX, ILAENV( 1, 'CGEHRD', ' ', N, ILO, IHI,
      $                              -1 ) )
             LWKOPT = N*NB + TSIZE
          END IF
diff --git a/SRC/chetrd.f b/SRC/chetrd.f
index 15ea04b9f..34c74959d 100644
--- a/SRC/chetrd.f
+++ b/SRC/chetrd.f
@@ -251,7 +251,7 @@ SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK,
 *        Determine the block size.
 *
          NB = ILAENV( 1, 'CHETRD', UPLO, N, -1, -1, -1 )
-         LWKOPT = N*NB
+         LWKOPT = MAX( 1, N*NB )
          WORK( 1 ) = SROUNDUP_LWORK(LWKOPT)
       END IF
 *
diff --git a/SRC/sgelqt.f b/SRC/sgelqt.f
index f941388ec..343da9f49 100644
--- a/SRC/sgelqt.f
+++ b/SRC/sgelqt.f
@@ -18,7 +18,7 @@
 *>
 *> \verbatim
 *>
-*> DGELQT computes a blocked LQ factorization of a real M-by-N matrix A
+*> SGELQT computes a blocked LQ factorization of a real M-by-N matrix A
 *> using the compact WY representation of Q.
 *> \endverbatim
 *
diff --git a/SRC/sgemlq.f b/SRC/sgemlq.f
index 7e4d9bf65..5793e6ea7 100644
--- a/SRC/sgemlq.f
+++ b/SRC/sgemlq.f
@@ -74,7 +74,7 @@
 *>          A is REAL array, dimension
 *>                               (LDA,M) if SIDE = 'L',
 *>                               (LDA,N) if SIDE = 'R'
-*>          Part of the data structure to represent Q as returned by DGELQ.
+*>          Part of the data structure to represent Q as returned by SGELQ.
 *> \endverbatim
 *>
 *> \param[in] LDA
diff --git a/SRC/sgemlqt.f b/SRC/sgemlqt.f
index 7917f6b9c..1cb882cb4 100644
--- a/SRC/sgemlqt.f
+++ b/SRC/sgemlqt.f
@@ -20,7 +20,7 @@
 *>
 *> \verbatim
 *>
-*> DGEMLQT overwrites the general real M-by-N matrix C with
+*> SGEMLQT overwrites the general real M-by-N matrix C with
 *>
 *>                 SIDE = 'L'     SIDE = 'R'
 *> TRANS = 'N':      Q C            C Q
diff --git a/SRC/ssytrd.f b/SRC/ssytrd.f
index 44201a954..fda10d372 100644
--- a/SRC/ssytrd.f
+++ b/SRC/ssytrd.f
@@ -249,7 +249,7 @@ SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK,
 *        Determine the block size.
 *
          NB = ILAENV( 1, 'SSYTRD', UPLO, N, -1, -1, -1 )
-         LWKOPT = N*NB
+         LWKOPT = MAX( 1, N*NB )
          WORK( 1 ) = SROUNDUP_LWORK(LWKOPT)
       END IF
 *
diff --git a/SRC/zhetrd.f b/SRC/zhetrd.f
index 273e87f38..7a64e228f 100644
--- a/SRC/zhetrd.f
+++ b/SRC/zhetrd.f
@@ -250,7 +250,7 @@ SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK,
 *        Determine the block size.
 *
          NB = ILAENV( 1, 'ZHETRD', UPLO, N, -1, -1, -1 )
-         LWKOPT = N*NB
+         LWKOPT = MAX( 1, N*NB )
          WORK( 1 ) = LWKOPT
       END IF
 *