sfl_boozer_free Subroutine

public subroutine sfl_boozer_free(sf)

Uses

  • proc~~sfl_boozer_free~~UsesGraph proc~sfl_boozer_free sfl_boozer_free module~modgvec_globals MODgvec_Globals proc~sfl_boozer_free->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

finalize sfl boozer class

Arguments

Type IntentOptional Attributes Name
type(t_sfl_boozer), intent(inout) :: sf

self

Source Code

SUBROUTINE sfl_boozer_free(sf)
  ! MODULES
  USE MODgvec_Globals, ONLY: UNIT_stdOut
  IMPLICIT NONE
  TYPE(t_sfl_boozer), INTENT(INOUT) :: sf !! self
  ! CODE --------------------------------------------------------------------------------------------------------------------------!
  SWRITE(UNIT_StdOut,'(A)') 'FREE sfl_boozer'
  SDEALLOCATE(sf%rho_pos)
  SDEALLOCATE(sf%lambda)
  SDEALLOCATE(sf%nu)
  SDEALLOCATE(sf%iota)
  SDEALLOCATE(sf%phiPrime)
  SDEALLOCATE(sf%hmap_xv)
  NULLIFY(sf%hmap)
  sf%initialized=.FALSE.
  SWRITE(UNIT_StdOut,'(A)') '... DONE.'
END SUBROUTINE sfl_boozer_free