94      $                   X( NMAX ), XS( NMAX*INCMAX ),  variable
311      $                  X, XX, XS, Y, YY, YS, YT, G )
317      $                  X, XX, XS, Y, YY, YS, YT, G )
328      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
340      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
402      $                  XS, Y, YY, YS, YT, G )  argument
427      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
574                                  XS( I ) = XX( I )
624                                  ISAME( 7 ) = LZE( XS, XX, LX )
641                                  ISAME( 9 ) = LZE( XS, XX, LX )
748      $                  XS, Y, YY, YS, YT, G )  argument
773      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
906                               XS( I ) = XX( I )
960                               ISAME( 6 ) = LZE( XS, XX, LX )
975                               ISAME( 7 ) = LZE( XS, XX, LX )
988                               ISAME( 5 ) = LZE( XS, XX, LX )
1096      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1120      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1247                            XS( I ) = XX( I )
1325                               ISAME( 7 ) = LZE( XS, XX, LX )
1327                               ISAME( 7 ) = LZERES( 'GE', ' ', 1, N, XS,
1336                               ISAME( 8 ) = LZE( XS, XX, LX )
1338                               ISAME( 8 ) = LZERES( 'GE', ' ', 1, N, XS,
1345                               ISAME( 6 ) = LZE( XS, XX, LX )
1347                               ISAME( 6 ) = LZERES( 'GE', ' ', 1, N, XS,
1458      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1483      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1589                         XS( I ) = XX( I )
1627                      ISAME( 4 ) = LZE( XS, XX, LX )
1736      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1761      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1862                      XS( I ) = XX( I )
1897                   ISAME( 4 ) = LZE( XS, XX, LX )
2021      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2046      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
2162                         XS( I ) = XX( I )
2203                      ISAME( 4 ) = LZE( XS, XX, LX )