destroy_base Subroutine

private pure subroutine destroy_base(me)

Destructor for contents of the base bspline_class class. (this routine is called by the extended classes).

Type Bound

bspline_class

Arguments

Type IntentOptional Attributes Name
class(bspline_class), intent(inout) :: me

Called by

proc~~destroy_base~~CalledByGraph proc~destroy_base bspline_class%destroy_base proc~destroy_1d bspline_1d%destroy_1d proc~destroy_1d->proc~destroy_base proc~destroy_2d bspline_2d%destroy_2d proc~destroy_2d->proc~destroy_base proc~destroy_3d bspline_3d%destroy_3d proc~destroy_3d->proc~destroy_base proc~destroy_4d bspline_4d%destroy_4d proc~destroy_4d->proc~destroy_base proc~destroy_5d bspline_5d%destroy_5d proc~destroy_5d->proc~destroy_base proc~destroy_6d bspline_6d%destroy_6d proc~destroy_6d->proc~destroy_base proc~finalize_1d finalize_1d proc~finalize_1d->proc~destroy_1d proc~finalize_2d finalize_2d proc~finalize_2d->proc~destroy_2d proc~finalize_3d finalize_3d proc~finalize_3d->proc~destroy_3d proc~finalize_4d finalize_4d proc~finalize_4d->proc~destroy_4d proc~finalize_5d finalize_5d proc~finalize_5d->proc~destroy_5d proc~finalize_6d finalize_6d proc~finalize_6d->proc~destroy_6d proc~initialize_1d_auto_knots bspline_1d%initialize_1d_auto_knots proc~initialize_1d_auto_knots->proc~destroy_1d proc~initialize_1d_auto_knots_multi bspline_1d%initialize_1d_auto_knots_multi proc~initialize_1d_auto_knots_multi->proc~destroy_1d proc~initialize_1d_specify_knots bspline_1d%initialize_1d_specify_knots proc~initialize_1d_specify_knots->proc~destroy_1d proc~initialize_1d_specify_knots_multi bspline_1d%initialize_1d_specify_knots_multi proc~initialize_1d_specify_knots_multi->proc~destroy_1d proc~initialize_2d_auto_knots bspline_2d%initialize_2d_auto_knots proc~initialize_2d_auto_knots->proc~destroy_2d proc~initialize_2d_auto_knots_multi bspline_2d%initialize_2d_auto_knots_multi proc~initialize_2d_auto_knots_multi->proc~destroy_2d proc~initialize_2d_specify_knots bspline_2d%initialize_2d_specify_knots proc~initialize_2d_specify_knots->proc~destroy_2d proc~initialize_2d_specify_knots_multi bspline_2d%initialize_2d_specify_knots_multi proc~initialize_2d_specify_knots_multi->proc~destroy_2d proc~initialize_3d_auto_knots bspline_3d%initialize_3d_auto_knots proc~initialize_3d_auto_knots->proc~destroy_3d proc~initialize_3d_auto_knots_multi bspline_3d%initialize_3d_auto_knots_multi proc~initialize_3d_auto_knots_multi->proc~destroy_3d proc~initialize_3d_specify_knots bspline_3d%initialize_3d_specify_knots proc~initialize_3d_specify_knots->proc~destroy_3d proc~initialize_3d_specify_knots_multi bspline_3d%initialize_3d_specify_knots_multi proc~initialize_3d_specify_knots_multi->proc~destroy_3d proc~initialize_4d_auto_knots bspline_4d%initialize_4d_auto_knots proc~initialize_4d_auto_knots->proc~destroy_4d proc~initialize_4d_auto_knots_multi bspline_4d%initialize_4d_auto_knots_multi proc~initialize_4d_auto_knots_multi->proc~destroy_4d proc~initialize_4d_specify_knots bspline_4d%initialize_4d_specify_knots proc~initialize_4d_specify_knots->proc~destroy_4d proc~initialize_4d_specify_knots_multi bspline_4d%initialize_4d_specify_knots_multi proc~initialize_4d_specify_knots_multi->proc~destroy_4d proc~initialize_5d_auto_knots bspline_5d%initialize_5d_auto_knots proc~initialize_5d_auto_knots->proc~destroy_5d proc~initialize_5d_auto_knots_multi bspline_5d%initialize_5d_auto_knots_multi proc~initialize_5d_auto_knots_multi->proc~destroy_5d proc~initialize_5d_specify_knots bspline_5d%initialize_5d_specify_knots proc~initialize_5d_specify_knots->proc~destroy_5d proc~initialize_5d_specify_knots_multi bspline_5d%initialize_5d_specify_knots_multi proc~initialize_5d_specify_knots_multi->proc~destroy_5d proc~initialize_6d_auto_knots bspline_6d%initialize_6d_auto_knots proc~initialize_6d_auto_knots->proc~destroy_6d proc~initialize_6d_auto_knots_multi bspline_6d%initialize_6d_auto_knots_multi proc~initialize_6d_auto_knots_multi->proc~destroy_6d proc~initialize_6d_specify_knots bspline_6d%initialize_6d_specify_knots proc~initialize_6d_specify_knots->proc~destroy_6d proc~initialize_6d_specify_knots_multi bspline_6d%initialize_6d_specify_knots_multi proc~initialize_6d_specify_knots_multi->proc~destroy_6d proc~initialize_from_coefficients_1d bspline_1d%initialize_from_coefficients_1d proc~initialize_from_coefficients_1d->proc~destroy_1d proc~initialize_from_coefficients_1d_multi bspline_1d%initialize_from_coefficients_1d_multi proc~initialize_from_coefficients_1d_multi->proc~destroy_1d none~initialize_from_coefficients bspline_1d%initialize_from_coefficients proc~initialize_from_coefficients_1d_multi->none~initialize_from_coefficients proc~initialize_from_coefficients_2d bspline_2d%initialize_from_coefficients_2d proc~initialize_from_coefficients_2d->proc~destroy_2d proc~initialize_from_coefficients_2d_multi bspline_2d%initialize_from_coefficients_2d_multi proc~initialize_from_coefficients_2d_multi->proc~destroy_2d none~initialize_from_coefficients~2 bspline_2d%initialize_from_coefficients proc~initialize_from_coefficients_2d_multi->none~initialize_from_coefficients~2 proc~initialize_from_coefficients_3d bspline_3d%initialize_from_coefficients_3d proc~initialize_from_coefficients_3d->proc~destroy_3d proc~initialize_from_coefficients_3d_multi bspline_3d%initialize_from_coefficients_3d_multi proc~initialize_from_coefficients_3d_multi->proc~destroy_3d none~initialize_from_coefficients~3 bspline_3d%initialize_from_coefficients proc~initialize_from_coefficients_3d_multi->none~initialize_from_coefficients~3 proc~initialize_from_coefficients_4d bspline_4d%initialize_from_coefficients_4d proc~initialize_from_coefficients_4d->proc~destroy_4d proc~initialize_from_coefficients_4d_multi bspline_4d%initialize_from_coefficients_4d_multi proc~initialize_from_coefficients_4d_multi->proc~destroy_4d none~initialize_from_coefficients~4 bspline_4d%initialize_from_coefficients proc~initialize_from_coefficients_4d_multi->none~initialize_from_coefficients~4 proc~initialize_from_coefficients_5d bspline_5d%initialize_from_coefficients_5d proc~initialize_from_coefficients_5d->proc~destroy_5d proc~initialize_from_coefficients_5d_multi bspline_5d%initialize_from_coefficients_5d_multi proc~initialize_from_coefficients_5d_multi->proc~destroy_5d none~initialize_from_coefficients~5 bspline_5d%initialize_from_coefficients proc~initialize_from_coefficients_5d_multi->none~initialize_from_coefficients~5 proc~initialize_from_coefficients_6d bspline_6d%initialize_from_coefficients_6d proc~initialize_from_coefficients_6d->proc~destroy_6d proc~initialize_from_coefficients_6d_multi bspline_6d%initialize_from_coefficients_6d_multi proc~initialize_from_coefficients_6d_multi->proc~destroy_6d none~initialize_from_coefficients~6 bspline_6d%initialize_from_coefficients proc~initialize_from_coefficients_6d_multi->none~initialize_from_coefficients~6 none~initialize_from_coefficients->proc~initialize_from_coefficients_1d none~initialize_from_coefficients->proc~initialize_from_coefficients_1d_multi none~initialize_from_coefficients~2->proc~initialize_from_coefficients_2d none~initialize_from_coefficients~2->proc~initialize_from_coefficients_2d_multi none~initialize_from_coefficients~3->proc~initialize_from_coefficients_3d none~initialize_from_coefficients~3->proc~initialize_from_coefficients_3d_multi none~initialize_from_coefficients~4->proc~initialize_from_coefficients_4d none~initialize_from_coefficients~4->proc~initialize_from_coefficients_4d_multi none~initialize_from_coefficients~5->proc~initialize_from_coefficients_5d none~initialize_from_coefficients~5->proc~initialize_from_coefficients_5d_multi none~initialize_from_coefficients~6->proc~initialize_from_coefficients_6d none~initialize_from_coefficients~6->proc~initialize_from_coefficients_6d_multi proc~bspline_1d_constructor_auto_knots bspline_1d_constructor_auto_knots proc~bspline_1d_constructor_auto_knots->proc~initialize_1d_auto_knots proc~bspline_1d_constructor_specify_knots bspline_1d_constructor_specify_knots proc~bspline_1d_constructor_specify_knots->proc~initialize_1d_specify_knots proc~bspline_2d_constructor_auto_knots bspline_2d_constructor_auto_knots proc~bspline_2d_constructor_auto_knots->proc~initialize_2d_auto_knots proc~bspline_2d_constructor_specify_knots bspline_2d_constructor_specify_knots proc~bspline_2d_constructor_specify_knots->proc~initialize_2d_specify_knots proc~bspline_3d_constructor_auto_knots bspline_3d_constructor_auto_knots proc~bspline_3d_constructor_auto_knots->proc~initialize_3d_auto_knots proc~bspline_3d_constructor_specify_knots bspline_3d_constructor_specify_knots proc~bspline_3d_constructor_specify_knots->proc~initialize_3d_specify_knots proc~bspline_4d_constructor_auto_knots bspline_4d_constructor_auto_knots proc~bspline_4d_constructor_auto_knots->proc~initialize_4d_auto_knots proc~bspline_4d_constructor_specify_knots bspline_4d_constructor_specify_knots proc~bspline_4d_constructor_specify_knots->proc~initialize_4d_specify_knots proc~bspline_5d_constructor_auto_knots bspline_5d_constructor_auto_knots proc~bspline_5d_constructor_auto_knots->proc~initialize_5d_auto_knots proc~bspline_5d_constructor_specify_knots bspline_5d_constructor_specify_knots proc~bspline_5d_constructor_specify_knots->proc~initialize_5d_specify_knots proc~bspline_6d_constructor_auto_knots bspline_6d_constructor_auto_knots proc~bspline_6d_constructor_auto_knots->proc~initialize_6d_auto_knots proc~bspline_6d_constructor_specify_knots bspline_6d_constructor_specify_knots proc~bspline_6d_constructor_specify_knots->proc~initialize_6d_specify_knots interface~bspline_1d bspline_1d interface~bspline_1d->proc~bspline_1d_constructor_auto_knots interface~bspline_1d->proc~bspline_1d_constructor_specify_knots interface~bspline_2d bspline_2d interface~bspline_2d->proc~bspline_2d_constructor_auto_knots interface~bspline_2d->proc~bspline_2d_constructor_specify_knots interface~bspline_3d bspline_3d interface~bspline_3d->proc~bspline_3d_constructor_auto_knots interface~bspline_3d->proc~bspline_3d_constructor_specify_knots interface~bspline_4d bspline_4d interface~bspline_4d->proc~bspline_4d_constructor_auto_knots interface~bspline_4d->proc~bspline_4d_constructor_specify_knots interface~bspline_5d bspline_5d interface~bspline_5d->proc~bspline_5d_constructor_auto_knots interface~bspline_5d->proc~bspline_5d_constructor_specify_knots interface~bspline_6d bspline_6d interface~bspline_6d->proc~bspline_6d_constructor_auto_knots interface~bspline_6d->proc~bspline_6d_constructor_specify_knots

Source Code

    pure subroutine destroy_base(me)

    implicit none

    class(bspline_class),intent(inout) :: me

    me%inbvx = 1_ip
    me%iflag = 1_ip
    me%initialized = .false.
    me%extrap = .false.
    me%nf = 0_ip

    end subroutine destroy_base