89      $                   G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  variable
319      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
325      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
333      $                  X, XX, XS, Y, YY, YS, YT, G, 0 )
339      $                  X, XX, XS, Y, YY, YS, YT, G, 1 )
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,
459      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
481      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
635                                  XS( I ) = XX( I )
685                                  ISAME( 7 ) = LSE( XS, XX, LX )
702                                  ISAME( 9 ) = LSE( XS, XX, LX )
819      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
841      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
979                               XS( I ) = XX( I )
1034                               ISAME( 6 ) = LSE( XS, XX, LX )
1049                               ISAME( 7 ) = LSE( XS, XX, LX )
1062                               ISAME( 5 ) = LSE( XS, XX, LX )
1178      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER )  argument
1200      $                   XS( NMAX*INCMAX ), XT( NMAX ),  local
1343                            XS( I ) = XX( I )
1421                               ISAME( 7 ) = LSE( XS, XX, LX )
1423                               ISAME( 7 ) = LSERES( 'ge', ' ', 1, N, XS,
1432                               ISAME( 8 ) = LSE( XS, XX, LX )
1434                               ISAME( 8 ) = LSERES( 'ge', ' ', 1, N, XS,
1441                               ISAME( 6 ) = LSE( XS, XX, LX )
1443                               ISAME( 6 ) = LSERES( 'ge', ' ', 1, N, XS,
1565      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1588      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1690                         XS( I ) = XX( I )
1721                      ISAME( 4 ) = LSE( XS, XX, LX )
1837      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1860      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1963                      XS( I ) = XX( I )
1999                   ISAME( 4 ) = LSE( XS, XX, LX )
2133      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2156      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
2275                         XS( I ) = XX( I )
2316                      ISAME( 4 ) = LSE( XS, XX, LX )