90      $                   G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  variable
305      $                  X, XX, XS, Y, YY, YS, YT, G )
311      $                  X, XX, XS, Y, YY, YS, YT, G )
322      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
328      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
394      $                  XS, Y, YY, YS, YT, G )  argument
416      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
562                                  XS( I ) = XX( I )
612                                  ISAME( 7 ) = LDE( XS, XX, LX )
629                                  ISAME( 9 ) = LDE( XS, XX, LX )
735      $                  XS, Y, YY, YS, YT, G )  argument
757      $                   X( NMAX ), XS( NMAX*INCMAX ),  local
889                               XS( I ) = XX( I )
943                               ISAME( 6 ) = LDE( XS, XX, LX )
958                               ISAME( 7 ) = LDE( XS, XX, LX )
971                               ISAME( 5 ) = LDE( XS, XX, LX )
1077      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1098      $                   XS( NMAX*INCMAX ), XT( NMAX ),  local
1223                            XS( I ) = XX( I )
1301                               ISAME( 7 ) = LDE( XS, XX, LX )
1303                               ISAME( 7 ) = LDERES( 'GE', ' ', 1, N, XS,
1312                               ISAME( 8 ) = LDE( XS, XX, LX )
1314                               ISAME( 8 ) = LDERES( 'GE', ' ', 1, N, XS,
1321                               ISAME( 6 ) = LDE( XS, XX, LX )
1323                               ISAME( 6 ) = LDERES( 'GE', ' ', 1, N, XS,
1434      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1456      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1558                         XS( I ) = XX( I )
1589                      ISAME( 4 ) = LDE( XS, XX, LX )
1695      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1717      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
1814                      XS( I ) = XX( I )
1849                   ISAME( 4 ) = LDE( XS, XX, LX )
1973      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1995      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
2108                         XS( I ) = XX( I )
2149                      ISAME( 4 ) = LDE( XS, XX, LX )