V3FIT
bnorm_mod.f
1  MODULE bnorm_mod
2  USE stel_constants
3  USE vcoilpts
4  INTEGER, PARAMETER :: bnorm_dim=1000
5  INTEGER :: mnbn_max
6  REAL(rprec) :: vacfld_wgt
7  REAL(rprec), DIMENSION(bnorm_dim) :: xbn_m, xbn_n, bn_coef
8  INTEGER :: mmax_bmn, nmax_bmn, mnmax_bmn
9  REAL(rprec), DIMENSION(:), ALLOCATABLE :: xm_bmn, xn_bmn
10  REAL(rprec), DIMENSION(:), ALLOCATABLE :: bmn, bmn_error
11  REAL(rprec), DIMENSION(:), ALLOCATABLE :: luv, bsl_error
12  CHARACTER(LEN=200) :: bnorm_file
13  LOGICAL :: lbnorm
14  END MODULE bnorm_mod