s_spline_1d__free Subroutine

private subroutine s_spline_1d__free(self)

Type Bound

sll_t_spline_1d

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_1d), intent(inout) :: self

1D spline

Source Code

  subroutine s_spline_1d__free( self )

    class(sll_t_spline_1d), intent(inout) :: self

    deallocate( self % bcoef )
    nullify   ( self % bspl  )

  end subroutine s_spline_1d__free