139      $                   X( NMAX ), XS( NMAX*INCMAX ),  variable
349      $                  X, XX, XS, Y, YY, YS, YT, G )
355      $                  X, XX, XS, Y, YY, YS, YT, G )
366      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
372      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
378      $                  NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
440      $                  XS, Y, YY, YS, YT, G )  argument
464      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
611                                  XS( I ) = XX( I )
661                                  ISAME( 7 ) = LCE( XS, XX, LX )
678                                  ISAME( 9 ) = LCE( XS, XX, LX )
785      $                  XS, Y, YY, YS, YT, G )  argument
809      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),  local
942                               XS( I ) = XX( I )
996                               ISAME( 6 ) = LCE( XS, XX, LX )
1011                               ISAME( 7 ) = LCE( XS, XX, LX )
1024                               ISAME( 5 ) = LCE( XS, XX, LX )
1132      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1155      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1282                            XS( I ) = XX( I )
1360                               ISAME( 7 ) = LCE( XS, XX, LX )
1362                               ISAME( 7 ) = LCERES( 'GE', ' ', 1, N, XS,
1371                               ISAME( 8 ) = LCE( XS, XX, LX )
1373                               ISAME( 8 ) = LCERES( 'GE', ' ', 1, N, XS,
1380                               ISAME( 6 ) = LCE( XS, XX, LX )
1382                               ISAME( 6 ) = LCERES( 'GE', ' ', 1, N, XS,
1493      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1517      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1623                         XS( I ) = XX( I )
1661                      ISAME( 4 ) = LCE( XS, XX, LX )
1770      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1794      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
1895                      XS( I ) = XX( I )
1930                   ISAME( 4 ) = LCE( XS, XX, LX )
2054      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2078      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),  local
2194                         XS( I ) = XX( I )
2235                      ISAME( 4 ) = LCE( XS, XX, LX )