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

Source Code

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