Destructor for bspline_3d class.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(bspline_3d), | intent(inout) | :: | me |
pure subroutine destroy_3d(me) implicit none class(bspline_3d),intent(inout) :: me call me%destroy_base() me%nx = 0_ip me%ny = 0_ip me%nz = 0_ip me%kx = 0_ip me%ky = 0_ip me%kz = 0_ip me%inbvy = 1_ip me%inbvz = 1_ip me%iloy = 1_ip me%iloz = 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%tz)) deallocate(me%tz) if (allocated(me%work_val_1)) deallocate(me%work_val_1) if (allocated(me%work_val_2)) deallocate(me%work_val_2) if (allocated(me%work_val_3)) deallocate(me%work_val_3) end subroutine destroy_3d