delete_periodic_spline Subroutine

  1. spl.f90
  2. splines
  3. delete_periodic_spline

public subroutine delete_periodic_spline(spl)

Reset and deallocate variables in passed periodic spline

Arguments

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

Contents

Source Code

delete_periodic_spline

Source Code

  subroutine delete_periodic_spline (spl)
    implicit none
    type (periodic_spline), intent (in out) :: spl
    spl%n = 0
    spl%period = 0.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_periodic_spline