93      $                   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
490      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
645                                  XS( I ) = XX( I )
696                                  ISAME( 7 ) = LZE( XS, XX, LX )
713                                  ISAME( 9 ) = LZE( XS, XX, LX )
821      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
846      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
985                               XS( I ) = XX( I )
1041                               ISAME( 6 ) = LZE( XS, XX, LX )
1056                               ISAME( 7 ) = LZE( XS, XX, LX )
1069                               ISAME( 5 ) = LZE( XS, XX, LX )
1177      $                 INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER )  argument
1202      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1347                            XS( I ) = XX( I )
1425                               ISAME( 7 ) = LZE( XS, XX, LX )
1427                               ISAME( 7 ) = LZERES( 'ge', ' ', 1, N, XS,
1436                               ISAME( 8 ) = LZE( XS, XX, LX )
1438                               ISAME( 8 ) = LZERES( 'ge', ' ', 1, N, XS,
1445                               ISAME( 6 ) = LZE( XS, XX, LX )
1447                               ISAME( 6 ) = LZERES( 'ge', ' ', 1, N, XS,
1559      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1585      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1691                         XS( I ) = XX( I )
1729                      ISAME( 4 ) = LZE( XS, XX, LX )
1837      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1863      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1970                      XS( I ) = XX( I )
2007                   ISAME( 4 ) = LZE( XS, XX, LX )
2131      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2157      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
2279                         XS( I ) = XX( I )
2320                      ISAME( 4 ) = LZE( XS, XX, LX )