Initialize complex variables with CMPLX, not just REAL

TESTING/EIG/cdrges.f

@@ -514,7 +514,7 @@
      $        ILAENV( 1, 'CUNMQR', 'LC', NMAX, NMAX, NMAX, -1 ),
      $        ILAENV( 1, 'CUNGQR', ' ', NMAX, NMAX, NMAX, -1 ) )
          MAXWRK = MAX( NMAX+NMAX*NB, 3*NMAX*NMAX )
-         WORK( 1 ) = REAL( MAXWRK )
+         WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
       END IF
 *
       IF( LWORK.LT.MINWRK )
@@ -874,7 +874,7 @@
 *
       CALL ALASVM( 'CGS', NOUNIT, NERRS, NTESTT, 0 )
 *
-      WORK( 1 ) = REAL( MAXWRK )
+      WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
 *
       RETURN
 *

TESTING/EIG/cdrges3.f

@@ -515,7 +515,7 @@
      $        ILAENV( 1, 'CUNMQR', 'LC', NMAX, NMAX, NMAX, -1 ),
      $        ILAENV( 1, 'CUNGQR', ' ', NMAX, NMAX, NMAX, -1 ) )
          MAXWRK = MAX( NMAX+NMAX*NB, 3*NMAX*NMAX)
-         WORK( 1 ) = REAL( MAXWRK )
+         WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
       END IF
 *
       IF( LWORK.LT.MINWRK )
@@ -883,7 +883,7 @@
 *
       CALL ALASVM( 'CGS', NOUNIT, NERRS, NTESTT, 0 )
 *
-      WORK( 1 ) = REAL( MAXWRK )
+      WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
 *
       RETURN
 *

TESTING/EIG/cdrgsx.f

@@ -462,7 +462,7 @@
 *
          MAXWRK = MAX( MAXWRK, MINWRK )
 *
-         WORK( 1 ) = REAL( MAXWRK )
+         WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
       END IF
 *
       IF( LWORK.LT.MINWRK )
@@ -895,7 +895,7 @@
 *
       CALL ALASVM( 'CGX', NOUT, NERRS, NTESTT, 0 )
 *
-      WORK( 1 ) = REAL( MAXWRK )
+      WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
 *
       RETURN
 *

TESTING/EIG/cdrgvx.f

@@ -379,7 +379,7 @@
          MAXWRK = NMAX*( 1+ILAENV( 1, 'CGEQRF', ' ', NMAX, 1, NMAX,
      $            0 ) )
          MAXWRK = MAX( MAXWRK, 2*NMAX*( NMAX+1 ) )
-         WORK( 1 ) = REAL( MAXWRK )
+         WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
       END IF
 *
       IF( LWORK.LT.MINWRK )
@@ -699,7 +699,7 @@
 *
       CALL ALASVM( 'CXV', NOUT, NERRS, NTESTT, 0 )
 *
-      WORK( 1 ) = REAL( MAXWRK )
+      WORK( 1 ) = CMPLX( REAL( MAXWRK ) )
 *
       RETURN
 *