mt/cy_matmul.c

   1 #include "stdlib.h"
   2
   3 #include "util.h"
   4
   5 #include "dataset.h"
   6 void __attribute__((noinline)) matmul(const int coreid, const int ncores, const int lda,  const data_t A[], const data_t B[], data_t C[] )
   7 {
   8    if(coreid > 1) return;
   9   static __thread int i, j, k;
  10   static __thread data_t tempA0, tempA1, tempA2, tempA3, tempA4, tempA5, tempA6, tempA7;
  11   static __thread data_t tempC0, tempC1, tempC2, tempC3, tempC4, tempC5, tempC6, tempC7, tempC8, tempC9, tempC10, tempC11, tempC12, tempC13, tempC14, tempC15;
  12
  13   static __thread int start, end, jStride, jToRow, jToCol;
  14   static data_t A1[1024], B1[1024];;
  15
  16   start = coreid << 9;
  17   end = ((ncores == 1) ? 2 :(coreid+1)) << 9;
  18   jStride = 8;
  19
  20   if (coreid == 0) {
  21     for (j=start; j < end; j+=jStride) {
  22       jToRow = (j>>5)<<5;
  23       jToCol = j%32;
  24       tempC0  = 0;
  25       tempC1  = 0;
  26       tempC2  = 0;
  27       tempC3  = 0;
  28       tempC4  = 0;
  29       tempC5  = 0;
  30       tempC6  = 0;
  31       tempC7  = 0;
  32       for ( i=0; i < lda; i+=2 ) {
  33         tempA0 = A[i   + jToRow];
  34         tempA1 = A[i+1 + jToRow];
  35         tempC0  += tempA0 * B[(jToCol   ) + (i<<5)];
  36         tempC1  += tempA0 * B[(jToCol+1 ) + (i<<5)];
  37         tempC2  += tempA0 * B[(jToCol+2 ) + (i<<5)];
  38         tempC3  += tempA0 * B[(jToCol+3 ) + (i<<5)];
  39         tempC4  += tempA0 * B[(jToCol+4 ) + (i<<5)];
  40         tempC5  += tempA0 * B[(jToCol+5 ) + (i<<5)];
  41         tempC6  += tempA0 * B[(jToCol+6 ) + (i<<5)];
  42         tempC7  += tempA0 * B[(jToCol+7 ) + (i<<5)];
  43         tempC0  += tempA1 * B[(jToCol   ) + ((i+1)<<5)];
  44         tempC1  += tempA1 * B[(jToCol+1 ) + ((i+1)<<5)];
  45         tempC2  += tempA1 * B[(jToCol+2 ) + ((i+1)<<5)];
  46         tempC3  += tempA1 * B[(jToCol+3 ) + ((i+1)<<5)];
  47         tempC4  += tempA1 * B[(jToCol+4 ) + ((i+1)<<5)];
  48         tempC5  += tempA1 * B[(jToCol+5 ) + ((i+1)<<5)];
  49         tempC6  += tempA1 * B[(jToCol+6 ) + ((i+1)<<5)];
  50         tempC7  += tempA1 * B[(jToCol+7 ) + ((i+1)<<5)];
  51       }
  52       C[j] =tempC0;
  53       C[j + 1 ]=tempC1;
  54       C[j + 2 ]=tempC2;
  55       C[j + 3 ]=tempC3;
  56       C[j + 4 ]=tempC4;
  57       C[j + 5 ]=tempC5;
  58       C[j + 6 ]=tempC6;
  59       C[j + 7 ]=tempC7;
  60     }
  61   }
  62   else {
  63     for (i = 0; i < 1024; i++) {
  64       A1[i] = A[i];
  65       B1[i] = B[i];
  66     }
  67     for (j=start; j < end; j+=jStride) {
  68       jToRow = (j>>5)<<5;
  69       jToCol = j%32;
  70       tempC0  = 0;
  71       tempC1  = 0;
  72       tempC2  = 0;
  73       tempC3  = 0;
  74       tempC4  = 0;
  75       tempC5  = 0;
  76       tempC6  = 0;
  77       tempC7  = 0;
  78       for ( i=0; i < lda; i+=2 ) {
  79         tempA0 = A1[i   + jToRow];
  80         tempA1 = A1[i+1 + jToRow];
  81         tempC0  += tempA0 * B1[(jToCol   ) + (i<<5)];
  82         tempC1  += tempA0 * B1[(jToCol+1 ) + (i<<5)];
  83         tempC2  += tempA0 * B1[(jToCol+2 ) + (i<<5)];
  84         tempC3  += tempA0 * B1[(jToCol+3 ) + (i<<5)];
  85         tempC4  += tempA0 * B1[(jToCol+4 ) + (i<<5)];
  86         tempC5  += tempA0 * B1[(jToCol+5 ) + (i<<5)];
  87         tempC6  += tempA0 * B1[(jToCol+6 ) + (i<<5)];
  88         tempC7  += tempA0 * B1[(jToCol+7 ) + (i<<5)];
  89         tempC0  += tempA1 * B1[(jToCol   ) + ((i+1)<<5)];
  90         tempC1  += tempA1 * B1[(jToCol+1 ) + ((i+1)<<5)];
  91         tempC2  += tempA1 * B1[(jToCol+2 ) + ((i+1)<<5)];
  92         tempC3  += tempA1 * B1[(jToCol+3 ) + ((i+1)<<5)];
  93         tempC4  += tempA1 * B1[(jToCol+4 ) + ((i+1)<<5)];
  94         tempC5  += tempA1 * B1[(jToCol+5 ) + ((i+1)<<5)];
  95         tempC6  += tempA1 * B1[(jToCol+6 ) + ((i+1)<<5)];
  96         tempC7  += tempA1 * B1[(jToCol+7 ) + ((i+1)<<5)];
  97       }
  98       C[j] =tempC0;
  99       C[j + 1 ]=tempC1;
 100       C[j + 2 ]=tempC2;
 101       C[j + 3 ]=tempC3;
 102       C[j + 4 ]=tempC4;
 103       C[j + 5 ]=tempC5;
 104       C[j + 6 ]=tempC6;
 105       C[j + 7 ]=tempC7;
 106     }
 107   }
 108 }