tem_status_clear Subroutine

public subroutine tem_status_clear(me)

Clear (unset) all status bits.

Arguments

Type IntentOptional Attributes Name
type(tem_status_type), intent(inout) :: me

Status type to initialize.

Source Code

  subroutine tem_status_clear(me)
    ! --------------------------------------------------------------------------!
    !> Status type to initialize.
    type(tem_status_type), intent(inout) :: me
    ! --------------------------------------------------------------------------!

    me%bits = .false.

  end subroutine tem_status_clear