hmap_RZ_free Subroutine

public subroutine hmap_RZ_free(sf)

finalize the type hmap_RZ

Arguments

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

self

Source Code

SUBROUTINE hmap_RZ_free( sf )
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_RZ), INTENT(INOUT) :: sf !! self
!===================================================================================================================================
  IF(.NOT.sf%initialized) RETURN

  sf%initialized=.FALSE.

END SUBROUTINE hmap_RZ_free