8 INTEGER :: nu2_b, nu3_b
9 REAL(rprec),
DIMENSION(:),
ALLOCATABLE ::
10 1 sfull, scl, thgrd, ztgrd, xm, xn, xm_nyq, xn_nyq, xnb, xmb
11 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE ::
12 1 cosm_b, cosn_b, sinm_b, sinn_b, rmnc, zmns, lmns,
14 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE ::
15 1 cosm_nyq, cosn_nyq, sinm_nyq, sinn_nyq
17 END MODULE booz_persistent