polyProfile_free Subroutine

public subroutine polyProfile_free(sf)

finalize the type rProfile

Arguments

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

self

Calls

proc~~polyprofile_free~~CallsGraph proc~polyprofile_free polyProfile_free sdeallocate sdeallocate proc~polyprofile_free->sdeallocate

Source Code

  SUBROUTINE polyProfile_free(sf)
  ! MODULES
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
    TYPE(t_rProfile_poly), INTENT(INOUT)  :: sf !! self
  !===================================================================================================================================
    SDEALLOCATE(sf%coefs)
  END SUBROUTINE polyProfile_free