94      $                   YS( NMAX*INCMAX ), YT( NMAX ),  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 )
351      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, 
357      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, 
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      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
649                                  YS( I ) = YY( I )
699                                     ISAME( 10 ) = LCE( YS, YY, LY )
702      $                                            ML, YS, YY,
716                                     ISAME( 12 ) = LCE( YS, YY, LY )
719      $                                            ML, YS, YY,
820      $                  XS, Y, YY, YS, YT, G, IORDER )  argument
845      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),  local
988                               YS( I ) = YY( I )
1043                                  ISAME( 9 ) = LCE( YS, YY, LY )
1046      $                                        YS, YY, ABS( INCY ) )
1058                                  ISAME( 10 ) = LCE( YS, YY, LY )
1061      $                                         YS, YY, ABS( INCY ) )
1071                                  ISAME( 8 ) = LCE( YS, YY, LY )
1074      $                                        YS, YY, ABS( INCY ) )
1556      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1583      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
1691                         YS( I ) = YY( I )
1727                      ISAME( 6 ) = LCE( YS, YY, LY )
1833      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1860      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2126      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2153      $                   YS( NMAX*INCMAX ), YT( NMAX ),  local
2277                         YS( I ) = YY( I )
2316                      ISAME( 6 ) = LCE( YS, YY, LY )