bsplProfile_free Subroutine

public subroutine bsplProfile_free(sf)

finalize the type rProfile

Arguments

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

self

Calls

proc~~bsplprofile_free~~CallsGraph proc~bsplprofile_free bsplProfile_free sdeallocate sdeallocate proc~bsplprofile_free->sdeallocate

Source Code

  SUBROUTINE bsplProfile_free(sf)
  ! MODULES
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
    TYPE(t_rProfile_bspl), INTENT(INOUT) :: sf !! self
  !-----------------------------------------------------------------------------------------------------------------------------------
  !===================================================================================================================================
    IF (ALLOCATED(sf%bspl)) CALL sf%bspl%free()
    SDEALLOCATE(sf%knots)
    SDEALLOCATE(sf%coefs)
  END SUBROUTINE bsplProfile_free