88      $                   ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),  variable
318      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
324      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
332      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
338      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
347      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
353      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
361      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
367      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
375      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
381      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
389      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
395      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
458      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
480      $                   AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),  local
631                                  AS( I ) = AA( I )
683                                  ISAME( 5 ) = LSE( AS, AA, LAA )
700                                  ISAME( 7 ) = LSE( AS, AA, LAA )
818      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
840      $                   AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),  local
975                               AS( I ) = AA( I )
1032                               ISAME( 4 ) = LSE( AS, AA, LAA )
1047                               ISAME( 5 ) = LSE( AS, AA, LAA )
1061                               ISAME( 4 ) = LSE( AS, AA, LAA )
1178      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER )  argument
1199      $                   AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),  local
1339                            AS( I ) = AA( I )
1418                            ISAME( 5 ) = LSE( AS, AA, LAA )
1429                            ISAME( 6 ) = LSE( AS, AA, LAA )
1439                            ISAME( 5 ) = LSE( AS, AA, LAA )
1565      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1587      $                   AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),  local
1686                         AS( I ) = AA( I )
1726                         ISAME( 8 ) = LSE( AS, AA, LAA )
1728                         ISAME( 8 ) = LSERES( 'ge', ' ', M, N, AS, AA,
1837      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1859      $                   AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),  local
1959                      AS( I ) = AA( I )
2002                      ISAME( 6 ) = LSE( AS, AA, LAA )
2004                      ISAME( 6 ) = LSERES( SNAME( 8: 9 ), UPLO, N, N, AS,
2133      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2155      $                   AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),  local
2271                         AS( I ) = AA( I )
2321                         ISAME( 8 ) = LSE( AS, AA, LAA )
2324      $                               AS, AA, LDA )
2786       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2803       REAL               AA( LDA, * ), AS( LDA, * )  local
2812                IF( AA( I, J ).NE.AS( I, J ) )
2826                IF( AA( I, J ).NE.AS( I, J ) )
2830                IF( AA( I, J ).NE.AS( I, J ) )