error_ring_clear Subroutine

public subroutine error_ring_clear()

Reset the ring to empty.

Arguments

None

Called by

proc~~error_ring_clear~~CalledByGraph proc~error_ring_clear error_ring_clear proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~error_ring_clear proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~error_ring_clear proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~error_ring_clear

Source Code

   subroutine error_ring_clear()
      !! Reset the ring to empty.
      ring = ""
      ring_count = 0
      ring_head = 0
   end subroutine error_ring_clear