cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccd
c
c    Header file parm-uniyuk.h
c
c    1. adjustable parameters for uniform fast multipole method.
c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccd
c
c-----the boundary condition, currently only 0 allowed
c
      INTEGER *4 IFLAG
      PARAMETER (IFLAG=0)
c
c-----fast multiple expansion parameters.
c
      INTEGER *4 NTERMS,NLAMBS
c
c-----for 3 digits accuracy.
c
      PARAMETER (NTERMS=9,NLAMBS=9)
c
c-----for 6 digits accuracy.
c
c      PARAMETER (nterms=18,nlambs=18)
c
c----------------------------------------------------------------------d
c
c     2. the following parameters SHOULD NOT be changed.
c
c     They are the variables for precomputed matrices. The size is 
c     determined by the parameters nterms and nlambs defined above.
c     This is called the fixed memory part (independent of the tree
c     structure) for FMM.
c
c----------------------------------------------------------------------d
c
c-----tree structure
c
      INTEGER *4 LADDER(20),NBORS(150)
c
c-----precomputed fmm stuff
c
      INTEGER *4 NUMPHYS(NLAMBS),NUMFOUR(NLAMBS)
c
      REAL *8 WHTS(NLAMBS),RLAMS(NLAMBS)
      REAL *8 CARRAY((4*NTERMS+1)*(4*NTERMS+1))
      REAL *8 DC((2*NTERMS+1)*(2*NTERMS+1)*(2*NTERMS+1))
      REAL *8 RDPLUS((NTERMS+1)*(NTERMS+1)*(2*NTERMS+1))
      REAL *8 RDMINUS((NTERMS+1)*(NTERMS+1)*(2*NTERMS+1))
      REAL *8 RDSQ3((NTERMS+1)*(NTERMS+1)*(2*NTERMS+1))
      REAL *8 RDMSQ3((NTERMS+1)*(NTERMS+1)*(2*NTERMS+1))
      REAL *8 C(0:60,0:60),CS(0:60,0:60),CSINV(0:60,0:60)
      REAL *8 RLSC(NLAMBS*(1+NTERMS)*(1+NTERMS))
      REAL *8 YTOP(0:60,0:60)
c
c-----expansion stuff.
c
      COMPLEX *16 MW1((NTERMS+1)*(NTERMS+1))
      COMPLEX *16 MW2((NTERMS+1)*(NTERMS+1))
      COMPLEX *16 MW3((NTERMS+1)*(NTERMS+1))
