1 SUBROUTINE free_mem_nunv
8 INTEGER :: istat1 = 0, istat2 = 0, istat3 = 0
11 IF (
ALLOCATED(bsubu0))
12 1
DEALLOCATE (bsubu0, rbsq, dbsq, stat=istat1)
14 IF (
ALLOCATED(pperp_ns))
DEALLOCATE(pperp_ns)
16 IF (
ALLOCATED(rmn_bdy))
17 1
DEALLOCATE (rmn_bdy, zmn_bdy, stat=istat2)
19 IF (
ALLOCATED(amatsav))
20 1
DEALLOCATE (amatsav, bvecsav, potvac, bsqsav,
21 2 raxis_nestor, zaxis_nestor, stat=istat3)
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
29 END SUBROUTINE free_mem_nunv