Node coordinator for distributing fragments to local workers Handles work requests and result collection from local workers
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(*), | intent(in) | :: | ctx |
module subroutine node_coordinator(ctx) !! Node coordinator for distributing fragments to local workers !! Handles work requests and result collection from local workers use mqc_many_body_expansion, only: many_body_expansion_t class(*), intent(in) :: ctx ! Cast to many_body_expansion_t via select type select type (ctx) class is (many_body_expansion_t) call node_coordinator_impl(ctx) class default call logger%error("node_coordinator: expected many_body_expansion_t") call abort_comm(comm_world(), 1) end select end subroutine node_coordinator