77       INTEGER            NMAX, INCMAX  variable
78       PARAMETER          ( NMAX = 65, INCMAX = 2 )
94      $                   X( NMAX ), XS( NMAX*INCMAX ),
95      $                   XX( NMAX*INCMAX ), Y( NMAX ),
96      $                   YS( NMAX*INCMAX ), YT( NMAX ),
97      $                   YY( NMAX*INCMAX ), Z( 2*NMAX )
187          IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
188             WRITE( NOUT, FMT = 9994 )INCMAX
310      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
316      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
323      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
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,
401      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
420       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
427      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
428      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
429      $                   YY( NMAX*INCMAX )
747      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
766       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
773      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
774      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
775      $                   YY( NMAX*INCMAX )
1096      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1115       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1120      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1121      $                   XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1458      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1478       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1483      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1484      $                   XX( NMAX*INCMAX ), Y( NMAX ),
1485      $                   YS( NMAX*INCMAX ), YT( NMAX ),
1486      $                   YY( NMAX*INCMAX ), Z( NMAX )
1736      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1756       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1761      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1762      $                   XX( NMAX*INCMAX ), Y( NMAX ),
1763      $                   YS( NMAX*INCMAX ), YT( NMAX ),
1764      $                   YY( NMAX*INCMAX ), Z( NMAX )
2021      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
2041       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
2046      $                   AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2047      $                   XX( NMAX*INCMAX ), Y( NMAX ),
2048      $                   YS( NMAX*INCMAX ), YT( NMAX ),
2049      $                   YY( NMAX*INCMAX ), Z( NMAX, 2 )