459       COMPLEX            ALPHA, ALS, BETA, BLS  local
562                            BETA = BET( IB )
588                            BLS = BETA
599      $                        LDB, BETA, LDC)
604      $                                 BETA, CC, LDC )
626                            ISAME( 11 ) = BLS.EQ.BETA
654      $                                   ALPHA, A, NMAX, B, NMAX, BETA,
692      $           M, N, K, ALPHA, LDA, LDB, BETA, LDC)
721      $                 K, ALPHA, LDA, LDB, BETA, LDC)  argument
723       COMPLEX          ALPHA, BETA  local
748       WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
789       COMPLEX            ALPHA, ALS, BETA, BLS  local
879                         BETA = BET( IB )
904                         BLS = BETA
915      $                      BETA, LDC) 
920      $                                 ALPHA, AA, LDA, BB, LDB, BETA,
924      $                                 ALPHA, AA, LDA, BB, LDB, BETA,
947                         ISAME( 10 ) = BLS.EQ.BETA
976      $                                    NMAX, B, NMAX, BETA, C, NMAX,
981      $                                    NMAX, A, NMAX, BETA, C, NMAX,
1018      $           LDB, BETA, LDC) 
1047      $                 ALPHA, LDA, LDB, BETA, LDC)  argument
1049       COMPLEX          ALPHA, BETA  local
1070       WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1474       COMPLEX            ALPHA, ALS, BETA, BETS  local
1558                         BETA = BET( IB )
1560                            RBETA = REAL( BETA )
1561                            BETA = CMPLX( RBETA, RZERO )
1593                            BETS = BETA
1615      $                        UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1619      $                                 ALPHA, AA, LDA, BETA, CC, LDC )
1646                            ISAME( 8 ) = BETS.EQ.BETA
1691      $                                       A( 1, J ), NMAX, BETA,
1698      $                                       A( J, 1 ), NMAX, BETA,
1750      $   LDA, BETA, LDC)
1784      $                 N, K, ALPHA, LDA, BETA, LDC)  argument
1786       COMPLEX          ALPHA, BETA  local
1809       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1818      $                 N, K, ALPHA, LDA, BETA, LDC)  argument
1820       REAL             ALPHA, BETA  local
1843       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1884       COMPLEX            ALPHA, ALS, BETA, BETS  local
1981                         BETA = BET( IB )
1983                            RBETA = REAL( BETA )
1984                            BETA = CMPLX( RBETA, RZERO )
2016                            BETS = BETA
2039      $                        BETA, LDC)
2043      $                                  ALPHA, AA, LDA, BB, LDB, BETA, 
2069                            ISAME( 10 ) = BETS.EQ.BETA
2128      $                                       2*NMAX, BETA, C( JJ, J ),
2150      $                                      BETA, C( JJ, J ), NMAX, CT,
2203      $      ALPHA, LDA, LDB, BETA, LDC)
2237      $                 N, K, ALPHA, LDA, LDB, BETA, LDC)  argument
2239       COMPLEX          ALPHA, BETA  local
2262       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2271      $                 N, K, ALPHA, LDA, LDB, BETA, LDC)  argument
2274       REAL             BETA  local
2297       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2433      $                  BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,  argument
2452       COMPLEX            ALPHA, BETA  local
2572             CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2574      $               ABS1( BETA )*ABS1( C( I, J ) )