V3FIT
deallocate_all.f
1  SUBROUTINE deallocate_all
2  USE parambs
3  USE vmec0
4  IMPLICIT NONE
5 
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,
16  2 jlist, jlist_idx)
17 
18  DEALLOCATE(idx)
19  DEALLOCATE(bfield, b2obm, gsqrt_b, sinmi, sinnj, cosmi, cosnj,
20  1 bfieldm, sinmim, sinnjm, cosmim, cosnjm)
21 
22  END SUBROUTINE deallocate_all