136      $                   G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  variable
344      $                  X, XX, XS, Y, YY, YS, YT, G )
350      $                  X, XX, XS, Y, YY, YS, YT, G )
361      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
367      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
433      $                  XS, Y, YY, YS, YT, G )  argument
455      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
601                                  XS( I ) = XX( I )
651                                  ISAME( 7 ) = LDE( XS, XX, LX )
668                                  ISAME( 9 ) = LDE( XS, XX, LX )
774      $                  XS, Y, YY, YS, YT, G )  argument
796      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
928                               XS( I ) = XX( I )
982                               ISAME( 6 ) = LDE( XS, XX, LX )
997                               ISAME( 7 ) = LDE( XS, XX, LX )
1010                               ISAME( 5 ) = LDE( XS, XX, LX )
1116      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1137      $                   XS( NMAX*INCMAX ), XT( NMAX ),  local
1262                            XS( I ) = XX( I )
1340                               ISAME( 7 ) = LDE( XS, XX, LX )
1342                               ISAME( 7 ) = LDERES( 'GE', ' ', 1, N, XS,
1351                               ISAME( 8 ) = LDE( XS, XX, LX )
1353                               ISAME( 8 ) = LDERES( 'GE', ' ', 1, N, XS,
1360                               ISAME( 6 ) = LDE( XS, XX, LX )
1362                               ISAME( 6 ) = LDERES( 'GE', ' ', 1, N, XS,
1473      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1495      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1597                         XS( I ) = XX( I )
1628                      ISAME( 4 ) = LDE( XS, XX, LX )
1734      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1756      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1853                      XS( I ) = XX( I )
1888                   ISAME( 4 ) = LDE( XS, XX, LX )
2012      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2034      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
2147                         XS( I ) = XX( I )
2188                      ISAME( 4 ) = LDE( XS, XX, LX )