clear_exceptions Subroutine

private subroutine clear_exceptions(me)

Clear all exceptions.

Type Bound

numdiff_type

Arguments

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

Source Code

    subroutine clear_exceptions(me)

    implicit none

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

    me%istat = 0
    if (allocated(me%error_msg)) deallocate(me%error_msg)
    me%exception_raised = .false.

    end subroutine clear_exceptions