92      $                   X( NMAX ), XS( NMAX*INCMAX ),  variable
323      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
329      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
337      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
343      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
365      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
371      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
385      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
393      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
399      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
465      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
489      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
644                                  XS( I ) = XX( I )
695                                  ISAME( 7 ) = LCE( XS, XX, LX )
712                                  ISAME( 9 ) = LCE( XS, XX, LX )
820      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
844      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
983                               XS( I ) = XX( I )
1039                               ISAME( 6 ) = LCE( XS, XX, LX )
1054                               ISAME( 7 ) = LCE( XS, XX, LX )
1067                               ISAME( 5 ) = LCE( XS, XX, LX )
1175      $                 INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER )  argument
1199      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1344                            XS( I ) = XX( I )
1422                               ISAME( 7 ) = LCE( XS, XX, LX )
1424                               ISAME( 7 ) = LCERES( 'ge', ' ', 1, N, XS,
1433                               ISAME( 8 ) = LCE( XS, XX, LX )
1435                               ISAME( 8 ) = LCERES( 'ge', ' ', 1, N, XS,
1442                               ISAME( 6 ) = LCE( XS, XX, LX )
1444                               ISAME( 6 ) = LCERES( 'ge', ' ', 1, N, XS,
1556      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1581      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1687                         XS( I ) = XX( I )
1725                      ISAME( 4 ) = LCE( XS, XX, LX )
1833      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1858      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1965                      XS( I ) = XX( I )
2002                   ISAME( 4 ) = LCE( XS, XX, LX )
2126      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2151      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
2273                         XS( I ) = XX( I )
2314                      ISAME( 4 ) = LCE( XS, XX, LX )