Destructor for bspline_2d class.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(bspline_2d), | intent(inout) | :: | me |
pure subroutine destroy_2d(me) implicit none class(bspline_2d),intent(inout) :: me call me%destroy_base() me%nx = 0_ip me%ny = 0_ip me%kx = 0_ip me%ky = 0_ip me%inbvy = 1_ip me%iloy = 1_ip if (allocated(me%bcoef)) deallocate(me%bcoef) if (allocated(me%tx)) deallocate(me%tx) if (allocated(me%ty)) deallocate(me%ty) if (allocated(me%work_val_1)) deallocate(me%work_val_1) if (allocated(me%work_val_2)) deallocate(me%work_val_2) end subroutine destroy_2d