140      $                   X( NMAX ), XS( NMAX*INCMAX ),  variable
350      $                  X, XX, XS, Y, YY, YS, YT, G )
356      $                  X, XX, XS, Y, YY, YS, YT, G )
367      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
441      $                  XS, Y, YY, YS, YT, G )  argument
466      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
613                                  XS( I ) = XX( I )
663                                  ISAME( 7 ) = LZE( XS, XX, LX )
680                                  ISAME( 9 ) = LZE( XS, XX, LX )
787      $                  XS, Y, YY, YS, YT, G )  argument
812      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
945                               XS( I ) = XX( I )
999                               ISAME( 6 ) = LZE( XS, XX, LX )
1014                               ISAME( 7 ) = LZE( XS, XX, LX )
1027                               ISAME( 5 ) = LZE( XS, XX, LX )
1135      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1159      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1286                            XS( I ) = XX( I )
1364                               ISAME( 7 ) = LZE( XS, XX, LX )
1366                               ISAME( 7 ) = LZERES( 'GE', ' ', 1, N, XS,
1375                               ISAME( 8 ) = LZE( XS, XX, LX )
1377                               ISAME( 8 ) = LZERES( 'GE', ' ', 1, N, XS,
1384                               ISAME( 6 ) = LZE( XS, XX, LX )
1386                               ISAME( 6 ) = LZERES( 'GE', ' ', 1, N, XS,
1497      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1522      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1628                         XS( I ) = XX( I )
1666                      ISAME( 4 ) = LZE( XS, XX, LX )
1775      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1800      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1901                      XS( I ) = XX( I )
1936                   ISAME( 4 ) = LZE( XS, XX, LX )
2060      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2085      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
2201                         XS( I ) = XX( I )
2242                      ISAME( 4 ) = LZE( XS, XX, LX )