hmap_cyl_free Subroutine

public subroutine hmap_cyl_free(sf)

finalize the type hmap_cyl

Arguments

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

self

Source Code

SUBROUTINE hmap_cyl_free( sf )
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_cyl), INTENT(INOUT) :: sf !! self
!===================================================================================================================================
  IF(.NOT.sf%initialized) RETURN
  sf%cyl_len=-1.
  sf%initialized=.FALSE.

END SUBROUTINE hmap_cyl_free