V3FIT
vname1.f
1  MODULE vname1
2  USE vname0
3  REAL(rprec), PARAMETER :: one = 1, zero = 0
4  INTEGER :: mpol, mpol1, mrho, nfp, ntheta, nphi, nphi2, n2,
5  1 mpnt, ntor
6  INTEGER :: mm(mu), nn(nv+1), m1(mnd), n1(mnd)
7  REAL(rprec), DIMENSION(nv) :: r0n, z0n, raxis, zaxis
8  REAL(rprec), DIMENSION(0:mu) :: dm1
9  REAL(rprec), DIMENSION(0:mu+2) :: t1m, t2m
10  REAL(rprec), DIMENSION(0:mu,2) :: xmpq
11  REAL(rprec), DIMENSION(:), ALLOCATABLE :: xvec, gvec,
12  1 xdot, xstore
13  REAL(rprec) :: gnorm, specw, delt, deltf, dnorm, elongate,
14  1 twopi, r10, HB_Parameter
15  END MODULE vname1