1 SUBROUTINE deallocate_all
6 IF (
ALLOCATED(amnfit))
DEALLOCATE (amnfit)
7 IF (
ALLOCATED(dibs))
DEALLOCATE (dibs, aibs, dibst, aibst,
8 1 bsdense, bsdensi, bstempe, bstempi, bsdenste, bsdensti,
9 2 bstempte, bstempti, qsafety, capr, caps, h2,
10 3 ftrapped, fpassing, epsttok, fttok, gbsnorm, aiterm1,
11 4 other1, rhoar, bsnorm, fptok, amain,
12 5 bmax1, thetamax, zetahmax, d_rho, b2avg,
13 6 ajbbs, phip ,theta, zetah)
14 IF (
ALLOCATED(flux))
DEALLOCATE (flux, aiogar, aipsi,
15 1 gpsi, pres1, betar, dense, densi, tempe1, tempi1, lsurf,
19 DEALLOCATE(bfield, b2obm, gsqrt_b, sinmi, sinnj, cosmi, cosnj,
20 1 bfieldm, sinmim, sinnjm, cosmim, cosnjm)
22 END SUBROUTINE deallocate_all