source: TRACY3/trunk/tracy/TPSA/TPSALib.inc @ 3

Last change on this file since 3 was 3, checked in by zhangj, 12 years ago

Initiale import
  • Property svn:executable set to *
File size: 1.5 KB
Line 
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      integer  i1, i2, ia1, ia2, idall, idalm, idano, idanv, idapo,     &
12     &         ie1, ie2, ieo, ifi, lfi, nda, ndamaxi, nmmax, nocut,     &
13     &         nomax, nst, nvmax
14      double precision  cc, eps, epsmac, facint
15!      parameter(lda=30000, lst=132000000, lea=500000, lia=50000,        &
16      parameter(lda=30000, lst=7000000, lea=500000, lia=50000,          &
17!     RHIC
18!      parameter(lda=15000, lst=130000000, lea=500000, lia=50000,        &
19     &          lno=15, lnv=8)
20      common /fordes/ nda, ndamaxi
21      common /da/ cc(lst), eps, epsmac
22      common /dai/ i1(lst), i2(lst), ie1(lea), ie2(lea), ieo(lea),      &
23     &             ia1(0:lia), ia2(0:lia), ifi(lea), idano(lda),        &
24     &             idanv(lda), idapo(lda), idalm(lda), idall(lda),      &
25     &             nst, nomax, nvmax, nmmax, nocut, lfi
26      common /factor/ facint(0:lno)
27!-----------------------------------------------------------------------------9
Note: See TracBrowser for help on using the repository browser.