7 INTEGER,
PARAMETER :: unit_booz = 20
12 INTEGER,
ALLOCATABLE,
DIMENSION(:) :: jlist
13 INTEGER,
DIMENSION(0:1) :: ntorsum
14 INTEGER :: nfp, ns, mpol, mpol1, ntor, mnmax
15 INTEGER :: mpol_nyq, ntor_nyq, mnmax_nyq
16 INTEGER :: nu_boz, nv_boz, nunv, mboz, nboz, mnboz
17 REAL(rprec),
DIMENSION(:),
ALLOCATABLE ::
18 1 hiota, phip, pres, beta_vol, phi, buco, bvco, gpsi, ipsi,
21 REAL(rprec),
DIMENSION(:),
ALLOCATABLE :: pmns, pmnc
22 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: bmncb,
23 1 rmncb, zmnsb, pmnsb, gmncb, bmod_b
24 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: bmnsb,
25 1 rmnsb, zmncb, pmncb, gmnsb
26 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: bsubumnc,
27 1 bsubvmnc, bsubumns, bsubvmns, bmodmnc, bmodmns
29 LOGICAL :: lscreen, lasym_b, lrfp_b=.false.
30 LOGICAL,
ALLOCATABLE,
DIMENSION(:) :: lsurf_boz
31 END MODULE booz_params