4 INTEGER,
PARAMETER :: nsurf = 500
5 INTEGER :: numsurf_sad, nopt_wsurf
6 INTEGER,
DIMENSION(nsurf) :: m_sad, n_sad
7 INTEGER :: mpol_opt, ntor_opt, irho_bdy, irm0_bdy, izm0_bdy
8 REAL(rprec),
DIMENSION(nsurf) :: rmn_sad, zmn_sad
9 INTEGER,
DIMENSION(:),
ALLOCATABLE :: nbrho_opt, mbrho_opt
10 INTEGER,
ALLOCATABLE :: nrz0_opt(:)
11 REAL(rprec),
DIMENSION(:,:),
ALLOCATABLE :: rbc,zbs,rhobc,delta_mn
13 END MODULE saddle_surface