Searched refs:local_cost_vector (Results 1 – 2 of 2) sorted by relevance
952 INTEGER(int_8), ALLOCATABLE, DIMENSION(:) :: local_cost_vector local1073 ALLOCATE (local_cost_vector(n_processes))1074 local_cost_vector = 01075 local_cost_vector(my_process_id + 1) = local_cost1076 CALL mp_sum(local_cost_vector, para_env%group)1078 mean = SUM(local_cost_vector)/n_processes1079 maximum = MAXVAL(local_cost_vector)1091 WRITE (unit_nr, *) local_cost_vector(i)1098 DEALLOCATE (local_cost_vector)
949 INTEGER(int_8), ALLOCATABLE, DIMENSION(:) :: local_cost_vector local1070 ALLOCATE (local_cost_vector(n_processes))1071 local_cost_vector = 01072 local_cost_vector(my_process_id + 1) = local_cost1073 CALL mp_sum(local_cost_vector, para_env%group)1075 mean = SUM(local_cost_vector)/n_processes1076 maximum = MAXVAL(local_cost_vector)1088 WRITE (unit_nr, *) local_cost_vector(i)1095 DEALLOCATE (local_cost_vector)