3 INTEGER,
PARAMETER :: mu = 20
4 INTEGER,
PARAMETER :: nu = 258
5 INTEGER,
PARAMETER :: nv = 20
6 INTEGER,
PARAMETER :: mnd = mu*(nv + 3)
11 REAL(rprec),
PARAMETER :: one = 1, zero = 0
12 INTEGER :: mpol, mpol1, mrho, nfp, ntheta, nphi, nphi2, n2, mpnt
13 INTEGER :: mm(mu), nn(nv+1), m1(mnd), n1(mnd)
14 REAL(rprec),
DIMENSION(nv) :: r0n, z0n, raxis, zaxis
15 REAL(rprec),
DIMENSION(0:mu) :: dm1
16 REAL(rprec),
DIMENSION(0:mu+2) :: t1m, t2m
17 REAL(rprec),
DIMENSION(0:mu,2) :: xmpq
18 REAL(rprec),
DIMENSION(:),
ALLOCATABLE :: xvec, gvec,
20 REAL(rprec) :: gnorm, specw, delt, deltf, dnorm, elongate,
21 1 twopi, r10, HB_Parameter