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