1 SUBROUTINE free_mem_boozer
8 INTEGER :: istat1=0, istat2=0, istat3=0
10 IF (
ALLOCATED(jlist))
DEALLOCATE (jlist, lsurf_boz)
12 IF (
ALLOCATED(bsubumnc))
DEALLOCATE(
13 1 bsubumnc, bsubvmnc, bmodmnc, rmnc, zmns, lmns,
14 2 xm, xn, xm_nyq, xn_nyq, hiota, phip, gpsi,
15 3 ipsi, pmns, beta_vol, pres, phi, buco, bvco,
16 3 rmncb, zmnsb, pmnsb, gmncb, bmncb, bmod_b,
17 4 chip, chi, stat=istat1 )
20 IF (
ALLOCATED(cosm_b))
DEALLOCATE(
21 1 cosm_b, sinm_b, cosn_b, sinn_b,
22 2 cosm_nyq, sinm_nyq, cosn_nyq, sinn_nyq,
23 2 sfull, scl, xmb, xnb, thgrd, ztgrd, stat=istat2)
25 IF (
ALLOCATED(bsubumns))
DEALLOCATE(
26 1 bsubumns, bsubvmns, bmodmns, rmns, zmnc, lmnc, pmnc,
27 2 rmnsb, zmncb, pmncb, gmnsb, bmnsb, stat=istat3)
29 IF (istat1 .ne.0 .or. istat2 .ne. 0)
30 1 print *,
' Deallocation error in Free_mem_boozer'
32 END SUBROUTINE free_mem_boozer