1 | ! PARAMETERS: |
---|
2 | ! |
---|
3 | ! LDA: MAXIMUM NUMBER OF DA-VECTORS; CAN BE CHANGED QUITE ARBITRARILY |
---|
4 | ! LST: LENGTH OF MAIN STORAGE STACK; CAN BE CHANGED QUITE ARBITRARILY |
---|
5 | ! LEA: MAXIMUM NUMBER OF MONOMIALS; CAN BE INCREASED FOR LARGE NO, NV |
---|
6 | ! LIA: DIMENSION OF IA1, IA2; CAN BE INCREASED FOR LARGE NO, NV |
---|
7 | ! LNO: MAXIMUM ORDER; CAN BE INCREASED TO ABOUT 1000 |
---|
8 | ! LNV: MAXIMUM NUMBER OF VARIABLES; CAN BE INCREASED TO ABOUT 1000 |
---|
9 | ! |
---|
10 | !-----------------------------------------------------------------------------1 |
---|
11 | |
---|
12 | integer lda, lea, lia, lno, lnv, lst |
---|
13 | |
---|
14 | parameter (lda=30000, lst=200000000, lea=500000, lia=80000, & |
---|
15 | & lno=16, lnv=7) |
---|
16 | |
---|
17 | integer nda, ndamaxi |
---|
18 | common /fordes/ nda, ndamaxi |
---|
19 | |
---|
20 | double precision cc, eps, epsmac |
---|
21 | common /da/ cc(lst), eps, epsmac |
---|
22 | |
---|
23 | integer i1, i2, ie1, ie2, ieo |
---|
24 | integer ia1, ia2, ifi, idano |
---|
25 | integer idanv, idapo, idalm, idall |
---|
26 | integer nst, nomax, nvmax, nmmax, nocut, lfi |
---|
27 | common /dai/ i1(lst), i2(lst), ie1(lea), ie2(lea), ieo(lea), & |
---|
28 | & ia1(0:lia), ia2(0:lia), ifi(lea), idano(lda), & |
---|
29 | & idanv(lda), idapo(lda), idalm(lda), idall(lda), & |
---|
30 | & nst, nomax, nvmax, nmmax, nocut, lfi |
---|
31 | |
---|
32 | double precision facint |
---|
33 | common /factor/ facint(0:lno) |
---|
34 | !-----------------------------------------------------------------------------9 |
---|