reset Subroutine

private pure elemental subroutine reset(this)

Type Bound

debug

Arguments

Type IntentOptional Attributes Name
class(debug), intent(inout) :: this

Called by

proc~~reset~~CalledByGraph proc~reset debug%reset program~simple simple program~simple->proc~reset

Source Code

   pure elemental subroutine reset(this)
      class(debug), intent(inout) :: this

      this%dbg        = DEBUG_MODE
      this%ok         = .true.
      this%code       = NONE
      this%severity   = NONE
      this%category   = ""
      this%message    = ""
      this%location   = ""
      this%suggestion = ""
   end subroutine reset