free_mem_nunv.f90

Go to the documentation of this file.

!> \file
!> \brief Free arrays depending on the number of Fourier coefficients \c nunv
 
!> \brief Free arrays depending on the number of Fourier coefficients \c nunv
!>
SUBROUTINE free_mem_nunv
  USE vmec_main
  USE vacmod, only: free_mem_nestor
  IMPLICIT NONE
 
  INTEGER :: istat1 = 0, istat2 = 0
 
  IF (ALLOCATED(bsubu0)) &
      DEALLOCATE (bsubu0, rbsq, dbsq, stat=istat1)
  IF (ALLOCATED(rmn_bdy)) &
      DEALLOCATE (rmn_bdy, zmn_bdy, stat=istat2)
 
  call free_mem_nestor
  if (allocated(bsqsav)) then
     deallocate(bsqsav)
  end if
 
  IF (istat1.ne.0 .or. istat2.ne.0) THEN
      print *,' deallocation problem in free_mem_nunv'
      print *,' istat1 = ',istat1
      print *,' istat2 = ',istat2
  ENDIF
 
END SUBROUTINE free_mem_nunv