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

Source Code

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