Destructor for bspline_1d class.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(bspline_1d), | intent(inout) | :: | me |
pure subroutine destroy_1d(me) implicit none class(bspline_1d),intent(inout) :: me call me%destroy_base() me%nx = 0_ip me%kx = 0_ip if (allocated(me%bcoef)) deallocate(me%bcoef) if (allocated(me%tx)) deallocate(me%tx) if (allocated(me%work_val_1)) deallocate(me%work_val_1) end subroutine destroy_1d