finalize_mark Subroutine

private pure elemental subroutine finalize_mark(this)

Finalizes the mark object by deallocating allocated memory for method and description.

Type Bound

mark

Arguments

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

Mark object to be finalized

Called by

proc~~finalize_mark~2~~CalledByGraph proc~finalize_mark~2 forbenchmark_coarray::mark%finalize_mark proc~finalize~2 forbenchmark_coarray::benchmark%finalize proc~finalize~2->proc~finalize_mark~2

Source Code

   pure elemental subroutine finalize_mark(this)
      !! author: Seyed Ali Ghasemi
      !! Finalizes the mark object by deallocating allocated memory for method and description.
      !!
      class(mark), intent(inout) :: this !! Mark object to be finalized

      if (allocated(this%method)) deallocate(this%method)
      if (allocated(this%description)) deallocate(this%description)
   end subroutine finalize_mark