delete_spline Subroutine

public subroutine delete_spline(spl)

Reset and deallocate variables in passed spline

Arguments

Type IntentOptional Attributes Name
type(spline), intent(inout) :: spl

Contents

Source Code

delete_spline

Source Code

  subroutine delete_spline (spl)
    implicit none
    type (spline), intent (in out) :: spl
    spl%n = 0
    if (allocated(spl%x)) deallocate (spl%x,spl%y)
    if (allocated(spl%y2)) deallocate (spl%y2)
    spl%valid = .false.
    spl%tension = 1.0
  end subroutine delete_spline