V3FIT
allocate_radial.f
1  SUBROUTINE allocate_radial
2  USE parambs
3  USE vmec0
4  USE read_boozer_mod
5 
6  IMPLICIT NONE
7  INTEGER :: istat
8 
9  ALLOCATE (flux(irdim), qsafety(irdim), aiogar(irdim),
10  1 idx(irup), aipsi(irdim), gpsi(irdim), pres1(irdim),
11  2 betar(irdim), dense(irdim), densi(irdim),
12  3 tempe1(irdim), tempi1(irdim), lsurf(irdim),
13  4 jlist(irdim), jlist_idx(irdim), stat=istat)
14  IF (istat .ne. 0) RETURN
15 
16  ALLOCATE (amnfit(irup,-mboz_b:mboz_b,0:nboz_b), stat=istat)
17  IF (istat .ne. 0) RETURN
18 
19  ALLOCATE (dibs(irup), aibs(irup), dibst(irup), aibst(irup),
20  1 bsdense(irup), bsdensi(irup), bstempe(irup), bstempi(irup),
21  2 bsdenste(irup), bsdensti(irup), bstempte(irup),
22  3 bstempti(irup), capr(irup),
23  4 caps(irup), h2(irup), ftrapped(irup), fpassing(irup),
24  5 epsttok(irup), fttok(irup), gbsnorm(irup), aiterm1(irup),
25  6 other1(irup),
26  7 rhoar(irup), bsnorm(irup), fptok(irup), amain(irup),
27  8 bmax1(irup), thetamax(irup), zetahmax(irup),
28  9 ajbbs(irup), phip(irup), d_rho(irdim),
29  a b2avg(irup), stat = istat)
30 
31  IF (istat .ne. 0) stop 'allocation error in allocate_radial'
32 
33  END SUBROUTINE allocate_radial