V3FIT
free_mem_nunv.f
1  SUBROUTINE free_mem_nunv
2  USE vmec_main
3  USE vacmod
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 
11  IF (ALLOCATED(bsubu0))
12  1 DEALLOCATE (bsubu0, rbsq, dbsq, stat=istat1)
13 #ifdef _ANIMEC
14  IF (ALLOCATED(pperp_ns)) DEALLOCATE(pperp_ns)
15 #endif
16  IF (ALLOCATED(rmn_bdy))
17  1 DEALLOCATE (rmn_bdy, zmn_bdy, stat=istat2)
18 
19  IF (ALLOCATED(amatsav))
20  1 DEALLOCATE (amatsav, bvecsav, potvac, bsqsav,
21  2 raxis_nestor, zaxis_nestor, stat=istat3)
22 
23  IF (istat1.ne.0 .or. istat2.ne.0 .or. istat3.ne.0) THEN
24  print *,' deallocation problem in free_mem_nunv'
25  print *,' istat1 = ',istat1,' istat2 = ',istat2
26  print *,' istat3 = ',istat3
27  ENDIF
28 
29  END SUBROUTINE free_mem_nunv