hmap_frenet_free Subroutine

public subroutine hmap_frenet_free(sf)

finalize the type hmap_frenet

Arguments

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

self

Source Code

SUBROUTINE hmap_frenet_free( sf )
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_frenet), INTENT(INOUT) :: sf !! self
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  IF(.NOT.sf%initialized) RETURN
  SDEALLOCATE(sf%rc)
  SDEALLOCATE(sf%rs)
  SDEALLOCATE(sf%zc)
  SDEALLOCATE(sf%zs)

  sf%initialized=.FALSE.

END SUBROUTINE hmap_frenet_free