V3FIT
saddle_surface.f
1  MODULE saddle_surface
2  USE stel_constants
3 
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
12 
13  END MODULE saddle_surface