for (k = 0; k < REPEAT; k++)
{
#pragma omp for
  for(i = 0; i < RA; i++)
    {
      for(j = 0; j < i; j++)
	{
	  d[i] += a[i][j] * b[i] + c[i];
	}
    }
}