Searched refs:average_work (Results 1 – 2 of 2) sorted by relevance
2781 REAL(kind=dp) :: average_work, load_scale, & local2862 average_work = REAL(SUM(expected_work), dp)/REAL(force_env%para_env%num_pe, dp)2866 load_imbalance = expected_work - NINT(average_work)2875 IF (expected_work(i) .GT. NINT(very_overloaded*average_work)) THEN
2773 REAL(kind=dp) :: average_work, load_scale, & local2854 average_work = REAL(SUM(expected_work), dp)/REAL(force_env%para_env%num_pe, dp)2858 load_imbalance = expected_work - NINT(average_work)2867 IF (expected_work(i) .GT. NINT(very_overloaded*average_work)) THEN