/beegfs/hackathon/users/eoseret/qaas_runs_test/178-668-9699/intel/AMG/build/AMG/AMG/seq_mv/csr_matvec.c: 554 - 582
--------------------------------------------------------------------------------

554: #pragma omp parallel private(i,jj,j,my_thread_num,offset)
555: #endif
556:          {                                      
557:             my_thread_num = hypre_GetThreadNum();
558:             offset =  y_size*my_thread_num;
559: #ifdef HYPRE_USING_OPENMP
560: #pragma omp for HYPRE_SMP_SCHEDULE
561: #endif
562:             for (i = 0; i < num_rows; i++)
563:             {
564:                for (jj = A_i[i]; jj < A_i[i+1]; jj++)
565:                {
566:                   j = A_j[jj];
567:                   y_data_expand[offset + j] += A_data[jj] * x_data[i];
568:                }
569:             }
570: 
571:             /* implied barrier (for threads)*/           
572: #ifdef HYPRE_USING_OPENMP
573: #pragma omp for HYPRE_SMP_SCHEDULE
574: #endif
575:             for (i = 0; i < y_size; i++)
576:             {
577:                for (j = 0; j < num_threads; j++)
578:                {
579:                   y_data[i] += y_data_expand[j*y_size + i];
580:                   
581:                }
582:             }
