V3FIT
free_mem_boozer.f
1  SUBROUTINE free_mem_boozer
2  USE booz_params
3  USE booz_persistent
4  IMPLICIT NONE
5 C-----------------------------------------------
6 C L o c a l V a r i a b l e s
7 C-----------------------------------------------
8  INTEGER :: istat1=0, istat2=0, istat3=0
9 C-----------------------------------------------
10  IF (ALLOCATED(jlist)) DEALLOCATE (jlist, lsurf_boz)
11 
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 )
18 ! CRCook deallocate chi's
19 
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)
24 
25  IF (ALLOCATED(bsubumns)) DEALLOCATE(
26  1 bsubumns, bsubvmns, bmodmns, rmns, zmnc, lmnc, pmnc,
27  2 rmnsb, zmncb, pmncb, gmnsb, bmnsb, stat=istat3)
28 
29  IF (istat1 .ne.0 .or. istat2 .ne. 0)
30  1 print *,' Deallocation error in Free_mem_boozer'
31 
32  END SUBROUTINE free_mem_boozer