State-of-the-Art Tools for Imperative Languages

• matrix multiplication loop for vector/vector multiplication

  par = 0;
  if (__kmp_fork_active(  ) == 0) {
      __kmp_fork(PKmult_vector0,5,i,m1,j,m2,&par);
  } else {
      _Kii2 = 0;
      for ( _Kii1 = 0; _Kii1<=192; _Kii1+=8 ) {
          _Kii2 +=  m1[i][_Kii1] * m2[_Kii1][j];
          _Kii2 +=  m1[i][_Kii1+1] * m2[_Kii1+1][j];
          _Kii2 +=  m1[i][_Kii1+2] * m2[_Kii1+2][j];
          _Kii2 +=  m1[i][_Kii1+3] * m2[_Kii1+3][j];
          _Kii2 +=  m1[i][_Kii1+4] * m2[_Kii1+4][j];
          _Kii2 +=  m1[i][_Kii1+5] * m2[_Kii1+5][j];
          _Kii2 +=  m1[i][_Kii1+6] * m2[_Kii1+6][j];
          _Kii2 +=  m1[i][_Kii1+7] * m2[_Kii1+7][j];
      }
      par +=  _Kii2;
  }
  return par;