/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_multi_interp.c: 1167 - 1173
--------------------------------------------------------------------------------

1167: #pragma omp parallel for private(i,i1) HYPRE_SMP_SCHEDULE
1168: #endif
1169:    for (i=0; i < n_coarse; i++)
1170:    {
1171:       i1 = C_array[i];
1172:       P_diag_j[P_diag_i[i1]] = fine_to_coarse[i1];
1173:       P_diag_data[P_diag_i[i1]] = 1.0;
