73       INTEGER            NMAX, INCMAX  variable
74       PARAMETER          ( NMAX = 65, INCMAX = 2 )
90      $                   G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
91      $                   XX( NMAX*INCMAX ), Y( NMAX ),
92      $                   YS( NMAX*INCMAX ), YT( NMAX ),
93      $                   YY( NMAX*INCMAX ), Z( 2*NMAX )
181          IF( INC( I ).EQ.0.OR.ABS( INC( I ) ).GT.INCMAX )THEN
182             WRITE( NOUT, FMT = 9994 )INCMAX
304      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
310      $                  NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
317      $                  NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
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,
393      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
409       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
416      $                   X( NMAX ), XS( NMAX*INCMAX ),
417      $                   XX( NMAX*INCMAX ), Y( NMAX ),
418      $                   YS( NMAX*INCMAX ), YT( NMAX ),
419      $                   YY( NMAX*INCMAX )
734      $                  BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,  argument
750       INTEGER            INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,  local
757      $                   X( NMAX ), XS( NMAX*INCMAX ),
758      $                   XX( NMAX*INCMAX ), Y( NMAX ),
759      $                   YS( NMAX*INCMAX ), YT( NMAX ),
760      $                   YY( NMAX*INCMAX )
1077      $                  INCMAX, A, AA, AS, X, XX, XS, XT, G, Z )  argument
1092       INTEGER            INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA  local
1098      $                   XS( NMAX*INCMAX ), XT( NMAX ),
1099      $                   XX( NMAX*INCMAX ), Z( NMAX )
1434      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1450       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1456      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1457      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1458      $                   YY( NMAX*INCMAX ), Z( NMAX )
1695      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1711       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1717      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1718      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1719      $                   YY( NMAX*INCMAX ), Z( NMAX )
1973      $                  INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G,  argument
1989       INTEGER            INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA  local
1995      $                   XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1996      $                   Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1997      $                   YY( NMAX*INCMAX ), Z( NMAX, 2 )