finalize Subroutine

  1. mimic_data_collect.f90
  2. mimic_data_collect
  3. finalize

public subroutine finalize(this)

routine sending an exit code to each client

Arguments

TypeIntentOptionalAttributesName
class(mimic_communicator), intent(inout) :: this

Contents

Source Code

finalize

Source Code

subroutine finalize(this)

    class(mimic_communicator), intent(inout) :: this

    integer :: n_client

    do n_client = 1, this%num_clients
        call this%send_command(MCL_EXIT, n_client)
    end do

end subroutine finalize