monitor_obj_Final Subroutine

private impure subroutine monitor_obj_Final(this)

Finalizes the object and frees memory.

Type Bound

monitor_obj

Arguments

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

A monitor object

Called by

proc~~monitor_obj_final~~CalledByGraph proc~monitor_obj_final monitor_obj%monitor_obj_Final proc~monitor_set_final monitor_set%monitor_set_Final proc~monitor_set_final->proc~monitor_obj_final

Source Code

    impure subroutine monitor_obj_Final(this)
      !> Finalizes the object and frees memory.
      implicit none
      class(monitor_obj), intent(inout) :: this                                !! A monitor object

      deallocate(this%col)
      if (.not.this%stdout) close(this%fid)

      return
    end subroutine monitor_obj_Final