clear_bspline_flag Subroutine

private elemental subroutine clear_bspline_flag(me)

This sets the iflag variable in the class to 0 (which indicates that everything is OK). It can be used after an error is encountered.

Type Bound

bspline_class

Arguments

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

Source Code

    elemental subroutine clear_bspline_flag(me)

    implicit none

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

    me%iflag = 0_ip

    end subroutine clear_bspline_flag