OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree: fc8090b607
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'fc8090b607'
${ noResults }
OpenBLAS/kernel/generic/trmmkernel_16x8.c

3677 lines
59 kB
Raw Blame History 

  1. #include "common.h"

  2. 

  3. int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FLOAT* C,BLASLONG ldc ,BLASLONG offset)

  4. {

  5.    BLASLONG i,j,k;

  6.    FLOAT *C0,*C1,*C2,*C3,*C4,*C5,*C6,*C7,*ptrba,*ptrbb;

  7. 

  8.    FLOAT res0_0;

  9.    FLOAT res0_1;

  10.    FLOAT res0_2;

  11.    FLOAT res0_3;

  12.    FLOAT res0_4;

  13.    FLOAT res0_5;

  14.    FLOAT res0_6;

  15.    FLOAT res0_7;

  16. 

  17.    FLOAT res0_8;

  18.    FLOAT res0_9;

  19.    FLOAT res0_10;

  20.    FLOAT res0_11;

  21.    FLOAT res0_12;

  22.    FLOAT res0_13;

  23.    FLOAT res0_14;

  24.    FLOAT res0_15;

  25. 

  26.    FLOAT res1_0;

  27.    FLOAT res1_1;

  28.    FLOAT res1_2;

  29.    FLOAT res1_3;

  30.    FLOAT res1_4;

  31.    FLOAT res1_5;

  32.    FLOAT res1_6;

  33.    FLOAT res1_7;

  34. 

  35.    FLOAT res1_8;

  36.    FLOAT res1_9;

  37.    FLOAT res1_10;

  38.    FLOAT res1_11;

  39.    FLOAT res1_12;

  40.    FLOAT res1_13;

  41.    FLOAT res1_14;

  42.    FLOAT res1_15;

  43. 

  44.    FLOAT res2_0;

  45.    FLOAT res2_1;

  46.    FLOAT res2_2;

  47.    FLOAT res2_3;

  48.    FLOAT res2_4;

  49.    FLOAT res2_5;

  50.    FLOAT res2_6;

  51.    FLOAT res2_7;

  52. 

  53.    FLOAT res2_8;

  54.    FLOAT res2_9;

  55.    FLOAT res2_10;

  56.    FLOAT res2_11;

  57.    FLOAT res2_12;

  58.    FLOAT res2_13;

  59.    FLOAT res2_14;

  60.    FLOAT res2_15;

  61. 

  62.    FLOAT res3_0;

  63.    FLOAT res3_1;

  64.    FLOAT res3_2;

  65.    FLOAT res3_3;

  66.    FLOAT res3_4;

  67.    FLOAT res3_5;

  68.    FLOAT res3_6;

  69.    FLOAT res3_7;

  70. 

  71.    FLOAT res3_8;

  72.    FLOAT res3_9;

  73.    FLOAT res3_10;

  74.    FLOAT res3_11;

  75.    FLOAT res3_12;

  76.    FLOAT res3_13;

  77.    FLOAT res3_14;

  78.    FLOAT res3_15;

  79. 

  80.    FLOAT res4_0;

  81.    FLOAT res4_1;

  82.    FLOAT res4_2;

  83.    FLOAT res4_3;

  84.    FLOAT res4_4;

  85.    FLOAT res4_5;

  86.    FLOAT res4_6;

  87.    FLOAT res4_7;

  88. 

  89.    FLOAT res4_8;

  90.    FLOAT res4_9;

  91.    FLOAT res4_10;

  92.    FLOAT res4_11;

  93.    FLOAT res4_12;

  94.    FLOAT res4_13;

  95.    FLOAT res4_14;

  96.    FLOAT res4_15;

  97. 

  98.    FLOAT res5_0;

  99.    FLOAT res5_1;

  100.    FLOAT res5_2;

  101.    FLOAT res5_3;

  102.    FLOAT res5_4;

  103.    FLOAT res5_5;

  104.    FLOAT res5_6;

  105.    FLOAT res5_7;

  106. 

  107.    FLOAT res5_8;

  108.    FLOAT res5_9;

  109.    FLOAT res5_10;

  110.    FLOAT res5_11;

  111.    FLOAT res5_12;

  112.    FLOAT res5_13;

  113.    FLOAT res5_14;

  114.    FLOAT res5_15;

  115. 

  116.    FLOAT res6_0;

  117.    FLOAT res6_1;

  118.    FLOAT res6_2;

  119.    FLOAT res6_3;

  120.    FLOAT res6_4;

  121.    FLOAT res6_5;

  122.    FLOAT res6_6;

  123.    FLOAT res6_7;

  124. 

  125.    FLOAT res6_8;

  126.    FLOAT res6_9;

  127.    FLOAT res6_10;

  128.    FLOAT res6_11;

  129.    FLOAT res6_12;

  130.    FLOAT res6_13;

  131.    FLOAT res6_14;

  132.    FLOAT res6_15;

  133. 

  134.    FLOAT res7_0;

  135.    FLOAT res7_1;

  136.    FLOAT res7_2;

  137.    FLOAT res7_3;

  138.    FLOAT res7_4;

  139.    FLOAT res7_5;

  140.    FLOAT res7_6;

  141.    FLOAT res7_7;

  142. 

  143.    FLOAT res7_8;

  144.    FLOAT res7_9;

  145.    FLOAT res7_10;

  146.    FLOAT res7_11;

  147.    FLOAT res7_12;

  148.    FLOAT res7_13;

  149.    FLOAT res7_14;

  150.    FLOAT res7_15;

  151. 

  152.    FLOAT a0;

  153.    FLOAT a1;

  154. 

  155.    FLOAT b0;

  156.    FLOAT b1;

  157.    FLOAT b2;

  158.    FLOAT b3;

  159.    FLOAT b4;

  160.    FLOAT b5;

  161.    FLOAT b6;

  162.    FLOAT b7;

  163. 

  164.    BLASLONG off, temp;

  165. 

  166. #if !defined(LEFT)

  167.    off = -offset;

  168. #else

  169.    off = 0;

  170. #endif

  171. 

  172.    for (j=0; j<bn/8; j+=1)

  173.    {

  174.         C0 = C;

  175.         C1 = C0+ldc;

  176.         C2 = C0+2*ldc;

  177.         C3 = C0+3*ldc;

  178.         C4 = C0+4*ldc;

  179.         C5 = C0+5*ldc;

  180.         C6 = C0+6*ldc;

  181.         C7 = C0+7*ldc;

  182. 

  183. #if defined(TRMMKERNEL) && defined(LEFT)

  184. 	off = offset;

  185. #endif

  186. 

  187. 

  188.         ptrba = ba;

  189. 

  190. 

  191.         for (i=0; i<bm/16; i+=1)

  192.         {

  193. 

  194. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  195. 		ptrbb = bb;

  196. #else

  197. 		ptrba += off*16;

  198. 		ptrbb = bb + off*8;

  199. #endif

  200. 

  201. 		res0_0 = 0;

  202. 		res0_1 = 0;

  203. 		res0_2 = 0;

  204. 		res0_3 = 0;

  205. 		res0_4 = 0;

  206. 		res0_5 = 0;

  207. 		res0_6 = 0;

  208. 		res0_7 = 0;

  209. 

  210. 		res0_8  = 0;

  211. 		res0_9  = 0;

  212. 		res0_10 = 0;

  213. 		res0_11 = 0;

  214. 		res0_12 = 0;

  215. 		res0_13 = 0;

  216. 		res0_14 = 0;

  217. 		res0_15 = 0;

  218. 

  219. 		res1_0 = 0;

  220. 		res1_1 = 0;

  221. 		res1_2 = 0;

  222. 		res1_3 = 0;

  223. 		res1_4 = 0;

  224. 		res1_5 = 0;

  225. 		res1_6 = 0;

  226. 		res1_7 = 0;

  227. 

  228. 		res1_8  = 0;

  229. 		res1_9  = 0;

  230. 		res1_10 = 0;

  231. 		res1_11 = 0;

  232. 		res1_12 = 0;

  233. 		res1_13 = 0;

  234. 		res1_14 = 0;

  235. 		res1_15 = 0;

  236. 

  237. 		res2_0 = 0;

  238. 		res2_1 = 0;

  239. 		res2_2 = 0;

  240. 		res2_3 = 0;

  241. 		res2_4 = 0;

  242. 		res2_5 = 0;

  243. 		res2_6 = 0;

  244. 		res2_7 = 0;

  245. 

  246. 		res2_8  = 0;

  247. 		res2_9  = 0;

  248. 		res2_10 = 0;

  249. 		res2_11 = 0;

  250. 		res2_12 = 0;

  251. 		res2_13 = 0;

  252. 		res2_14 = 0;

  253. 		res2_15 = 0;

  254. 

  255. 		res3_0 = 0;

  256. 		res3_1 = 0;

  257. 		res3_2 = 0;

  258. 		res3_3 = 0;

  259. 		res3_4 = 0;

  260. 		res3_5 = 0;

  261. 		res3_6 = 0;

  262. 		res3_7 = 0;

  263. 

  264. 		res3_8  = 0;

  265. 		res3_9  = 0;

  266. 		res3_10 = 0;

  267. 		res3_11 = 0;

  268. 		res3_12 = 0;

  269. 		res3_13 = 0;

  270. 		res3_14 = 0;

  271. 		res3_15 = 0;

  272. 

  273. 

  274. 		res4_0 = 0;

  275. 		res4_1 = 0;

  276. 		res4_2 = 0;

  277. 		res4_3 = 0;

  278. 		res4_4 = 0;

  279. 		res4_5 = 0;

  280. 		res4_6 = 0;

  281. 		res4_7 = 0;

  282. 

  283. 		res4_8  = 0;

  284. 		res4_9  = 0;

  285. 		res4_10 = 0;

  286. 		res4_11 = 0;

  287. 		res4_12 = 0;

  288. 		res4_13 = 0;

  289. 		res4_14 = 0;

  290. 		res4_15 = 0;

  291. 

  292. 		res5_0 = 0;

  293. 		res5_1 = 0;

  294. 		res5_2 = 0;

  295. 		res5_3 = 0;

  296. 		res5_4 = 0;

  297. 		res5_5 = 0;

  298. 		res5_6 = 0;

  299. 		res5_7 = 0;

  300. 

  301. 		res5_8  = 0;

  302. 		res5_9  = 0;

  303. 		res5_10 = 0;

  304. 		res5_11 = 0;

  305. 		res5_12 = 0;

  306. 		res5_13 = 0;

  307. 		res5_14 = 0;

  308. 		res5_15 = 0;

  309. 

  310. 		res6_0 = 0;

  311. 		res6_1 = 0;

  312. 		res6_2 = 0;

  313. 		res6_3 = 0;

  314. 		res6_4 = 0;

  315. 		res6_5 = 0;

  316. 		res6_6 = 0;

  317. 		res6_7 = 0;

  318. 

  319. 		res6_8  = 0;

  320. 		res6_9  = 0;

  321. 		res6_10 = 0;

  322. 		res6_11 = 0;

  323. 		res6_12 = 0;

  324. 		res6_13 = 0;

  325. 		res6_14 = 0;

  326. 		res6_15 = 0;

  327. 

  328. 		res7_0 = 0;

  329. 		res7_1 = 0;

  330. 		res7_2 = 0;

  331. 		res7_3 = 0;

  332. 		res7_4 = 0;

  333. 		res7_5 = 0;

  334. 		res7_6 = 0;

  335. 		res7_7 = 0;

  336. 

  337. 		res7_8  = 0;

  338. 		res7_9  = 0;

  339. 		res7_10 = 0;

  340. 		res7_11 = 0;

  341. 		res7_12 = 0;

  342. 		res7_13 = 0;

  343. 		res7_14 = 0;

  344. 		res7_15 = 0;

  345. 

  346. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  347. 		temp = bk-off;

  348. #elif defined(LEFT)

  349. 		temp = off+16;	// number of values in A

  350. #else

  351. 		temp = off+8;	// number of values in B

  352. #endif

  353. 

  354. 		for (k=0; k<temp; k++)

  355.                 {

  356. 			b0 = ptrbb[0];

  357. 			b1 = ptrbb[1];

  358. 			b2 = ptrbb[2];

  359. 			b3 = ptrbb[3];

  360. 			b4 = ptrbb[4];

  361. 			b5 = ptrbb[5];

  362. 			b6 = ptrbb[6];

  363. 			b7 = ptrbb[7];

  364. 

  365. 			a0 = ptrba[0];

  366. 			res0_0 += a0*b0;

  367. 			res1_0 += a0*b1;

  368. 			res2_0 += a0*b2;

  369. 			res3_0 += a0*b3;

  370. 			res4_0 += a0*b4;

  371. 			res5_0 += a0*b5;

  372. 			res6_0 += a0*b6;

  373. 			res7_0 += a0*b7;

  374. 

  375. 			a1 = ptrba[1];

  376. 			res0_1 += a1*b0;

  377. 			res1_1 += a1*b1;

  378. 			res2_1 += a1*b2;

  379. 			res3_1 += a1*b3;

  380. 			res4_1 += a1*b4;

  381. 			res5_1 += a1*b5;

  382. 			res6_1 += a1*b6;

  383. 			res7_1 += a1*b7;

  384. 

  385. 			a0 = ptrba[2];

  386. 			res0_2 += a0*b0;

  387. 			res1_2 += a0*b1;

  388. 			res2_2 += a0*b2;

  389. 			res3_2 += a0*b3;

  390. 			res4_2 += a0*b4;

  391. 			res5_2 += a0*b5;

  392. 			res6_2 += a0*b6;

  393. 			res7_2 += a0*b7;

  394. 

  395. 			a1 = ptrba[3];

  396. 			res0_3 += a1*b0;

  397. 			res1_3 += a1*b1;

  398. 			res2_3 += a1*b2;

  399. 			res3_3 += a1*b3;

  400. 			res4_3 += a1*b4;

  401. 			res5_3 += a1*b5;

  402. 			res6_3 += a1*b6;

  403. 			res7_3 += a1*b7;

  404. 

  405. 			a0 = ptrba[4];

  406. 			res0_4 += a0*b0;

  407. 			res1_4 += a0*b1;

  408. 			res2_4 += a0*b2;

  409. 			res3_4 += a0*b3;

  410. 			res4_4 += a0*b4;

  411. 			res5_4 += a0*b5;

  412. 			res6_4 += a0*b6;

  413. 			res7_4 += a0*b7;

  414. 

  415. 			a1 = ptrba[5];

  416. 			res0_5 += a1*b0;

  417. 			res1_5 += a1*b1;

  418. 			res2_5 += a1*b2;

  419. 			res3_5 += a1*b3;

  420. 			res4_5 += a1*b4;

  421. 			res5_5 += a1*b5;

  422. 			res6_5 += a1*b6;

  423. 			res7_5 += a1*b7;

  424. 

  425. 			a0 = ptrba[6];

  426. 			res0_6 += a0*b0;

  427. 			res1_6 += a0*b1;

  428. 			res2_6 += a0*b2;

  429. 			res3_6 += a0*b3;

  430. 			res4_6 += a0*b4;

  431. 			res5_6 += a0*b5;

  432. 			res6_6 += a0*b6;

  433. 			res7_6 += a0*b7;

  434. 

  435. 			a1 = ptrba[7];

  436. 			res0_7 += a1*b0;

  437. 			res1_7 += a1*b1;

  438. 			res2_7 += a1*b2;

  439. 			res3_7 += a1*b3;

  440. 			res4_7 += a1*b4;

  441. 			res5_7 += a1*b5;

  442. 			res6_7 += a1*b6;

  443. 			res7_7 += a1*b7;

  444. 

  445. 			a0 = ptrba[8];

  446. 			res0_8 += a0*b0;

  447. 			res1_8 += a0*b1;

  448. 			res2_8 += a0*b2;

  449. 			res3_8 += a0*b3;

  450. 			res4_8 += a0*b4;

  451. 			res5_8 += a0*b5;

  452. 			res6_8 += a0*b6;

  453. 			res7_8 += a0*b7;

  454. 

  455. 			a1 = ptrba[9];

  456. 			res0_9 += a1*b0;

  457. 			res1_9 += a1*b1;

  458. 			res2_9 += a1*b2;

  459. 			res3_9 += a1*b3;

  460. 			res4_9 += a1*b4;

  461. 			res5_9 += a1*b5;

  462. 			res6_9 += a1*b6;

  463. 			res7_9 += a1*b7;

  464. 

  465. 			a0 = ptrba[10];

  466. 			res0_10 += a0*b0;

  467. 			res1_10 += a0*b1;

  468. 			res2_10 += a0*b2;

  469. 			res3_10 += a0*b3;

  470. 			res4_10 += a0*b4;

  471. 			res5_10 += a0*b5;

  472. 			res6_10 += a0*b6;

  473. 			res7_10 += a0*b7;

  474. 

  475. 			a1 = ptrba[11];

  476. 			res0_11 += a1*b0;

  477. 			res1_11 += a1*b1;

  478. 			res2_11 += a1*b2;

  479. 			res3_11 += a1*b3;

  480. 			res4_11 += a1*b4;

  481. 			res5_11 += a1*b5;

  482. 			res6_11 += a1*b6;

  483. 			res7_11 += a1*b7;

  484. 

  485. 			a0 = ptrba[12];

  486. 			res0_12 += a0*b0;

  487. 			res1_12 += a0*b1;

  488. 			res2_12 += a0*b2;

  489. 			res3_12 += a0*b3;

  490. 			res4_12 += a0*b4;

  491. 			res5_12 += a0*b5;

  492. 			res6_12 += a0*b6;

  493. 			res7_12 += a0*b7;

  494. 

  495. 			a1 = ptrba[13];

  496. 			res0_13 += a1*b0;

  497. 			res1_13 += a1*b1;

  498. 			res2_13 += a1*b2;

  499. 			res3_13 += a1*b3;

  500. 			res4_13 += a1*b4;

  501. 			res5_13 += a1*b5;

  502. 			res6_13 += a1*b6;

  503. 			res7_13 += a1*b7;

  504. 

  505. 			a0 = ptrba[14];

  506. 			res0_14 += a0*b0;

  507. 			res1_14 += a0*b1;

  508. 			res2_14 += a0*b2;

  509. 			res3_14 += a0*b3;

  510. 			res4_14 += a0*b4;

  511. 			res5_14 += a0*b5;

  512. 			res6_14 += a0*b6;

  513. 			res7_14 += a0*b7;

  514. 

  515. 			a1 = ptrba[15];

  516. 			res0_15 += a1*b0;

  517. 			res1_15 += a1*b1;

  518. 			res2_15 += a1*b2;

  519. 			res3_15 += a1*b3;

  520. 			res4_15 += a1*b4;

  521. 			res5_15 += a1*b5;

  522. 			res6_15 += a1*b6;

  523. 			res7_15 += a1*b7;

  524. 

  525. 

  526. 			ptrba = ptrba+16;

  527. 			ptrbb = ptrbb+8;

  528.                 }

  529. 

  530. 		res0_0 *= alpha;

  531. 		res0_1 *= alpha;

  532. 		res0_2 *= alpha;

  533. 		res0_3 *= alpha;

  534. 		res0_4 *= alpha;

  535. 		res0_5 *= alpha;

  536. 		res0_6 *= alpha;

  537. 		res0_7 *= alpha;

  538. 

  539. 		res0_8  *= alpha;

  540. 		res0_9  *= alpha;

  541. 		res0_10 *= alpha;

  542. 		res0_11 *= alpha;

  543. 		res0_12 *= alpha;

  544. 		res0_13 *= alpha;

  545. 		res0_14 *= alpha;

  546. 		res0_15 *= alpha;

  547. 

  548. 		res1_0 *= alpha;

  549. 		res1_1 *= alpha;

  550. 		res1_2 *= alpha;

  551. 		res1_3 *= alpha;

  552. 		res1_4 *= alpha;

  553. 		res1_5 *= alpha;

  554. 		res1_6 *= alpha;

  555. 		res1_7 *= alpha;

  556. 

  557. 		res1_8  *= alpha;

  558. 		res1_9  *= alpha;

  559. 		res1_10 *= alpha;

  560. 		res1_11 *= alpha;

  561. 		res1_12 *= alpha;

  562. 		res1_13 *= alpha;

  563. 		res1_14 *= alpha;

  564. 		res1_15 *= alpha;

  565. 		

  566. 		res2_0 *= alpha;

  567. 		res2_1 *= alpha;

  568. 		res2_2 *= alpha;

  569. 		res2_3 *= alpha;

  570. 		res2_4 *= alpha;

  571. 		res2_5 *= alpha;

  572. 		res2_6 *= alpha;

  573. 		res2_7 *= alpha;

  574. 

  575. 		res2_8  *= alpha;

  576. 		res2_9  *= alpha;

  577. 		res2_10 *= alpha;

  578. 		res2_11 *= alpha;

  579. 		res2_12 *= alpha;

  580. 		res2_13 *= alpha;

  581. 		res2_14 *= alpha;

  582. 		res2_15 *= alpha;

  583. 

  584. 		res3_0 *= alpha;

  585. 		res3_1 *= alpha;

  586. 		res3_2 *= alpha;

  587. 		res3_3 *= alpha;

  588. 		res3_4 *= alpha;

  589. 		res3_5 *= alpha;

  590. 		res3_6 *= alpha;

  591. 		res3_7 *= alpha;

  592. 

  593. 		res3_8  *= alpha;

  594. 		res3_9  *= alpha;

  595. 		res3_10 *= alpha;

  596. 		res3_11 *= alpha;

  597. 		res3_12 *= alpha;

  598. 		res3_13 *= alpha;

  599. 		res3_14 *= alpha;

  600. 		res3_15 *= alpha;

  601. 

  602. 		res4_0 *= alpha;

  603. 		res4_1 *= alpha;

  604. 		res4_2 *= alpha;

  605. 		res4_3 *= alpha;

  606. 		res4_4 *= alpha;

  607. 		res4_5 *= alpha;

  608. 		res4_6 *= alpha;

  609. 		res4_7 *= alpha;

  610. 

  611. 		res4_8  *= alpha;

  612. 		res4_9  *= alpha;

  613. 		res4_10 *= alpha;

  614. 		res4_11 *= alpha;

  615. 		res4_12 *= alpha;

  616. 		res4_13 *= alpha;

  617. 		res4_14 *= alpha;

  618. 		res4_15 *= alpha;

  619. 

  620. 		res5_0 *= alpha;

  621. 		res5_1 *= alpha;

  622. 		res5_2 *= alpha;

  623. 		res5_3 *= alpha;

  624. 		res5_4 *= alpha;

  625. 		res5_5 *= alpha;

  626. 		res5_6 *= alpha;

  627. 		res5_7 *= alpha;

  628. 

  629. 		res5_8  *= alpha;

  630. 		res5_9  *= alpha;

  631. 		res5_10 *= alpha;

  632. 		res5_11 *= alpha;

  633. 		res5_12 *= alpha;

  634. 		res5_13 *= alpha;

  635. 		res5_14 *= alpha;

  636. 		res5_15 *= alpha;

  637. 		

  638. 		res6_0 *= alpha;

  639. 		res6_1 *= alpha;

  640. 		res6_2 *= alpha;

  641. 		res6_3 *= alpha;

  642. 		res6_4 *= alpha;

  643. 		res6_5 *= alpha;

  644. 		res6_6 *= alpha;

  645. 		res6_7 *= alpha;

  646. 

  647. 		res6_8  *= alpha;

  648. 		res6_9  *= alpha;

  649. 		res6_10 *= alpha;

  650. 		res6_11 *= alpha;

  651. 		res6_12 *= alpha;

  652. 		res6_13 *= alpha;

  653. 		res6_14 *= alpha;

  654. 		res6_15 *= alpha;

  655. 

  656. 		res7_0 *= alpha;

  657. 		res7_1 *= alpha;

  658. 		res7_2 *= alpha;

  659. 		res7_3 *= alpha;

  660. 		res7_4 *= alpha;

  661. 		res7_5 *= alpha;

  662. 		res7_6 *= alpha;

  663. 		res7_7 *= alpha;

  664. 

  665. 		res7_8  *= alpha;

  666. 		res7_9  *= alpha;

  667. 		res7_10 *= alpha;

  668. 		res7_11 *= alpha;

  669. 		res7_12 *= alpha;

  670. 		res7_13 *= alpha;

  671. 		res7_14 *= alpha;

  672. 		res7_15 *= alpha;

  673. 

  674. 		C0[0] = res0_0;

  675. 		C0[1] = res0_1;

  676. 		C0[2] = res0_2;

  677. 		C0[3] = res0_3;

  678. 		C0[4] = res0_4;

  679. 		C0[5] = res0_5;

  680. 		C0[6] = res0_6;

  681. 		C0[7] = res0_7;

  682. 

  683. 		C0[8]  = res0_8;

  684. 		C0[9]  = res0_9;

  685. 		C0[10] = res0_10;

  686. 		C0[11] = res0_11;

  687. 		C0[12] = res0_12;

  688. 		C0[13] = res0_13;

  689. 		C0[14] = res0_14;

  690. 		C0[15] = res0_15;

  691. 

  692. 		C1[0] = res1_0;

  693. 		C1[1] = res1_1;

  694. 		C1[2] = res1_2;

  695. 		C1[3] = res1_3;

  696. 		C1[4] = res1_4;

  697. 		C1[5] = res1_5;

  698. 		C1[6] = res1_6;

  699. 		C1[7] = res1_7;

  700. 

  701. 		C1[8]  = res1_8;

  702. 		C1[9]  = res1_9;

  703. 		C1[10] = res1_10;

  704. 		C1[11] = res1_11;

  705. 		C1[12] = res1_12;

  706. 		C1[13] = res1_13;

  707. 		C1[14] = res1_14;

  708. 		C1[15] = res1_15;

  709. 

  710. 		C2[0] = res2_0;

  711. 		C2[1] = res2_1;

  712. 		C2[2] = res2_2;

  713. 		C2[3] = res2_3;

  714. 		C2[4] = res2_4;

  715. 		C2[5] = res2_5;

  716. 		C2[6] = res2_6;

  717. 		C2[7] = res2_7;

  718. 

  719. 		C2[8]  = res2_8;

  720. 		C2[9]  = res2_9;

  721. 		C2[10] = res2_10;

  722. 		C2[11] = res2_11;

  723. 		C2[12] = res2_12;

  724. 		C2[13] = res2_13;

  725. 		C2[14] = res2_14;

  726. 		C2[15] = res2_15;

  727. 

  728. 		C3[0] = res3_0;

  729. 		C3[1] = res3_1;

  730. 		C3[2] = res3_2;

  731. 		C3[3] = res3_3;

  732. 		C3[4] = res3_4;

  733. 		C3[5] = res3_5;

  734. 		C3[6] = res3_6;

  735. 		C3[7] = res3_7;

  736. 

  737. 		C3[8]  = res3_8;

  738. 		C3[9]  = res3_9;

  739. 		C3[10] = res3_10;

  740. 		C3[11] = res3_11;

  741. 		C3[12] = res3_12;

  742. 		C3[13] = res3_13;

  743. 		C3[14] = res3_14;

  744. 		C3[15] = res3_15;

  745. 

  746. 		C4[0] = res4_0;

  747. 		C4[1] = res4_1;

  748. 		C4[2] = res4_2;

  749. 		C4[3] = res4_3;

  750. 		C4[4] = res4_4;

  751. 		C4[5] = res4_5;

  752. 		C4[6] = res4_6;

  753. 		C4[7] = res4_7;

  754. 

  755. 		C4[8]  = res4_8;

  756. 		C4[9]  = res4_9;

  757. 		C4[10] = res4_10;

  758. 		C4[11] = res4_11;

  759. 		C4[12] = res4_12;

  760. 		C4[13] = res4_13;

  761. 		C4[14] = res4_14;

  762. 		C4[15] = res4_15;

  763. 

  764. 		C5[0] = res5_0;

  765. 		C5[1] = res5_1;

  766. 		C5[2] = res5_2;

  767. 		C5[3] = res5_3;

  768. 		C5[4] = res5_4;

  769. 		C5[5] = res5_5;

  770. 		C5[6] = res5_6;

  771. 		C5[7] = res5_7;

  772. 

  773. 		C5[8]  = res5_8;

  774. 		C5[9]  = res5_9;

  775. 		C5[10] = res5_10;

  776. 		C5[11] = res5_11;

  777. 		C5[12] = res5_12;

  778. 		C5[13] = res5_13;

  779. 		C5[14] = res5_14;

  780. 		C5[15] = res5_15;

  781. 

  782. 		C6[0] = res6_0;

  783. 		C6[1] = res6_1;

  784. 		C6[2] = res6_2;

  785. 		C6[3] = res6_3;

  786. 		C6[4] = res6_4;

  787. 		C6[5] = res6_5;

  788. 		C6[6] = res6_6;

  789. 		C6[7] = res6_7;

  790. 

  791. 		C6[8]  = res6_8;

  792. 		C6[9]  = res6_9;

  793. 		C6[10] = res6_10;

  794. 		C6[11] = res6_11;

  795. 		C6[12] = res6_12;

  796. 		C6[13] = res6_13;

  797. 		C6[14] = res6_14;

  798. 		C6[15] = res6_15;

  799. 

  800. 		C7[0] = res7_0;

  801. 		C7[1] = res7_1;

  802. 		C7[2] = res7_2;

  803. 		C7[3] = res7_3;

  804. 		C7[4] = res7_4;

  805. 		C7[5] = res7_5;

  806. 		C7[6] = res7_6;

  807. 		C7[7] = res7_7;

  808. 

  809. 		C7[8]  = res7_8;

  810. 		C7[9]  = res7_9;

  811. 		C7[10] = res7_10;

  812. 		C7[11] = res7_11;

  813. 		C7[12] = res7_12;

  814. 		C7[13] = res7_13;

  815. 		C7[14] = res7_14;

  816. 		C7[15] = res7_15;

  817. 

  818. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  819. 		temp = bk - off;

  820. #ifdef LEFT

  821. 		temp -= 16; // number of values in A

  822. #else

  823. 		temp -= 8; // number of values in B

  824. #endif

  825. 		ptrba += temp*16;

  826. 		ptrbb += temp*8;

  827. #endif

  828. 

  829. #ifdef LEFT

  830. 		off += 16; // number of values in A

  831. #endif

  832. 

  833. 		C0 = C0+16;

  834. 		C1 = C1+16;

  835. 		C2 = C2+16;

  836. 		C3 = C3+16;

  837. 		C4 = C4+16;

  838. 		C5 = C5+16;

  839. 		C6 = C6+16;

  840. 		C7 = C7+16;

  841. 	}

  842. 

  843. 

  844.         if ( bm & 8)

  845.         {

  846. 

  847. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  848. 		ptrbb = bb;

  849. #else

  850. 		ptrba += off*8;

  851. 		ptrbb = bb + off*8;

  852. #endif

  853. 

  854. 		res0_0 = 0;

  855. 		res0_1 = 0;

  856. 		res0_2 = 0;

  857. 		res0_3 = 0;

  858. 		res0_4 = 0;

  859. 		res0_5 = 0;

  860. 		res0_6 = 0;

  861. 		res0_7 = 0;

  862. 

  863. 		res1_0 = 0;

  864. 		res1_1 = 0;

  865. 		res1_2 = 0;

  866. 		res1_3 = 0;

  867. 		res1_4 = 0;

  868. 		res1_5 = 0;

  869. 		res1_6 = 0;

  870. 		res1_7 = 0;

  871. 

  872. 		res2_0 = 0;

  873. 		res2_1 = 0;

  874. 		res2_2 = 0;

  875. 		res2_3 = 0;

  876. 		res2_4 = 0;

  877. 		res2_5 = 0;

  878. 		res2_6 = 0;

  879. 		res2_7 = 0;

  880. 

  881. 		res3_0 = 0;

  882. 		res3_1 = 0;

  883. 		res3_2 = 0;

  884. 		res3_3 = 0;

  885. 		res3_4 = 0;

  886. 		res3_5 = 0;

  887. 		res3_6 = 0;

  888. 		res3_7 = 0;

  889. 

  890. 		res4_0 = 0;

  891. 		res4_1 = 0;

  892. 		res4_2 = 0;

  893. 		res4_3 = 0;

  894. 		res4_4 = 0;

  895. 		res4_5 = 0;

  896. 		res4_6 = 0;

  897. 		res4_7 = 0;

  898. 

  899. 		res5_0 = 0;

  900. 		res5_1 = 0;

  901. 		res5_2 = 0;

  902. 		res5_3 = 0;

  903. 		res5_4 = 0;

  904. 		res5_5 = 0;

  905. 		res5_6 = 0;

  906. 		res5_7 = 0;

  907. 

  908. 		res6_0 = 0;

  909. 		res6_1 = 0;

  910. 		res6_2 = 0;

  911. 		res6_3 = 0;

  912. 		res6_4 = 0;

  913. 		res6_5 = 0;

  914. 		res6_6 = 0;

  915. 		res6_7 = 0;

  916. 

  917. 		res7_0 = 0;

  918. 		res7_1 = 0;

  919. 		res7_2 = 0;

  920. 		res7_3 = 0;

  921. 		res7_4 = 0;

  922. 		res7_5 = 0;

  923. 		res7_6 = 0;

  924. 		res7_7 = 0;

  925. 

  926. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  927. 		temp = bk-off;

  928. #elif defined(LEFT)

  929. 		temp = off+8;	// number of values in A

  930. #else

  931. 		temp = off+8;	// number of values in B

  932. #endif

  933. 

  934. 		for (k=0; k<temp; k++)

  935.                 {

  936. 			b0 = ptrbb[0];

  937. 			b1 = ptrbb[1];

  938. 			b2 = ptrbb[2];

  939. 			b3 = ptrbb[3];

  940. 			b4 = ptrbb[4];

  941. 			b5 = ptrbb[5];

  942. 			b6 = ptrbb[6];

  943. 			b7 = ptrbb[7];

  944. 

  945. 			a0 = ptrba[0];

  946. 			res0_0 += a0*b0;

  947. 			res1_0 += a0*b1;

  948. 			res2_0 += a0*b2;

  949. 			res3_0 += a0*b3;

  950. 			res4_0 += a0*b4;

  951. 			res5_0 += a0*b5;

  952. 			res6_0 += a0*b6;

  953. 			res7_0 += a0*b7;

  954. 

  955. 			a1 = ptrba[1];

  956. 			res0_1 += a1*b0;

  957. 			res1_1 += a1*b1;

  958. 			res2_1 += a1*b2;

  959. 			res3_1 += a1*b3;

  960. 			res4_1 += a1*b4;

  961. 			res5_1 += a1*b5;

  962. 			res6_1 += a1*b6;

  963. 			res7_1 += a1*b7;

  964. 

  965. 			a0 = ptrba[2];

  966. 			res0_2 += a0*b0;

  967. 			res1_2 += a0*b1;

  968. 			res2_2 += a0*b2;

  969. 			res3_2 += a0*b3;

  970. 			res4_2 += a0*b4;

  971. 			res5_2 += a0*b5;

  972. 			res6_2 += a0*b6;

  973. 			res7_2 += a0*b7;

  974. 

  975. 			a1 = ptrba[3];

  976. 			res0_3 += a1*b0;

  977. 			res1_3 += a1*b1;

  978. 			res2_3 += a1*b2;

  979. 			res3_3 += a1*b3;

  980. 			res4_3 += a1*b4;

  981. 			res5_3 += a1*b5;

  982. 			res6_3 += a1*b6;

  983. 			res7_3 += a1*b7;

  984. 

  985. 			a0 = ptrba[4];

  986. 			res0_4 += a0*b0;

  987. 			res1_4 += a0*b1;

  988. 			res2_4 += a0*b2;

  989. 			res3_4 += a0*b3;

  990. 			res4_4 += a0*b4;

  991. 			res5_4 += a0*b5;

  992. 			res6_4 += a0*b6;

  993. 			res7_4 += a0*b7;

  994. 

  995. 			a1 = ptrba[5];

  996. 			res0_5 += a1*b0;

  997. 			res1_5 += a1*b1;

  998. 			res2_5 += a1*b2;

  999. 			res3_5 += a1*b3;

  1000. 			res4_5 += a1*b4;

  1001. 			res5_5 += a1*b5;

  1002. 			res6_5 += a1*b6;

  1003. 			res7_5 += a1*b7;

  1004. 

  1005. 			a0 = ptrba[6];

  1006. 			res0_6 += a0*b0;

  1007. 			res1_6 += a0*b1;

  1008. 			res2_6 += a0*b2;

  1009. 			res3_6 += a0*b3;

  1010. 			res4_6 += a0*b4;

  1011. 			res5_6 += a0*b5;

  1012. 			res6_6 += a0*b6;

  1013. 			res7_6 += a0*b7;

  1014. 

  1015. 			a1 = ptrba[7];

  1016. 			res0_7 += a1*b0;

  1017. 			res1_7 += a1*b1;

  1018. 			res2_7 += a1*b2;

  1019. 			res3_7 += a1*b3;

  1020. 			res4_7 += a1*b4;

  1021. 			res5_7 += a1*b5;

  1022. 			res6_7 += a1*b6;

  1023. 			res7_7 += a1*b7;

  1024. 

  1025. 			ptrba = ptrba+8;

  1026. 			ptrbb = ptrbb+8;

  1027.                 }

  1028. 

  1029. 		res0_0 *= alpha;

  1030. 		res0_1 *= alpha;

  1031. 		res0_2 *= alpha;

  1032. 		res0_3 *= alpha;

  1033. 		res0_4 *= alpha;

  1034. 		res0_5 *= alpha;

  1035. 		res0_6 *= alpha;

  1036. 		res0_7 *= alpha;

  1037. 

  1038. 		res1_0 *= alpha;

  1039. 		res1_1 *= alpha;

  1040. 		res1_2 *= alpha;

  1041. 		res1_3 *= alpha;

  1042. 		res1_4 *= alpha;

  1043. 		res1_5 *= alpha;

  1044. 		res1_6 *= alpha;

  1045. 		res1_7 *= alpha;

  1046. 		

  1047. 		res2_0 *= alpha;

  1048. 		res2_1 *= alpha;

  1049. 		res2_2 *= alpha;

  1050. 		res2_3 *= alpha;

  1051. 		res2_4 *= alpha;

  1052. 		res2_5 *= alpha;

  1053. 		res2_6 *= alpha;

  1054. 		res2_7 *= alpha;

  1055. 

  1056. 		res3_0 *= alpha;

  1057. 		res3_1 *= alpha;

  1058. 		res3_2 *= alpha;

  1059. 		res3_3 *= alpha;

  1060. 		res3_4 *= alpha;

  1061. 		res3_5 *= alpha;

  1062. 		res3_6 *= alpha;

  1063. 		res3_7 *= alpha;

  1064. 

  1065. 		res4_0 *= alpha;

  1066. 		res4_1 *= alpha;

  1067. 		res4_2 *= alpha;

  1068. 		res4_3 *= alpha;

  1069. 		res4_4 *= alpha;

  1070. 		res4_5 *= alpha;

  1071. 		res4_6 *= alpha;

  1072. 		res4_7 *= alpha;

  1073. 

  1074. 		res5_0 *= alpha;

  1075. 		res5_1 *= alpha;

  1076. 		res5_2 *= alpha;

  1077. 		res5_3 *= alpha;

  1078. 		res5_4 *= alpha;

  1079. 		res5_5 *= alpha;

  1080. 		res5_6 *= alpha;

  1081. 		res5_7 *= alpha;

  1082. 		

  1083. 		res6_0 *= alpha;

  1084. 		res6_1 *= alpha;

  1085. 		res6_2 *= alpha;

  1086. 		res6_3 *= alpha;

  1087. 		res6_4 *= alpha;

  1088. 		res6_5 *= alpha;

  1089. 		res6_6 *= alpha;

  1090. 		res6_7 *= alpha;

  1091. 

  1092. 		res7_0 *= alpha;

  1093. 		res7_1 *= alpha;

  1094. 		res7_2 *= alpha;

  1095. 		res7_3 *= alpha;

  1096. 		res7_4 *= alpha;

  1097. 		res7_5 *= alpha;

  1098. 		res7_6 *= alpha;

  1099. 		res7_7 *= alpha;

  1100. 

  1101. 		C0[0] = res0_0;

  1102. 		C0[1] = res0_1;

  1103. 		C0[2] = res0_2;

  1104. 		C0[3] = res0_3;

  1105. 		C0[4] = res0_4;

  1106. 		C0[5] = res0_5;

  1107. 		C0[6] = res0_6;

  1108. 		C0[7] = res0_7;

  1109. 

  1110. 		C1[0] = res1_0;

  1111. 		C1[1] = res1_1;

  1112. 		C1[2] = res1_2;

  1113. 		C1[3] = res1_3;

  1114. 		C1[4] = res1_4;

  1115. 		C1[5] = res1_5;

  1116. 		C1[6] = res1_6;

  1117. 		C1[7] = res1_7;

  1118. 

  1119. 		C2[0] = res2_0;

  1120. 		C2[1] = res2_1;

  1121. 		C2[2] = res2_2;

  1122. 		C2[3] = res2_3;

  1123. 		C2[4] = res2_4;

  1124. 		C2[5] = res2_5;

  1125. 		C2[6] = res2_6;

  1126. 		C2[7] = res2_7;

  1127. 

  1128. 		C3[0] = res3_0;

  1129. 		C3[1] = res3_1;

  1130. 		C3[2] = res3_2;

  1131. 		C3[3] = res3_3;

  1132. 		C3[4] = res3_4;

  1133. 		C3[5] = res3_5;

  1134. 		C3[6] = res3_6;

  1135. 		C3[7] = res3_7;

  1136. 

  1137. 		C4[0] = res4_0;

  1138. 		C4[1] = res4_1;

  1139. 		C4[2] = res4_2;

  1140. 		C4[3] = res4_3;

  1141. 		C4[4] = res4_4;

  1142. 		C4[5] = res4_5;

  1143. 		C4[6] = res4_6;

  1144. 		C4[7] = res4_7;

  1145. 

  1146. 		C5[0] = res5_0;

  1147. 		C5[1] = res5_1;

  1148. 		C5[2] = res5_2;

  1149. 		C5[3] = res5_3;

  1150. 		C5[4] = res5_4;

  1151. 		C5[5] = res5_5;

  1152. 		C5[6] = res5_6;

  1153. 		C5[7] = res5_7;

  1154. 

  1155. 		C6[0] = res6_0;

  1156. 		C6[1] = res6_1;

  1157. 		C6[2] = res6_2;

  1158. 		C6[3] = res6_3;

  1159. 		C6[4] = res6_4;

  1160. 		C6[5] = res6_5;

  1161. 		C6[6] = res6_6;

  1162. 		C6[7] = res6_7;

  1163. 

  1164. 		C7[0] = res7_0;

  1165. 		C7[1] = res7_1;

  1166. 		C7[2] = res7_2;

  1167. 		C7[3] = res7_3;

  1168. 		C7[4] = res7_4;

  1169. 		C7[5] = res7_5;

  1170. 		C7[6] = res7_6;

  1171. 		C7[7] = res7_7;

  1172. 

  1173. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1174. 		temp = bk - off;

  1175. #ifdef LEFT

  1176. 		temp -= 8; // number of values in A

  1177. #else

  1178. 		temp -= 8; // number of values in B

  1179. #endif

  1180. 		ptrba += temp*8;

  1181. 		ptrbb += temp*8;

  1182. #endif

  1183. 

  1184. #ifdef LEFT

  1185. 		off += 8; // number of values in A

  1186. #endif

  1187. 

  1188. 		C0 = C0+8;

  1189. 		C1 = C1+8;

  1190. 		C2 = C2+8;

  1191. 		C3 = C3+8;

  1192. 		C4 = C4+8;

  1193. 		C5 = C5+8;

  1194. 		C6 = C6+8;

  1195. 		C7 = C7+8;

  1196. 	}

  1197. 

  1198. 	if ( bm & 4 )

  1199. 	{

  1200. 

  1201. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1202. 		ptrbb = bb;

  1203. #else

  1204. 		ptrba += off*4;

  1205. 		ptrbb = bb + off*8;

  1206. #endif

  1207. 

  1208. 		res0_0 = 0;

  1209. 		res1_0 = 0;

  1210. 		res2_0 = 0;

  1211. 		res3_0 = 0;

  1212. 		res4_0 = 0;

  1213. 		res5_0 = 0;

  1214. 		res6_0 = 0;

  1215. 		res7_0 = 0;

  1216. 

  1217. 		res0_1 = 0;

  1218. 		res1_1 = 0;

  1219. 		res2_1 = 0;

  1220. 		res3_1 = 0;

  1221. 		res4_1 = 0;

  1222. 		res5_1 = 0;

  1223. 		res6_1 = 0;

  1224. 		res7_1 = 0;

  1225. 

  1226. 		res0_2 = 0;

  1227. 		res1_2 = 0;

  1228. 		res2_2 = 0;

  1229. 		res3_2 = 0;

  1230. 		res4_2 = 0;

  1231. 		res5_2 = 0;

  1232. 		res6_2 = 0;

  1233. 		res7_2 = 0;

  1234. 

  1235. 		res0_3 = 0;

  1236. 		res1_3 = 0;

  1237. 		res2_3 = 0;

  1238. 		res3_3 = 0;

  1239. 		res4_3 = 0;

  1240. 		res5_3 = 0;

  1241. 		res6_3 = 0;

  1242. 		res7_3 = 0;

  1243. 

  1244. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  1245. 		temp = bk-off;

  1246. #elif defined(LEFT)

  1247. 		temp = off+4;	// number of values in A

  1248. #else

  1249. 		temp = off+8;	// number of values in B

  1250. #endif

  1251. 

  1252. 		for (k=0; k<temp; k++)

  1253.                 {

  1254. 			b0 = ptrbb[0];

  1255. 			b1 = ptrbb[1];

  1256. 			b2 = ptrbb[2];

  1257. 			b3 = ptrbb[3];

  1258. 			b4 = ptrbb[4];

  1259. 			b5 = ptrbb[5];

  1260. 			b6 = ptrbb[6];

  1261. 			b7 = ptrbb[7];

  1262. 

  1263. 			a0 = ptrba[0];

  1264. 			res0_0 += a0*b0;

  1265. 			res1_0 += a0*b1;

  1266. 			res2_0 += a0*b2;

  1267. 			res3_0 += a0*b3;

  1268. 			res4_0 += a0*b4;

  1269. 			res5_0 += a0*b5;

  1270. 			res6_0 += a0*b6;

  1271. 			res7_0 += a0*b7;

  1272. 

  1273. 			a1 = ptrba[1];

  1274. 			res0_1 += a1*b0;

  1275. 			res1_1 += a1*b1;

  1276. 			res2_1 += a1*b2;

  1277. 			res3_1 += a1*b3;

  1278. 			res4_1 += a1*b4;

  1279. 			res5_1 += a1*b5;

  1280. 			res6_1 += a1*b6;

  1281. 			res7_1 += a1*b7;

  1282. 

  1283. 			a0 = ptrba[2];

  1284. 			res0_2 += a0*b0;

  1285. 			res1_2 += a0*b1;

  1286. 			res2_2 += a0*b2;

  1287. 			res3_2 += a0*b3;

  1288. 			res4_2 += a0*b4;

  1289. 			res5_2 += a0*b5;

  1290. 			res6_2 += a0*b6;

  1291. 			res7_2 += a0*b7;

  1292. 

  1293. 			a1 = ptrba[3];

  1294. 			res0_3 += a1*b0;

  1295. 			res1_3 += a1*b1;

  1296. 			res2_3 += a1*b2;

  1297. 			res3_3 += a1*b3;

  1298. 			res4_3 += a1*b4;

  1299. 			res5_3 += a1*b5;

  1300. 			res6_3 += a1*b6;

  1301. 			res7_3 += a1*b7;

  1302. 

  1303. 			ptrba = ptrba+4;

  1304. 			ptrbb = ptrbb+8;

  1305.                 }

  1306. 

  1307. 		res0_0 *= alpha;

  1308. 		res0_1 *= alpha;

  1309. 		res0_2 *= alpha;

  1310. 		res0_3 *= alpha;

  1311. 

  1312. 		res1_0 *= alpha;

  1313. 		res1_1 *= alpha;

  1314. 		res1_2 *= alpha;

  1315. 		res1_3 *= alpha;

  1316. 		

  1317. 		res2_0 *= alpha;

  1318. 		res2_1 *= alpha;

  1319. 		res2_2 *= alpha;

  1320. 		res2_3 *= alpha;

  1321. 

  1322. 		res3_0 *= alpha;

  1323. 		res3_1 *= alpha;

  1324. 		res3_2 *= alpha;

  1325. 		res3_3 *= alpha;

  1326. 

  1327. 		res4_0 *= alpha;

  1328. 		res4_1 *= alpha;

  1329. 		res4_2 *= alpha;

  1330. 		res4_3 *= alpha;

  1331. 

  1332. 		res5_0 *= alpha;

  1333. 		res5_1 *= alpha;

  1334. 		res5_2 *= alpha;

  1335. 		res5_3 *= alpha;

  1336. 		

  1337. 		res6_0 *= alpha;

  1338. 		res6_1 *= alpha;

  1339. 		res6_2 *= alpha;

  1340. 		res6_3 *= alpha;

  1341. 

  1342. 		res7_0 *= alpha;

  1343. 		res7_1 *= alpha;

  1344. 		res7_2 *= alpha;

  1345. 		res7_3 *= alpha;

  1346. 

  1347. 		C0[0] = res0_0;

  1348. 		C0[1] = res0_1;

  1349. 		C0[2] = res0_2;

  1350. 		C0[3] = res0_3;

  1351. 

  1352. 		C1[0] = res1_0;

  1353. 		C1[1] = res1_1;

  1354. 		C1[2] = res1_2;

  1355. 		C1[3] = res1_3;

  1356. 

  1357. 		C2[0] = res2_0;

  1358. 		C2[1] = res2_1;

  1359. 		C2[2] = res2_2;

  1360. 		C2[3] = res2_3;

  1361. 

  1362. 		C3[0] = res3_0;

  1363. 		C3[1] = res3_1;

  1364. 		C3[2] = res3_2;

  1365. 		C3[3] = res3_3;

  1366. 

  1367. 		C4[0] = res4_0;

  1368. 		C4[1] = res4_1;

  1369. 		C4[2] = res4_2;

  1370. 		C4[3] = res4_3;

  1371. 

  1372. 		C5[0] = res5_0;

  1373. 		C5[1] = res5_1;

  1374. 		C5[2] = res5_2;

  1375. 		C5[3] = res5_3;

  1376. 

  1377. 		C6[0] = res6_0;

  1378. 		C6[1] = res6_1;

  1379. 		C6[2] = res6_2;

  1380. 		C6[3] = res6_3;

  1381. 

  1382. 		C7[0] = res7_0;

  1383. 		C7[1] = res7_1;

  1384. 		C7[2] = res7_2;

  1385. 		C7[3] = res7_3;

  1386. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1387. 		temp = bk - off;

  1388. #ifdef LEFT

  1389. 		temp -= 4; // number of values in A

  1390. #else

  1391. 		temp -= 8; // number of values in B

  1392. #endif

  1393. 		ptrba += temp*4;

  1394. 		ptrbb += temp*8;

  1395. #endif

  1396. 

  1397. #ifdef LEFT

  1398. 		off += 4; // number of values in A

  1399. #endif

  1400. 

  1401. 		C0 = C0+4;

  1402. 		C1 = C1+4;

  1403. 		C2 = C2+4;

  1404. 		C3 = C3+4;

  1405. 		C4 = C4+4;

  1406. 		C5 = C5+4;

  1407. 		C6 = C6+4;

  1408. 		C7 = C7+4;

  1409. 	}

  1410. 

  1411. 	if ( bm & 2 )

  1412. 	{

  1413. 

  1414. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1415. 		ptrbb = bb;

  1416. #else

  1417. 		ptrba += off*2;

  1418. 		ptrbb = bb + off*8;

  1419. #endif

  1420. 

  1421. 		res0_0 = 0;

  1422. 		res0_1 = 0;

  1423. 

  1424. 		res1_0 = 0;

  1425. 		res1_1 = 0;

  1426. 		

  1427. 		res2_0 = 0;

  1428. 		res2_1 = 0;

  1429. 

  1430. 		res3_0 = 0;

  1431. 		res3_1 = 0;

  1432. 

  1433. 		res4_0 = 0;

  1434. 		res4_1 = 0;

  1435. 

  1436. 		res5_0 = 0;

  1437. 		res5_1 = 0;

  1438. 		

  1439. 		res6_0 = 0;

  1440. 		res6_1 = 0;

  1441. 

  1442. 		res7_0 = 0;

  1443. 		res7_1 = 0;

  1444. 

  1445. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  1446. 		temp = bk-off;

  1447. #elif defined(LEFT)

  1448. 		temp = off+2;	// number of values in A

  1449. #else

  1450. 		temp = off+8;	// number of values in B

  1451. #endif

  1452. 

  1453. 		for (k=0; k<temp; k++)

  1454.                 {

  1455. 			b0 = ptrbb[0];

  1456. 			b1 = ptrbb[1];

  1457. 			b2 = ptrbb[2];

  1458. 			b3 = ptrbb[3];

  1459. 			b4 = ptrbb[4];

  1460. 			b5 = ptrbb[5];

  1461. 			b6 = ptrbb[6];

  1462. 			b7 = ptrbb[7];

  1463. 

  1464. 			a0 = ptrba[0];

  1465. 			res0_0 += a0*b0;

  1466. 			res1_0 += a0*b1;

  1467. 			res2_0 += a0*b2;

  1468. 			res3_0 += a0*b3;

  1469. 			res4_0 += a0*b4;

  1470. 			res5_0 += a0*b5;

  1471. 			res6_0 += a0*b6;

  1472. 			res7_0 += a0*b7;

  1473. 

  1474. 			a1 = ptrba[1];

  1475. 			res0_1 += a1*b0;

  1476. 			res1_1 += a1*b1;

  1477. 			res2_1 += a1*b2;

  1478. 			res3_1 += a1*b3;

  1479. 			res4_1 += a1*b4;

  1480. 			res5_1 += a1*b5;

  1481. 			res6_1 += a1*b6;

  1482. 			res7_1 += a1*b7;

  1483. 

  1484. 			ptrba = ptrba+2;

  1485. 			ptrbb = ptrbb+8;

  1486.                 }

  1487. 

  1488. 		res0_0 *= alpha;

  1489. 		res0_1 *= alpha;

  1490. 

  1491. 		res1_0 *= alpha;

  1492. 		res1_1 *= alpha;

  1493. 		

  1494. 		res2_0 *= alpha;

  1495. 		res2_1 *= alpha;

  1496. 

  1497. 		res3_0 *= alpha;

  1498. 		res3_1 *= alpha;

  1499. 

  1500. 		res4_0 *= alpha;

  1501. 		res4_1 *= alpha;

  1502. 

  1503. 		res5_0 *= alpha;

  1504. 		res5_1 *= alpha;

  1505. 		

  1506. 		res6_0 *= alpha;

  1507. 		res6_1 *= alpha;

  1508. 

  1509. 		res7_0 *= alpha;

  1510. 		res7_1 *= alpha;

  1511. 

  1512. 		C0[0] = res0_0;

  1513. 		C0[1] = res0_1;

  1514. 

  1515. 		C1[0] = res1_0;

  1516. 		C1[1] = res1_1;

  1517. 

  1518. 		C2[0] = res2_0;

  1519. 		C2[1] = res2_1;

  1520. 

  1521. 		C3[0] = res3_0;

  1522. 		C3[1] = res3_1;

  1523. 

  1524. 		C4[0] = res4_0;

  1525. 		C4[1] = res4_1;

  1526. 

  1527. 		C5[0] = res5_0;

  1528. 		C5[1] = res5_1;

  1529. 

  1530. 		C6[0] = res6_0;

  1531. 		C6[1] = res6_1;

  1532. 

  1533. 		C7[0] = res7_0;

  1534. 		C7[1] = res7_1;

  1535. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1536. 		temp = bk - off;

  1537. #ifdef LEFT

  1538. 		temp -= 2; // number of values in A

  1539. #else

  1540. 		temp -= 8; // number of values in B

  1541. #endif

  1542. 		ptrba += temp*2;

  1543. 		ptrbb += temp*8;

  1544. #endif

  1545. 

  1546. #ifdef LEFT

  1547. 		off += 2; // number of values in A

  1548. #endif

  1549. 

  1550. 		C0 = C0+2;

  1551. 		C1 = C1+2;

  1552. 		C2 = C2+2;

  1553. 		C3 = C3+2;

  1554. 		C4 = C4+2;

  1555. 		C5 = C5+2;

  1556. 		C6 = C6+2;

  1557. 		C7 = C7+2;

  1558. 	}

  1559. 	

  1560. 	if ( bm & 1 )

  1561. 	{

  1562. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1563. 		ptrbb = bb;

  1564. #else

  1565. 		ptrba += off*1;

  1566. 		ptrbb = bb + off*8;

  1567. #endif

  1568. 

  1569. 		res0_0 = 0;

  1570. 		res1_0 = 0;

  1571. 		res2_0 = 0;

  1572. 		res3_0 = 0;

  1573. 		res4_0 = 0;

  1574. 		res5_0 = 0;

  1575. 		res6_0 = 0;

  1576. 		res7_0 = 0;

  1577. 

  1578. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  1579. 		temp = bk-off;

  1580. #elif defined(LEFT)

  1581. 		temp = off+1;	// number of values in A

  1582. #else

  1583. 		temp = off+8;	// number of values in B

  1584. #endif

  1585. 

  1586. 		for (k=0; k<temp; k++)

  1587.                 {

  1588. 			b0 = ptrbb[0];

  1589. 			b1 = ptrbb[1];

  1590. 			b2 = ptrbb[2];

  1591. 			b3 = ptrbb[3];

  1592. 			b4 = ptrbb[4];

  1593. 			b5 = ptrbb[5];

  1594. 			b6 = ptrbb[6];

  1595. 			b7 = ptrbb[7];

  1596. 

  1597. 			a0 = ptrba[0];

  1598. 			res0_0 += a0*b0;

  1599. 			res1_0 += a0*b1;

  1600. 			res2_0 += a0*b2;

  1601. 			res3_0 += a0*b3;

  1602. 			res4_0 += a0*b4;

  1603. 			res5_0 += a0*b5;

  1604. 			res6_0 += a0*b6;

  1605. 			res7_0 += a0*b7;

  1606. 

  1607. 			ptrba = ptrba+1;

  1608. 			ptrbb = ptrbb+8;

  1609.                 }

  1610. 

  1611. 		res0_0 *= alpha;

  1612. 

  1613. 		res1_0 *= alpha;

  1614. 		

  1615. 		res2_0 *= alpha;

  1616. 

  1617. 		res3_0 *= alpha;

  1618. 

  1619. 		res4_0 *= alpha;

  1620. 

  1621. 		res5_0 *= alpha;

  1622. 		

  1623. 		res6_0 *= alpha;

  1624. 

  1625. 		res7_0 *= alpha;

  1626. 

  1627. 		C0[0] = res0_0;

  1628. 

  1629. 		C1[0] = res1_0;

  1630. 

  1631. 		C2[0] = res2_0;

  1632. 

  1633. 		C3[0] = res3_0;

  1634. 

  1635. 		C4[0] = res4_0;

  1636. 

  1637. 		C5[0] = res5_0;

  1638. 

  1639. 		C6[0] = res6_0;

  1640. 

  1641. 		C7[0] = res7_0;

  1642. 

  1643. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1644. 		temp = bk - off;

  1645. #ifdef LEFT

  1646. 		temp -= 1; // number of values in A

  1647. #else

  1648. 		temp -= 8; // number of values in B

  1649. #endif

  1650. 		ptrba += temp*1;

  1651. 		ptrbb += temp*8;

  1652. #endif

  1653. 

  1654. #ifdef LEFT

  1655. 		off += 1; // number of values in A

  1656. #endif

  1657. 

  1658. 		C0 = C0+1;

  1659. 		C1 = C1+1;

  1660. 		C2 = C2+1;

  1661. 		C3 = C3+1;

  1662. 		C4 = C4+1;

  1663. 		C5 = C5+1;

  1664. 		C6 = C6+1;

  1665. 		C7 = C7+1;

  1666. 	}

  1667. 

  1668. 

  1669. #if defined(TRMMKERNEL) && !defined(LEFT)

  1670. 		off += 8;

  1671. #endif

  1672. 

  1673.         k = (bk<<3);

  1674.         bb = bb+k;

  1675.         i = (ldc<<3);

  1676.         C = C+i;

  1677.     }

  1678. 

  1679. 

  1680.    if( bn & 4 )

  1681.    {

  1682.         C0 = C;

  1683.         C1 = C0+ldc;

  1684.         C2 = C0+2*ldc;

  1685.         C3 = C0+3*ldc;

  1686. 

  1687. #if defined(TRMMKERNEL) && defined(LEFT)

  1688. 	off = offset;

  1689. #endif

  1690. 

  1691. 

  1692.         ptrba = ba;

  1693. 

  1694. 

  1695.         for (i=0; i<bm/16; i+=1)

  1696.         {

  1697. 

  1698. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  1699. 		ptrbb = bb;

  1700. #else

  1701. 		ptrba += off*16;

  1702. 		ptrbb = bb + off*4;

  1703. #endif

  1704. 

  1705. 		res0_0 = 0;

  1706. 		res0_1 = 0;

  1707. 		res0_2 = 0;

  1708. 		res0_3 = 0;

  1709. 		res0_4 = 0;

  1710. 		res0_5 = 0;

  1711. 		res0_6 = 0;

  1712. 		res0_7 = 0;

  1713. 

  1714. 		res0_8  = 0;

  1715. 		res0_9  = 0;

  1716. 		res0_10 = 0;

  1717. 		res0_11 = 0;

  1718. 		res0_12 = 0;

  1719. 		res0_13 = 0;

  1720. 		res0_14 = 0;

  1721. 		res0_15 = 0;

  1722. 

  1723. 		res1_0 = 0;

  1724. 		res1_1 = 0;

  1725. 		res1_2 = 0;

  1726. 		res1_3 = 0;

  1727. 		res1_4 = 0;

  1728. 		res1_5 = 0;

  1729. 		res1_6 = 0;

  1730. 		res1_7 = 0;

  1731. 

  1732. 		res1_8  = 0;

  1733. 		res1_9  = 0;

  1734. 		res1_10 = 0;

  1735. 		res1_11 = 0;

  1736. 		res1_12 = 0;

  1737. 		res1_13 = 0;

  1738. 		res1_14 = 0;

  1739. 		res1_15 = 0;

  1740. 

  1741. 		res2_0 = 0;

  1742. 		res2_1 = 0;

  1743. 		res2_2 = 0;

  1744. 		res2_3 = 0;

  1745. 		res2_4 = 0;

  1746. 		res2_5 = 0;

  1747. 		res2_6 = 0;

  1748. 		res2_7 = 0;

  1749. 

  1750. 		res2_8  = 0;

  1751. 		res2_9  = 0;

  1752. 		res2_10 = 0;

  1753. 		res2_11 = 0;

  1754. 		res2_12 = 0;

  1755. 		res2_13 = 0;

  1756. 		res2_14 = 0;

  1757. 		res2_15 = 0;

  1758. 

  1759. 		res3_0 = 0;

  1760. 		res3_1 = 0;

  1761. 		res3_2 = 0;

  1762. 		res3_3 = 0;

  1763. 		res3_4 = 0;

  1764. 		res3_5 = 0;

  1765. 		res3_6 = 0;

  1766. 		res3_7 = 0;

  1767. 

  1768. 		res3_8  = 0;

  1769. 		res3_9  = 0;

  1770. 		res3_10 = 0;

  1771. 		res3_11 = 0;

  1772. 		res3_12 = 0;

  1773. 		res3_13 = 0;

  1774. 		res3_14 = 0;

  1775. 		res3_15 = 0;

  1776. 

  1777. 

  1778. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  1779. 		temp = bk-off;

  1780. #elif defined(LEFT)

  1781. 		temp = off+16;	// number of values in A

  1782. #else

  1783. 		temp = off+4;	// number of values in B

  1784. #endif

  1785. 

  1786. 		for (k=0; k<temp; k++)

  1787.                 {

  1788. 			b0 = ptrbb[0];

  1789. 			b1 = ptrbb[1];

  1790. 			b2 = ptrbb[2];

  1791. 			b3 = ptrbb[3];

  1792. 

  1793. 			a0 = ptrba[0];

  1794. 			res0_0 += a0*b0;

  1795. 			res1_0 += a0*b1;

  1796. 			res2_0 += a0*b2;

  1797. 			res3_0 += a0*b3;

  1798. 

  1799. 			a1 = ptrba[1];

  1800. 			res0_1 += a1*b0;

  1801. 			res1_1 += a1*b1;

  1802. 			res2_1 += a1*b2;

  1803. 			res3_1 += a1*b3;

  1804. 

  1805. 			a0 = ptrba[2];

  1806. 			res0_2 += a0*b0;

  1807. 			res1_2 += a0*b1;

  1808. 			res2_2 += a0*b2;

  1809. 			res3_2 += a0*b3;

  1810. 

  1811. 			a1 = ptrba[3];

  1812. 			res0_3 += a1*b0;

  1813. 			res1_3 += a1*b1;

  1814. 			res2_3 += a1*b2;

  1815. 			res3_3 += a1*b3;

  1816. 

  1817. 			a0 = ptrba[4];

  1818. 			res0_4 += a0*b0;

  1819. 			res1_4 += a0*b1;

  1820. 			res2_4 += a0*b2;

  1821. 			res3_4 += a0*b3;

  1822. 

  1823. 			a1 = ptrba[5];

  1824. 			res0_5 += a1*b0;

  1825. 			res1_5 += a1*b1;

  1826. 			res2_5 += a1*b2;

  1827. 			res3_5 += a1*b3;

  1828. 

  1829. 			a0 = ptrba[6];

  1830. 			res0_6 += a0*b0;

  1831. 			res1_6 += a0*b1;

  1832. 			res2_6 += a0*b2;

  1833. 			res3_6 += a0*b3;

  1834. 

  1835. 			a1 = ptrba[7];

  1836. 			res0_7 += a1*b0;

  1837. 			res1_7 += a1*b1;

  1838. 			res2_7 += a1*b2;

  1839. 			res3_7 += a1*b3;

  1840. 

  1841. 			a0 = ptrba[8];

  1842. 			res0_8 += a0*b0;

  1843. 			res1_8 += a0*b1;

  1844. 			res2_8 += a0*b2;

  1845. 			res3_8 += a0*b3;

  1846. 

  1847. 			a1 = ptrba[9];

  1848. 			res0_9 += a1*b0;

  1849. 			res1_9 += a1*b1;

  1850. 			res2_9 += a1*b2;

  1851. 			res3_9 += a1*b3;

  1852. 

  1853. 			a0 = ptrba[10];

  1854. 			res0_10 += a0*b0;

  1855. 			res1_10 += a0*b1;

  1856. 			res2_10 += a0*b2;

  1857. 			res3_10 += a0*b3;

  1858. 

  1859. 			a1 = ptrba[11];

  1860. 			res0_11 += a1*b0;

  1861. 			res1_11 += a1*b1;

  1862. 			res2_11 += a1*b2;

  1863. 			res3_11 += a1*b3;

  1864. 

  1865. 			a0 = ptrba[12];

  1866. 			res0_12 += a0*b0;

  1867. 			res1_12 += a0*b1;

  1868. 			res2_12 += a0*b2;

  1869. 			res3_12 += a0*b3;

  1870. 

  1871. 			a1 = ptrba[13];

  1872. 			res0_13 += a1*b0;

  1873. 			res1_13 += a1*b1;

  1874. 			res2_13 += a1*b2;

  1875. 			res3_13 += a1*b3;

  1876. 

  1877. 			a0 = ptrba[14];

  1878. 			res0_14 += a0*b0;

  1879. 			res1_14 += a0*b1;

  1880. 			res2_14 += a0*b2;

  1881. 			res3_14 += a0*b3;

  1882. 

  1883. 			a1 = ptrba[15];

  1884. 			res0_15 += a1*b0;

  1885. 			res1_15 += a1*b1;

  1886. 			res2_15 += a1*b2;

  1887. 			res3_15 += a1*b3;

  1888. 

  1889. 

  1890. 			ptrba = ptrba+16;

  1891. 			ptrbb = ptrbb+4;

  1892.                 }

  1893. 

  1894. 		res0_0 *= alpha;

  1895. 		res0_1 *= alpha;

  1896. 		res0_2 *= alpha;

  1897. 		res0_3 *= alpha;

  1898. 		res0_4 *= alpha;

  1899. 		res0_5 *= alpha;

  1900. 		res0_6 *= alpha;

  1901. 		res0_7 *= alpha;

  1902. 

  1903. 		res0_8  *= alpha;

  1904. 		res0_9  *= alpha;

  1905. 		res0_10 *= alpha;

  1906. 		res0_11 *= alpha;

  1907. 		res0_12 *= alpha;

  1908. 		res0_13 *= alpha;

  1909. 		res0_14 *= alpha;

  1910. 		res0_15 *= alpha;

  1911. 

  1912. 		res1_0 *= alpha;

  1913. 		res1_1 *= alpha;

  1914. 		res1_2 *= alpha;

  1915. 		res1_3 *= alpha;

  1916. 		res1_4 *= alpha;

  1917. 		res1_5 *= alpha;

  1918. 		res1_6 *= alpha;

  1919. 		res1_7 *= alpha;

  1920. 

  1921. 		res1_8  *= alpha;

  1922. 		res1_9  *= alpha;

  1923. 		res1_10 *= alpha;

  1924. 		res1_11 *= alpha;

  1925. 		res1_12 *= alpha;

  1926. 		res1_13 *= alpha;

  1927. 		res1_14 *= alpha;

  1928. 		res1_15 *= alpha;

  1929. 		

  1930. 		res2_0 *= alpha;

  1931. 		res2_1 *= alpha;

  1932. 		res2_2 *= alpha;

  1933. 		res2_3 *= alpha;

  1934. 		res2_4 *= alpha;

  1935. 		res2_5 *= alpha;

  1936. 		res2_6 *= alpha;

  1937. 		res2_7 *= alpha;

  1938. 

  1939. 		res2_8  *= alpha;

  1940. 		res2_9  *= alpha;

  1941. 		res2_10 *= alpha;

  1942. 		res2_11 *= alpha;

  1943. 		res2_12 *= alpha;

  1944. 		res2_13 *= alpha;

  1945. 		res2_14 *= alpha;

  1946. 		res2_15 *= alpha;

  1947. 

  1948. 		res3_0 *= alpha;

  1949. 		res3_1 *= alpha;

  1950. 		res3_2 *= alpha;

  1951. 		res3_3 *= alpha;

  1952. 		res3_4 *= alpha;

  1953. 		res3_5 *= alpha;

  1954. 		res3_6 *= alpha;

  1955. 		res3_7 *= alpha;

  1956. 

  1957. 		res3_8  *= alpha;

  1958. 		res3_9  *= alpha;

  1959. 		res3_10 *= alpha;

  1960. 		res3_11 *= alpha;

  1961. 		res3_12 *= alpha;

  1962. 		res3_13 *= alpha;

  1963. 		res3_14 *= alpha;

  1964. 		res3_15 *= alpha;

  1965. 

  1966. 		C0[0] = res0_0;

  1967. 		C0[1] = res0_1;

  1968. 		C0[2] = res0_2;

  1969. 		C0[3] = res0_3;

  1970. 		C0[4] = res0_4;

  1971. 		C0[5] = res0_5;

  1972. 		C0[6] = res0_6;

  1973. 		C0[7] = res0_7;

  1974. 

  1975. 		C0[8]  = res0_8;

  1976. 		C0[9]  = res0_9;

  1977. 		C0[10] = res0_10;

  1978. 		C0[11] = res0_11;

  1979. 		C0[12] = res0_12;

  1980. 		C0[13] = res0_13;

  1981. 		C0[14] = res0_14;

  1982. 		C0[15] = res0_15;

  1983. 

  1984. 		C1[0] = res1_0;

  1985. 		C1[1] = res1_1;

  1986. 		C1[2] = res1_2;

  1987. 		C1[3] = res1_3;

  1988. 		C1[4] = res1_4;

  1989. 		C1[5] = res1_5;

  1990. 		C1[6] = res1_6;

  1991. 		C1[7] = res1_7;

  1992. 

  1993. 		C1[8]  = res1_8;

  1994. 		C1[9]  = res1_9;

  1995. 		C1[10] = res1_10;

  1996. 		C1[11] = res1_11;

  1997. 		C1[12] = res1_12;

  1998. 		C1[13] = res1_13;

  1999. 		C1[14] = res1_14;

  2000. 		C1[15] = res1_15;

  2001. 

  2002. 		C2[0] = res2_0;

  2003. 		C2[1] = res2_1;

  2004. 		C2[2] = res2_2;

  2005. 		C2[3] = res2_3;

  2006. 		C2[4] = res2_4;

  2007. 		C2[5] = res2_5;

  2008. 		C2[6] = res2_6;

  2009. 		C2[7] = res2_7;

  2010. 

  2011. 		C2[8]  = res2_8;

  2012. 		C2[9]  = res2_9;

  2013. 		C2[10] = res2_10;

  2014. 		C2[11] = res2_11;

  2015. 		C2[12] = res2_12;

  2016. 		C2[13] = res2_13;

  2017. 		C2[14] = res2_14;

  2018. 		C2[15] = res2_15;

  2019. 

  2020. 		C3[0] = res3_0;

  2021. 		C3[1] = res3_1;

  2022. 		C3[2] = res3_2;

  2023. 		C3[3] = res3_3;

  2024. 		C3[4] = res3_4;

  2025. 		C3[5] = res3_5;

  2026. 		C3[6] = res3_6;

  2027. 		C3[7] = res3_7;

  2028. 

  2029. 		C3[8]  = res3_8;

  2030. 		C3[9]  = res3_9;

  2031. 		C3[10] = res3_10;

  2032. 		C3[11] = res3_11;

  2033. 		C3[12] = res3_12;

  2034. 		C3[13] = res3_13;

  2035. 		C3[14] = res3_14;

  2036. 		C3[15] = res3_15;

  2037. 

  2038. 

  2039. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2040. 		temp = bk - off;

  2041. #ifdef LEFT

  2042. 		temp -= 16; // number of values in A

  2043. #else

  2044. 		temp -= 4; // number of values in B

  2045. #endif

  2046. 		ptrba += temp*16;

  2047. 		ptrbb += temp*4;

  2048. #endif

  2049. 

  2050. #ifdef LEFT

  2051. 		off += 16; // number of values in A

  2052. #endif

  2053. 

  2054. 		C0 = C0+16;

  2055. 		C1 = C1+16;

  2056. 		C2 = C2+16;

  2057. 		C3 = C3+16;

  2058. 	}

  2059. 

  2060. 

  2061.         if ( bm & 8)

  2062.         {

  2063. 

  2064. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2065. 		ptrbb = bb;

  2066. #else

  2067. 		ptrba += off*8;

  2068. 		ptrbb = bb + off*4;

  2069. #endif

  2070. 

  2071. 		res0_0 = 0;

  2072. 		res0_1 = 0;

  2073. 		res0_2 = 0;

  2074. 		res0_3 = 0;

  2075. 		res0_4 = 0;

  2076. 		res0_5 = 0;

  2077. 		res0_6 = 0;

  2078. 		res0_7 = 0;

  2079. 

  2080. 		res1_0 = 0;

  2081. 		res1_1 = 0;

  2082. 		res1_2 = 0;

  2083. 		res1_3 = 0;

  2084. 		res1_4 = 0;

  2085. 		res1_5 = 0;

  2086. 		res1_6 = 0;

  2087. 		res1_7 = 0;

  2088. 

  2089. 		res2_0 = 0;

  2090. 		res2_1 = 0;

  2091. 		res2_2 = 0;

  2092. 		res2_3 = 0;

  2093. 		res2_4 = 0;

  2094. 		res2_5 = 0;

  2095. 		res2_6 = 0;

  2096. 		res2_7 = 0;

  2097. 

  2098. 		res3_0 = 0;

  2099. 		res3_1 = 0;

  2100. 		res3_2 = 0;

  2101. 		res3_3 = 0;

  2102. 		res3_4 = 0;

  2103. 		res3_5 = 0;

  2104. 		res3_6 = 0;

  2105. 		res3_7 = 0;

  2106. 

  2107. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2108. 		temp = bk-off;

  2109. #elif defined(LEFT)

  2110. 		temp = off+8;	// number of values in A

  2111. #else

  2112. 		temp = off+4;	// number of values in B

  2113. #endif

  2114. 

  2115. 		for (k=0; k<temp; k++)

  2116.                 {

  2117. 			b0 = ptrbb[0];

  2118. 			b1 = ptrbb[1];

  2119. 			b2 = ptrbb[2];

  2120. 			b3 = ptrbb[3];

  2121. 

  2122. 			a0 = ptrba[0];

  2123. 			res0_0 += a0*b0;

  2124. 			res1_0 += a0*b1;

  2125. 			res2_0 += a0*b2;

  2126. 			res3_0 += a0*b3;

  2127. 

  2128. 			a1 = ptrba[1];

  2129. 			res0_1 += a1*b0;

  2130. 			res1_1 += a1*b1;

  2131. 			res2_1 += a1*b2;

  2132. 			res3_1 += a1*b3;

  2133. 

  2134. 			a0 = ptrba[2];

  2135. 			res0_2 += a0*b0;

  2136. 			res1_2 += a0*b1;

  2137. 			res2_2 += a0*b2;

  2138. 			res3_2 += a0*b3;

  2139. 

  2140. 			a1 = ptrba[3];

  2141. 			res0_3 += a1*b0;

  2142. 			res1_3 += a1*b1;

  2143. 			res2_3 += a1*b2;

  2144. 			res3_3 += a1*b3;

  2145. 

  2146. 			a0 = ptrba[4];

  2147. 			res0_4 += a0*b0;

  2148. 			res1_4 += a0*b1;

  2149. 			res2_4 += a0*b2;

  2150. 			res3_4 += a0*b3;

  2151. 

  2152. 			a1 = ptrba[5];

  2153. 			res0_5 += a1*b0;

  2154. 			res1_5 += a1*b1;

  2155. 			res2_5 += a1*b2;

  2156. 			res3_5 += a1*b3;

  2157. 

  2158. 			a0 = ptrba[6];

  2159. 			res0_6 += a0*b0;

  2160. 			res1_6 += a0*b1;

  2161. 			res2_6 += a0*b2;

  2162. 			res3_6 += a0*b3;

  2163. 

  2164. 			a1 = ptrba[7];

  2165. 			res0_7 += a1*b0;

  2166. 			res1_7 += a1*b1;

  2167. 			res2_7 += a1*b2;

  2168. 			res3_7 += a1*b3;

  2169. 

  2170. 			ptrba = ptrba+8;

  2171. 			ptrbb = ptrbb+4;

  2172. 

  2173.                 }

  2174. 

  2175. 		res0_0 *= alpha;

  2176. 		res0_1 *= alpha;

  2177. 		res0_2 *= alpha;

  2178. 		res0_3 *= alpha;

  2179. 		res0_4 *= alpha;

  2180. 		res0_5 *= alpha;

  2181. 		res0_6 *= alpha;

  2182. 		res0_7 *= alpha;

  2183. 

  2184. 		res1_0 *= alpha;

  2185. 		res1_1 *= alpha;

  2186. 		res1_2 *= alpha;

  2187. 		res1_3 *= alpha;

  2188. 		res1_4 *= alpha;

  2189. 		res1_5 *= alpha;

  2190. 		res1_6 *= alpha;

  2191. 		res1_7 *= alpha;

  2192. 

  2193. 		res2_0 *= alpha;

  2194. 		res2_1 *= alpha;

  2195. 		res2_2 *= alpha;

  2196. 		res2_3 *= alpha;

  2197. 		res2_4 *= alpha;

  2198. 		res2_5 *= alpha;

  2199. 		res2_6 *= alpha;

  2200. 		res2_7 *= alpha;

  2201. 

  2202. 		res3_0 *= alpha;

  2203. 		res3_1 *= alpha;

  2204. 		res3_2 *= alpha;

  2205. 		res3_3 *= alpha;

  2206. 		res3_4 *= alpha;

  2207. 		res3_5 *= alpha;

  2208. 		res3_6 *= alpha;

  2209. 		res3_7 *= alpha;

  2210. 

  2211. 		C0[0] = res0_0;

  2212. 		C0[1] = res0_1;

  2213. 		C0[2] = res0_2;

  2214. 		C0[3] = res0_3;

  2215. 		C0[4] = res0_4;

  2216. 		C0[5] = res0_5;

  2217. 		C0[6] = res0_6;

  2218. 		C0[7] = res0_7;

  2219. 

  2220. 		C1[0] = res1_0;

  2221. 		C1[1] = res1_1;

  2222. 		C1[2] = res1_2;

  2223. 		C1[3] = res1_3;

  2224. 		C1[4] = res1_4;

  2225. 		C1[5] = res1_5;

  2226. 		C1[6] = res1_6;

  2227. 		C1[7] = res1_7;

  2228. 

  2229. 		C2[0] = res2_0;

  2230. 		C2[1] = res2_1;

  2231. 		C2[2] = res2_2;

  2232. 		C2[3] = res2_3;

  2233. 		C2[4] = res2_4;

  2234. 		C2[5] = res2_5;

  2235. 		C2[6] = res2_6;

  2236. 		C2[7] = res2_7;

  2237. 

  2238. 		C3[0] = res3_0;

  2239. 		C3[1] = res3_1;

  2240. 		C3[2] = res3_2;

  2241. 		C3[3] = res3_3;

  2242. 		C3[4] = res3_4;

  2243. 		C3[5] = res3_5;

  2244. 		C3[6] = res3_6;

  2245. 		C3[7] = res3_7;

  2246. 

  2247. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2248. 		temp = bk - off;

  2249. #ifdef LEFT

  2250. 		temp -= 8; // number of values in A

  2251. #else

  2252. 		temp -= 4; // number of values in B

  2253. #endif

  2254. 		ptrba += temp*8;

  2255. 		ptrbb += temp*4;

  2256. #endif

  2257. 

  2258. #ifdef LEFT

  2259. 		off += 8; // number of values in A

  2260. #endif

  2261. 

  2262. 		C0 = C0+8;

  2263. 		C1 = C1+8;

  2264. 		C2 = C2+8;

  2265. 		C3 = C3+8;

  2266. 	}

  2267. 

  2268. 	if ( bm & 4 )

  2269. 	{

  2270. 

  2271. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2272. 		ptrbb = bb;

  2273. #else

  2274. 		ptrba += off*4;

  2275. 		ptrbb = bb + off*4;

  2276. #endif

  2277. 

  2278. 		res0_0 = 0;

  2279. 		res0_1 = 0;

  2280. 		res0_2 = 0;

  2281. 		res0_3 = 0;

  2282. 

  2283. 		res1_0 = 0;

  2284. 		res1_1 = 0;

  2285. 		res1_2 = 0;

  2286. 		res1_3 = 0;

  2287. 		

  2288. 		res2_0 = 0;

  2289. 		res2_1 = 0;

  2290. 		res2_2 = 0;

  2291. 		res2_3 = 0;

  2292. 

  2293. 		res3_0 = 0;

  2294. 		res3_1 = 0;

  2295. 		res3_2 = 0;

  2296. 		res3_3 = 0;

  2297. 

  2298. 

  2299. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2300. 		temp = bk-off;

  2301. #elif defined(LEFT)

  2302. 		temp = off+4;	// number of values in A

  2303. #else

  2304. 		temp = off+4;	// number of values in B

  2305. #endif

  2306. 

  2307. 		for (k=0; k<temp; k++)

  2308.                 {

  2309. 			b0 = ptrbb[0];

  2310. 			b1 = ptrbb[1];

  2311. 			b2 = ptrbb[2];

  2312. 			b3 = ptrbb[3];

  2313. 

  2314. 			a0 = ptrba[0];

  2315. 			res0_0 += a0*b0;

  2316. 			res1_0 += a0*b1;

  2317. 			res2_0 += a0*b2;

  2318. 			res3_0 += a0*b3;

  2319. 

  2320. 			a1 = ptrba[1];

  2321. 			res0_1 += a1*b0;

  2322. 			res1_1 += a1*b1;

  2323. 			res2_1 += a1*b2;

  2324. 			res3_1 += a1*b3;

  2325. 

  2326. 			a0 = ptrba[2];

  2327. 			res0_2 += a0*b0;

  2328. 			res1_2 += a0*b1;

  2329. 			res2_2 += a0*b2;

  2330. 			res3_2 += a0*b3;

  2331. 

  2332. 			a1 = ptrba[3];

  2333. 			res0_3 += a1*b0;

  2334. 			res1_3 += a1*b1;

  2335. 			res2_3 += a1*b2;

  2336. 			res3_3 += a1*b3;

  2337. 

  2338. 			ptrba = ptrba+4;

  2339. 			ptrbb = ptrbb+4;

  2340.                 }

  2341. 

  2342. 		res0_0 *= alpha;

  2343. 		res0_1 *= alpha;

  2344. 		res0_2 *= alpha;

  2345. 		res0_3 *= alpha;

  2346. 

  2347. 		res1_0 *= alpha;

  2348. 		res1_1 *= alpha;

  2349. 		res1_2 *= alpha;

  2350. 		res1_3 *= alpha;

  2351. 

  2352. 		res2_0 *= alpha;

  2353. 		res2_1 *= alpha;

  2354. 		res2_2 *= alpha;

  2355. 		res2_3 *= alpha;

  2356. 

  2357. 		res3_0 *= alpha;

  2358. 		res3_1 *= alpha;

  2359. 		res3_2 *= alpha;

  2360. 		res3_3 *= alpha;

  2361. 

  2362. 		C0[0] = res0_0;

  2363. 		C0[1] = res0_1;

  2364. 		C0[2] = res0_2;

  2365. 		C0[3] = res0_3;

  2366. 

  2367. 		C1[0] = res1_0;

  2368. 		C1[1] = res1_1;

  2369. 		C1[2] = res1_2;

  2370. 		C1[3] = res1_3;

  2371. 

  2372. 

  2373. 		C2[0] = res2_0;

  2374. 		C2[1] = res2_1;

  2375. 		C2[2] = res2_2;

  2376. 		C2[3] = res2_3;

  2377. 

  2378. 		C3[0] = res3_0;

  2379. 		C3[1] = res3_1;

  2380. 		C3[2] = res3_2;

  2381. 		C3[3] = res3_3;

  2382. 

  2383. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2384. 		temp = bk - off;

  2385. #ifdef LEFT

  2386. 		temp -= 4; // number of values in A

  2387. #else

  2388. 		temp -= 4; // number of values in B

  2389. #endif

  2390. 		ptrba += temp*4;

  2391. 		ptrbb += temp*4;

  2392. #endif

  2393. 

  2394. #ifdef LEFT

  2395. 		off += 4; // number of values in A

  2396. #endif

  2397. 

  2398. 		C0 = C0+4;

  2399. 		C1 = C1+4;

  2400. 		C2 = C2+4;

  2401. 		C3 = C3+4;

  2402. 	}

  2403. 

  2404. 	if ( bm & 2 )

  2405. 	{

  2406. 

  2407. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2408. 		ptrbb = bb;

  2409. #else

  2410. 		ptrba += off*2;

  2411. 		ptrbb = bb + off*4;

  2412. #endif

  2413. 

  2414. 		res0_0 = 0;

  2415. 		res0_1 = 0;

  2416. 

  2417. 		res1_0 = 0;

  2418. 		res1_1 = 0;

  2419. 		

  2420. 		res2_0 = 0;

  2421. 		res2_1 = 0;

  2422. 

  2423. 		res3_0 = 0;

  2424. 		res3_1 = 0;

  2425. 

  2426. 

  2427. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2428. 		temp = bk-off;

  2429. #elif defined(LEFT)

  2430. 		temp = off+2;	// number of values in A

  2431. #else

  2432. 		temp = off+4;	// number of values in B

  2433. #endif

  2434. 

  2435. 		for (k=0; k<temp; k++)

  2436.                 {

  2437. 			b0 = ptrbb[0];

  2438. 			b1 = ptrbb[1];

  2439. 			b2 = ptrbb[2];

  2440. 			b3 = ptrbb[3];

  2441. 

  2442. 			a0 = ptrba[0];

  2443. 			res0_0 += a0*b0;

  2444. 			res1_0 += a0*b1;

  2445. 			res2_0 += a0*b2;

  2446. 			res3_0 += a0*b3;

  2447. 

  2448. 			a1 = ptrba[1];

  2449. 			res0_1 += a1*b0;

  2450. 			res1_1 += a1*b1;

  2451. 			res2_1 += a1*b2;

  2452. 			res3_1 += a1*b3;

  2453. 

  2454. 			ptrba = ptrba+2;

  2455. 			ptrbb = ptrbb+4;

  2456.                 }

  2457. 

  2458. 		res0_0 *= alpha;

  2459. 		res0_1 *= alpha;

  2460. 

  2461. 		res1_0 *= alpha;

  2462. 		res1_1 *= alpha;

  2463. 

  2464. 		res2_0 *= alpha;

  2465. 		res2_1 *= alpha;

  2466. 

  2467. 		res3_0 *= alpha;

  2468. 		res3_1 *= alpha;

  2469. 

  2470. 		C0[0] = res0_0;

  2471. 		C0[1] = res0_1;

  2472. 

  2473. 		C1[0] = res1_0;

  2474. 		C1[1] = res1_1;

  2475. 

  2476. 		C2[0] = res2_0;

  2477. 		C2[1] = res2_1;

  2478. 

  2479. 		C3[0] = res3_0;

  2480. 		C3[1] = res3_1;

  2481. 

  2482. 

  2483. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2484. 		temp = bk - off;

  2485. #ifdef LEFT

  2486. 		temp -= 2; // number of values in A

  2487. #else

  2488. 		temp -= 4; // number of values in B

  2489. #endif

  2490. 		ptrba += temp*2;

  2491. 		ptrbb += temp*4;

  2492. #endif

  2493. 

  2494. #ifdef LEFT

  2495. 		off += 2; // number of values in A

  2496. #endif

  2497. 

  2498. 		C0 = C0+2;

  2499. 		C1 = C1+2;

  2500. 		C2 = C2+2;

  2501. 		C3 = C3+2;

  2502. 	}

  2503. 	

  2504. 	if ( bm & 1 )

  2505. 	{

  2506. 

  2507. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2508. 		ptrbb = bb;

  2509. #else

  2510. 		ptrba += off*1;

  2511. 		ptrbb = bb + off*4;

  2512. #endif

  2513. 

  2514. 		res0_0 = 0;

  2515. 		res1_0 = 0;

  2516. 		res2_0 = 0;

  2517. 		res3_0 = 0;

  2518. 

  2519. 

  2520. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2521. 		temp = bk-off;

  2522. #elif defined(LEFT)

  2523. 		temp = off+1;	// number of values in A

  2524. #else

  2525. 		temp = off+4;	// number of values in B

  2526. #endif

  2527. 

  2528. 		for (k=0; k<temp; k++)

  2529.                 {

  2530. 			b0 = ptrbb[0];

  2531. 			b1 = ptrbb[1];

  2532. 			b2 = ptrbb[2];

  2533. 			b3 = ptrbb[3];

  2534. 

  2535. 			a0 = ptrba[0];

  2536. 			res0_0 += a0*b0;

  2537. 			res1_0 += a0*b1;

  2538. 			res2_0 += a0*b2;

  2539. 			res3_0 += a0*b3;

  2540. 

  2541. 			ptrba = ptrba+1;

  2542. 			ptrbb = ptrbb+4;

  2543.                 }

  2544. 		res0_0 *= alpha;

  2545. 		res1_0 *= alpha;

  2546. 		res2_0 *= alpha;

  2547. 		res3_0 *= alpha;

  2548. 

  2549. 		C0[0] = res0_0;

  2550. 		C1[0] = res1_0;

  2551. 		C2[0] = res2_0;

  2552. 		C3[0] = res3_0;

  2553. 

  2554. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2555. 		temp = bk - off;

  2556. #ifdef LEFT

  2557. 		temp -= 1; // number of values in A

  2558. #else

  2559. 		temp -= 4; // number of values in B

  2560. #endif

  2561. 		ptrba += temp*1;

  2562. 		ptrbb += temp*4;

  2563. #endif

  2564. 

  2565. #ifdef LEFT

  2566. 		off += 1; // number of values in A

  2567. #endif

  2568. 

  2569. 		C0 = C0+1;

  2570. 		C1 = C1+1;

  2571. 		C2 = C2+1;

  2572. 		C3 = C3+1;

  2573. 

  2574. 	}

  2575. 

  2576. 

  2577. #if defined(TRMMKERNEL) && !defined(LEFT)

  2578. 		off += 4;

  2579. #endif

  2580. 

  2581.         k = (bk<<2);

  2582.         bb = bb+k;

  2583.         i = (ldc<<2);

  2584.         C = C+i;

  2585.     }

  2586. 

  2587. 

  2588.    if(bn&2)

  2589.    {

  2590.         C0 = C;

  2591.         C1 = C0+ldc;

  2592. 

  2593. #if defined(TRMMKERNEL) && defined(LEFT)

  2594. 	off = offset;

  2595. #endif

  2596. 

  2597. 

  2598.         ptrba = ba;

  2599. 

  2600. 

  2601.         for (i=0; i<bm/16; i+=1)

  2602.         {

  2603. 

  2604. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2605. 		ptrbb = bb;

  2606. #else

  2607. 		ptrba += off*16;

  2608. 		ptrbb = bb + off*2;

  2609. #endif

  2610. 

  2611. 		res0_0 = 0;

  2612. 		res0_1 = 0;

  2613. 		res0_2 = 0;

  2614. 		res0_3 = 0;

  2615. 		res0_4 = 0;

  2616. 		res0_5 = 0;

  2617. 		res0_6 = 0;

  2618. 		res0_7 = 0;

  2619. 

  2620. 		res0_8  = 0;

  2621. 		res0_9  = 0;

  2622. 		res0_10 = 0;

  2623. 		res0_11 = 0;

  2624. 		res0_12 = 0;

  2625. 		res0_13 = 0;

  2626. 		res0_14 = 0;

  2627. 		res0_15 = 0;

  2628. 

  2629. 		res1_0 = 0;

  2630. 		res1_1 = 0;

  2631. 		res1_2 = 0;

  2632. 		res1_3 = 0;

  2633. 		res1_4 = 0;

  2634. 		res1_5 = 0;

  2635. 		res1_6 = 0;

  2636. 		res1_7 = 0;

  2637. 

  2638. 		res1_8  = 0;

  2639. 		res1_9  = 0;

  2640. 		res1_10 = 0;

  2641. 		res1_11 = 0;

  2642. 		res1_12 = 0;

  2643. 		res1_13 = 0;

  2644. 		res1_14 = 0;

  2645. 		res1_15 = 0;

  2646. 

  2647. 

  2648. 

  2649. 

  2650. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2651. 		temp = bk-off;

  2652. #elif defined(LEFT)

  2653. 		temp = off+16;	// number of values in A

  2654. #else

  2655. 		temp = off+2;	// number of values in B

  2656. #endif

  2657. 

  2658. 		for (k=0; k<temp; k++)

  2659.                 {

  2660. 			b0 = ptrbb[0];

  2661. 			b1 = ptrbb[1];

  2662. 

  2663. 			a0 = ptrba[0];

  2664. 			res0_0 += a0*b0;

  2665. 			res1_0 += a0*b1;

  2666. 

  2667. 			a1 = ptrba[1];

  2668. 			res0_1 += a1*b0;

  2669. 			res1_1 += a1*b1;

  2670. 

  2671. 			a0 = ptrba[2];

  2672. 			res0_2 += a0*b0;

  2673. 			res1_2 += a0*b1;

  2674. 

  2675. 			a1 = ptrba[3];

  2676. 			res0_3 += a1*b0;

  2677. 			res1_3 += a1*b1;

  2678. 

  2679. 			a0 = ptrba[4];

  2680. 			res0_4 += a0*b0;

  2681. 			res1_4 += a0*b1;

  2682. 

  2683. 			a1 = ptrba[5];

  2684. 			res0_5 += a1*b0;

  2685. 			res1_5 += a1*b1;

  2686. 

  2687. 			a0 = ptrba[6];

  2688. 			res0_6 += a0*b0;

  2689. 			res1_6 += a0*b1;

  2690. 

  2691. 			a1 = ptrba[7];

  2692. 			res0_7 += a1*b0;

  2693. 			res1_7 += a1*b1;

  2694. 

  2695. 			a0 = ptrba[8];

  2696. 			res0_8 += a0*b0;

  2697. 			res1_8 += a0*b1;

  2698. 

  2699. 			a1 = ptrba[9];

  2700. 			res0_9 += a1*b0;

  2701. 			res1_9 += a1*b1;

  2702. 

  2703. 			a0 = ptrba[10];

  2704. 			res0_10 += a0*b0;

  2705. 			res1_10 += a0*b1;

  2706. 

  2707. 			a1 = ptrba[11];

  2708. 			res0_11 += a1*b0;

  2709. 			res1_11 += a1*b1;

  2710. 

  2711. 			a0 = ptrba[12];

  2712. 			res0_12 += a0*b0;

  2713. 			res1_12 += a0*b1;

  2714. 

  2715. 			a1 = ptrba[13];

  2716. 			res0_13 += a1*b0;

  2717. 			res1_13 += a1*b1;

  2718. 

  2719. 			a0 = ptrba[14];

  2720. 			res0_14 += a0*b0;

  2721. 			res1_14 += a0*b1;

  2722. 

  2723. 			a1 = ptrba[15];

  2724. 			res0_15 += a1*b0;

  2725. 			res1_15 += a1*b1;

  2726. 

  2727. 

  2728. 			ptrba = ptrba+16;

  2729. 			ptrbb = ptrbb+2;

  2730.                 }

  2731. 

  2732. 		res0_0 *= alpha;

  2733. 		res0_1 *= alpha;

  2734. 		res0_2 *= alpha;

  2735. 		res0_3 *= alpha;

  2736. 		res0_4 *= alpha;

  2737. 		res0_5 *= alpha;

  2738. 		res0_6 *= alpha;

  2739. 		res0_7 *= alpha;

  2740. 

  2741. 		res0_8  *= alpha;

  2742. 		res0_9  *= alpha;

  2743. 		res0_10 *= alpha;

  2744. 		res0_11 *= alpha;

  2745. 		res0_12 *= alpha;

  2746. 		res0_13 *= alpha;

  2747. 		res0_14 *= alpha;

  2748. 		res0_15 *= alpha;

  2749. 

  2750. 		res1_0 *= alpha;

  2751. 		res1_1 *= alpha;

  2752. 		res1_2 *= alpha;

  2753. 		res1_3 *= alpha;

  2754. 		res1_4 *= alpha;

  2755. 		res1_5 *= alpha;

  2756. 		res1_6 *= alpha;

  2757. 		res1_7 *= alpha;

  2758. 

  2759. 		res1_8  *= alpha;

  2760. 		res1_9  *= alpha;

  2761. 		res1_10 *= alpha;

  2762. 		res1_11 *= alpha;

  2763. 		res1_12 *= alpha;

  2764. 		res1_13 *= alpha;

  2765. 		res1_14 *= alpha;

  2766. 		res1_15 *= alpha;

  2767. 

  2768. 		C0[0] = res0_0;

  2769. 		C0[1] = res0_1;

  2770. 		C0[2] = res0_2;

  2771. 		C0[3] = res0_3;

  2772. 		C0[4] = res0_4;

  2773. 		C0[5] = res0_5;

  2774. 		C0[6] = res0_6;

  2775. 		C0[7] = res0_7;

  2776. 

  2777. 		C0[8]  = res0_8;

  2778. 		C0[9]  = res0_9;

  2779. 		C0[10] = res0_10;

  2780. 		C0[11] = res0_11;

  2781. 		C0[12] = res0_12;

  2782. 		C0[13] = res0_13;

  2783. 		C0[14] = res0_14;

  2784. 		C0[15] = res0_15;

  2785. 

  2786. 		C1[0] = res1_0;

  2787. 		C1[1] = res1_1;

  2788. 		C1[2] = res1_2;

  2789. 		C1[3] = res1_3;

  2790. 		C1[4] = res1_4;

  2791. 		C1[5] = res1_5;

  2792. 		C1[6] = res1_6;

  2793. 		C1[7] = res1_7;

  2794. 

  2795. 		C1[8]  = res1_8;

  2796. 		C1[9]  = res1_9;

  2797. 		C1[10] = res1_10;

  2798. 		C1[11] = res1_11;

  2799. 		C1[12] = res1_12;

  2800. 		C1[13] = res1_13;

  2801. 		C1[14] = res1_14;

  2802. 		C1[15] = res1_15;

  2803. 

  2804. 

  2805. 

  2806. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2807. 		temp = bk - off;

  2808. #ifdef LEFT

  2809. 		temp -= 16; // number of values in A

  2810. #else

  2811. 		temp -= 2; // number of values in B

  2812. #endif

  2813. 		ptrba += temp*16;

  2814. 		ptrbb += temp*2;

  2815. #endif

  2816. 

  2817. #ifdef LEFT

  2818. 		off += 16; // number of values in A

  2819. #endif

  2820. 

  2821. 		C0 = C0+16;

  2822. 		C1 = C1+16;

  2823. 	}

  2824. 

  2825. 

  2826. 

  2827. 

  2828.         if ( bm & 8)

  2829.         {

  2830. 

  2831. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2832. 		ptrbb = bb;

  2833. #else

  2834. 		ptrba += off*8;

  2835. 		ptrbb = bb + off*2;

  2836. #endif

  2837. 

  2838. 		res0_0 = 0;

  2839. 		res0_1 = 0;

  2840. 		res0_2 = 0;

  2841. 		res0_3 = 0;

  2842. 		res0_4 = 0;

  2843. 		res0_5 = 0;

  2844. 		res0_6 = 0;

  2845. 		res0_7 = 0;

  2846. 

  2847. 		res1_0 = 0;

  2848. 		res1_1 = 0;

  2849. 		res1_2 = 0;

  2850. 		res1_3 = 0;

  2851. 		res1_4 = 0;

  2852. 		res1_5 = 0;

  2853. 		res1_6 = 0;

  2854. 		res1_7 = 0;

  2855. 

  2856. 

  2857. 

  2858. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2859. 		temp = bk-off;

  2860. #elif defined(LEFT)

  2861. 		temp = off+8;	// number of values in A

  2862. #else

  2863. 		temp = off+2;	// number of values in B

  2864. #endif

  2865. 

  2866. 		for (k=0; k<temp; k++)

  2867.                 {

  2868. 			b0 = ptrbb[0];

  2869. 			b1 = ptrbb[1];

  2870. 

  2871. 			a0 = ptrba[0];

  2872. 			res0_0 += a0*b0;

  2873. 			res1_0 += a0*b1;

  2874. 

  2875. 			a1 = ptrba[1];

  2876. 			res0_1 += a1*b0;

  2877. 			res1_1 += a1*b1;

  2878. 

  2879. 			a0 = ptrba[2];

  2880. 			res0_2 += a0*b0;

  2881. 			res1_2 += a0*b1;

  2882. 

  2883. 			a1 = ptrba[3];

  2884. 			res0_3 += a1*b0;

  2885. 			res1_3 += a1*b1;

  2886. 

  2887. 			a0 = ptrba[4];

  2888. 			res0_4 += a0*b0;

  2889. 			res1_4 += a0*b1;

  2890. 

  2891. 			a1 = ptrba[5];

  2892. 			res0_5 += a1*b0;

  2893. 			res1_5 += a1*b1;

  2894. 

  2895. 			a0 = ptrba[6];

  2896. 			res0_6 += a0*b0;

  2897. 			res1_6 += a0*b1;

  2898. 

  2899. 			a1 = ptrba[7];

  2900. 			res0_7 += a1*b0;

  2901. 			res1_7 += a1*b1;

  2902. 

  2903. 			ptrba = ptrba+8;

  2904. 			ptrbb = ptrbb+2;

  2905.                 }

  2906. 

  2907. 		res0_0 *= alpha;

  2908. 		res0_1 *= alpha;

  2909. 		res0_2 *= alpha;

  2910. 		res0_3 *= alpha;

  2911. 		res0_4 *= alpha;

  2912. 		res0_5 *= alpha;

  2913. 		res0_6 *= alpha;

  2914. 		res0_7 *= alpha;

  2915. 

  2916. 		res1_0 *= alpha;

  2917. 		res1_1 *= alpha;

  2918. 		res1_2 *= alpha;

  2919. 		res1_3 *= alpha;

  2920. 		res1_4 *= alpha;

  2921. 		res1_5 *= alpha;

  2922. 		res1_6 *= alpha;

  2923. 		res1_7 *= alpha;

  2924. 

  2925. 		C0[0] = res0_0;

  2926. 		C0[1] = res0_1;

  2927. 		C0[2] = res0_2;

  2928. 		C0[3] = res0_3;

  2929. 		C0[4] = res0_4;

  2930. 		C0[5] = res0_5;

  2931. 		C0[6] = res0_6;

  2932. 		C0[7] = res0_7;

  2933. 

  2934. 		C1[0] = res1_0;

  2935. 		C1[1] = res1_1;

  2936. 		C1[2] = res1_2;

  2937. 		C1[3] = res1_3;

  2938. 		C1[4] = res1_4;

  2939. 		C1[5] = res1_5;

  2940. 		C1[6] = res1_6;

  2941. 		C1[7] = res1_7;

  2942. 

  2943. 

  2944. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2945. 		temp = bk - off;

  2946. #ifdef LEFT

  2947. 		temp -= 8; // number of values in A

  2948. #else

  2949. 		temp -= 2; // number of values in B

  2950. #endif

  2951. 		ptrba += temp*8;

  2952. 		ptrbb += temp*2;

  2953. #endif

  2954. 

  2955. #ifdef LEFT

  2956. 		off += 8; // number of values in A

  2957. #endif

  2958. 

  2959. 		C0 = C0+8;

  2960. 		C1 = C1+8;

  2961. 	}

  2962. 

  2963. 	if ( bm & 4 )

  2964. 	{

  2965. 

  2966. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  2967. 		ptrbb = bb;

  2968. #else

  2969. 		ptrba += off*4;

  2970. 		ptrbb = bb + off*2;

  2971. #endif

  2972. 

  2973. 		res0_0 = 0;

  2974. 		res0_1 = 0;

  2975. 		res0_2 = 0;

  2976. 		res0_3 = 0;

  2977. 

  2978. 		res1_0 = 0;

  2979. 		res1_1 = 0;

  2980. 		res1_2 = 0;

  2981. 		res1_3 = 0;

  2982. 

  2983. 

  2984. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  2985. 		temp = bk-off;

  2986. #elif defined(LEFT)

  2987. 		temp = off+4;	// number of values in A

  2988. #else

  2989. 		temp = off+2;	// number of values in B

  2990. #endif

  2991. 

  2992. 		for (k=0; k<temp; k++)

  2993.                 {

  2994. 			b0 = ptrbb[0];

  2995. 			b1 = ptrbb[1];

  2996. 

  2997. 			a0 = ptrba[0];

  2998. 			res0_0 += a0*b0;

  2999. 			res1_0 += a0*b1;

  3000. 

  3001. 			a1 = ptrba[1];

  3002. 			res0_1 += a1*b0;

  3003. 			res1_1 += a1*b1;

  3004. 

  3005. 			a0 = ptrba[2];

  3006. 			res0_2 += a0*b0;

  3007. 			res1_2 += a0*b1;

  3008. 

  3009. 			a1 = ptrba[3];

  3010. 			res0_3 += a1*b0;

  3011. 			res1_3 += a1*b1;

  3012. 

  3013. 			ptrba = ptrba+4;

  3014. 			ptrbb = ptrbb+2;

  3015.                 }

  3016. 

  3017. 		res0_0 *= alpha;

  3018. 		res0_1 *= alpha;

  3019. 		res0_2 *= alpha;

  3020. 		res0_3 *= alpha;

  3021. 

  3022. 		res1_0 *= alpha;

  3023. 		res1_1 *= alpha;

  3024. 		res1_2 *= alpha;

  3025. 		res1_3 *= alpha;

  3026. 

  3027. 		C0[0] = res0_0;

  3028. 		C0[1] = res0_1;

  3029. 		C0[2] = res0_2;

  3030. 		C0[3] = res0_3;

  3031. 

  3032. 		C1[0] = res1_0;

  3033. 		C1[1] = res1_1;

  3034. 		C1[2] = res1_2;

  3035. 		C1[3] = res1_3;

  3036. 

  3037. 

  3038. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3039. 		temp = bk - off;

  3040. #ifdef LEFT

  3041. 		temp -= 4; // number of values in A

  3042. #else

  3043. 		temp -= 2; // number of values in B

  3044. #endif

  3045. 		ptrba += temp*4;

  3046. 		ptrbb += temp*2;

  3047. #endif

  3048. 

  3049. #ifdef LEFT

  3050. 		off += 4; // number of values in A

  3051. #endif

  3052. 

  3053. 		C0 = C0+4;

  3054. 		C1 = C1+4;

  3055. 

  3056. 	}

  3057. 

  3058. 	if ( bm & 2 )

  3059. 	{

  3060. 

  3061. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3062. 		ptrbb = bb;

  3063. #else

  3064. 		ptrba += off*2;

  3065. 		ptrbb = bb + off*2;

  3066. #endif

  3067. 

  3068. 		res0_0 = 0;

  3069. 		res0_1 = 0;

  3070. 

  3071. 		res1_0 = 0;

  3072. 		res1_1 = 0;

  3073. 

  3074. 

  3075. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3076. 		temp = bk-off;

  3077. #elif defined(LEFT)

  3078. 		temp = off+2;	// number of values in A

  3079. #else

  3080. 		temp = off+2;	// number of values in B

  3081. #endif

  3082. 

  3083. 		for (k=0; k<temp; k++)

  3084.                 {

  3085. 			b0 = ptrbb[0];

  3086. 			b1 = ptrbb[1];

  3087. 

  3088. 			a0 = ptrba[0];

  3089. 			res0_0 += a0*b0;

  3090. 			res1_0 += a0*b1;

  3091. 

  3092. 			a1 = ptrba[1];

  3093. 			res0_1 += a1*b0;

  3094. 			res1_1 += a1*b1;

  3095. 

  3096. 			ptrba = ptrba+2;

  3097. 			ptrbb = ptrbb+2;

  3098.                 }

  3099. 

  3100. 		res0_0 *= alpha;

  3101. 		res0_1 *= alpha;

  3102. 

  3103. 		res1_0 *= alpha;

  3104. 		res1_1 *= alpha;

  3105. 

  3106. 		C0[0] = res0_0;

  3107. 		C0[1] = res0_1;

  3108. 

  3109. 		C1[0] = res1_0;

  3110. 		C1[1] = res1_1;

  3111. 

  3112. 

  3113. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3114. 		temp = bk - off;

  3115. #ifdef LEFT

  3116. 		temp -= 2; // number of values in A

  3117. #else

  3118. 		temp -= 2; // number of values in B

  3119. #endif

  3120. 		ptrba += temp*2;

  3121. 		ptrbb += temp*2;

  3122. #endif

  3123. 

  3124. #ifdef LEFT

  3125. 		off += 2; // number of values in A

  3126. #endif

  3127. 

  3128. 		C0 = C0+2;

  3129. 		C1 = C1+2;

  3130. 

  3131. 	}

  3132. 

  3133. 	if ( bm & 1 )

  3134. 	{

  3135. 

  3136. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3137. 		ptrbb = bb;

  3138. #else

  3139. 		ptrba += off*1;

  3140. 		ptrbb = bb + off*2;

  3141. #endif

  3142. 

  3143. 		res0_0 = 0;

  3144. 

  3145. 		res1_0 = 0;

  3146. 

  3147. 

  3148. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3149. 		temp = bk-off;

  3150. #elif defined(LEFT)

  3151. 		temp = off+1;	// number of values in A

  3152. #else

  3153. 		temp = off+2;	// number of values in B

  3154. #endif

  3155. 

  3156. 		for (k=0; k<temp; k++)

  3157.                 {

  3158. 			b0 = ptrbb[0];

  3159. 			b1 = ptrbb[1];

  3160. 

  3161. 			a0 = ptrba[0];

  3162. 			res0_0 += a0*b0;

  3163. 			res1_0 += a0*b1;

  3164. 

  3165. 			ptrba = ptrba+1;

  3166. 			ptrbb = ptrbb+2;

  3167.                 }

  3168. 

  3169. 		res0_0 *= alpha;

  3170. 

  3171. 		res1_0 *= alpha;

  3172. 

  3173. 		C0[0] = res0_0;

  3174. 

  3175. 		C1[0] = res1_0;

  3176. 

  3177. 

  3178. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3179. 		temp = bk - off;

  3180. #ifdef LEFT

  3181. 		temp -= 1; // number of values in A

  3182. #else

  3183. 		temp -= 2; // number of values in B

  3184. #endif

  3185. 		ptrba += temp*1;

  3186. 		ptrbb += temp*2;

  3187. #endif

  3188. 

  3189. #ifdef LEFT

  3190. 		off += 1; // number of values in A

  3191. #endif

  3192. 

  3193. 		C0 = C0+1;

  3194. 		C1 = C1+1;

  3195. 

  3196. 	}

  3197. 

  3198. 

  3199. #if defined(TRMMKERNEL) && !defined(LEFT)

  3200. 		off += 2;

  3201. #endif

  3202. 

  3203.         k = (bk<<1);

  3204.         bb = bb+k;

  3205.         i = (ldc<<1);

  3206.         C = C+i;

  3207.     }

  3208. 

  3209. 

  3210.    for (j=0; j<(bn&1); j+=1)

  3211.    {

  3212.         C0 = C;

  3213. 

  3214. #if defined(TRMMKERNEL) &&  defined(LEFT)

  3215. 	off = offset;

  3216. #endif

  3217. 

  3218.         ptrba = ba;

  3219. 

  3220. 

  3221.         for (i=0; i<bm/16; i+=1)

  3222.         {

  3223. 

  3224. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3225. 		ptrbb = bb;

  3226. #else

  3227. 		ptrba += off*16;

  3228. 		ptrbb = bb + off*1;

  3229. #endif

  3230. 

  3231. 		res0_0 = 0;

  3232. 		res0_1 = 0;

  3233. 		res0_2 = 0;

  3234. 		res0_3 = 0;

  3235. 		res0_4 = 0;

  3236. 		res0_5 = 0;

  3237. 		res0_6 = 0;

  3238. 		res0_7 = 0;

  3239. 

  3240. 		res0_8  = 0;

  3241. 		res0_9  = 0;

  3242. 		res0_10 = 0;

  3243. 		res0_11 = 0;

  3244. 		res0_12 = 0;

  3245. 		res0_13 = 0;

  3246. 		res0_14 = 0;

  3247. 		res0_15 = 0;

  3248. 

  3249. 

  3250. 

  3251. 

  3252. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3253. 		temp = bk-off;

  3254. #elif defined(LEFT)

  3255. 		temp = off+16;	// number of values in A

  3256. #else

  3257. 		temp = off+1;	// number of values in B

  3258. #endif

  3259. 

  3260. 		for (k=0; k<temp; k++)

  3261.                 {

  3262. 			b0 = ptrbb[0];

  3263. 

  3264. 			a0 = ptrba[0];

  3265. 			res0_0 += a0*b0;

  3266. 

  3267. 			a1 = ptrba[1];

  3268. 			res0_1 += a1*b0;

  3269. 

  3270. 			a0 = ptrba[2];

  3271. 			res0_2 += a0*b0;

  3272. 

  3273. 			a1 = ptrba[3];

  3274. 			res0_3 += a1*b0;

  3275. 

  3276. 			a0 = ptrba[4];

  3277. 			res0_4 += a0*b0;

  3278. 

  3279. 			a1 = ptrba[5];

  3280. 			res0_5 += a1*b0;

  3281. 

  3282. 			a0 = ptrba[6];

  3283. 			res0_6 += a0*b0;

  3284. 

  3285. 			a1 = ptrba[7];

  3286. 			res0_7 += a1*b0;

  3287. 

  3288. 			a0 = ptrba[8];

  3289. 			res0_8 += a0*b0;

  3290. 

  3291. 			a1 = ptrba[9];

  3292. 			res0_9 += a1*b0;

  3293. 

  3294. 			a0 = ptrba[10];

  3295. 			res0_10 += a0*b0;

  3296. 

  3297. 			a1 = ptrba[11];

  3298. 			res0_11 += a1*b0;

  3299. 

  3300. 			a0 = ptrba[12];

  3301. 			res0_12 += a0*b0;

  3302. 

  3303. 			a1 = ptrba[13];

  3304. 			res0_13 += a1*b0;

  3305. 

  3306. 			a0 = ptrba[14];

  3307. 			res0_14 += a0*b0;

  3308. 

  3309. 			a1 = ptrba[15];

  3310. 			res0_15 += a1*b0;

  3311. 

  3312. 

  3313. 			ptrba = ptrba+16;

  3314. 			ptrbb = ptrbb+1;

  3315.                 }

  3316. 

  3317. 		res0_0 *= alpha;

  3318. 		res0_1 *= alpha;

  3319. 		res0_2 *= alpha;

  3320. 		res0_3 *= alpha;

  3321. 		res0_4 *= alpha;

  3322. 		res0_5 *= alpha;

  3323. 		res0_6 *= alpha;

  3324. 		res0_7 *= alpha;

  3325. 

  3326. 		res0_8  *= alpha;

  3327. 		res0_9  *= alpha;

  3328. 		res0_10 *= alpha;

  3329. 		res0_11 *= alpha;

  3330. 		res0_12 *= alpha;

  3331. 		res0_13 *= alpha;

  3332. 		res0_14 *= alpha;

  3333. 		res0_15 *= alpha;

  3334. 

  3335. 		C0[0] = res0_0;

  3336. 		C0[1] = res0_1;

  3337. 		C0[2] = res0_2;

  3338. 		C0[3] = res0_3;

  3339. 		C0[4] = res0_4;

  3340. 		C0[5] = res0_5;

  3341. 		C0[6] = res0_6;

  3342. 		C0[7] = res0_7;

  3343. 

  3344. 		C0[8]  = res0_8;

  3345. 		C0[9]  = res0_9;

  3346. 		C0[10] = res0_10;

  3347. 		C0[11] = res0_11;

  3348. 		C0[12] = res0_12;

  3349. 		C0[13] = res0_13;

  3350. 		C0[14] = res0_14;

  3351. 		C0[15] = res0_15;

  3352. 

  3353. 

  3354. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3355. 		temp = bk - off;

  3356. #ifdef LEFT

  3357. 		temp -= 16; // number of values in A

  3358. #else

  3359. 		temp -= 1; // number of values in B

  3360. #endif

  3361. 		ptrba += temp*16;

  3362. 		ptrbb += temp*1;

  3363. #endif

  3364. 

  3365. #ifdef LEFT

  3366. 		off += 16; // number of values in A

  3367. #endif

  3368. 

  3369. 		C0 = C0+16;

  3370. 	}

  3371. 

  3372. 

  3373. 

  3374. 

  3375.         if ( bm & 8 )

  3376.         {

  3377. 

  3378. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3379. 		ptrbb = bb;

  3380. #else

  3381. 		ptrba += off*8;

  3382. 		ptrbb = bb + off*1;

  3383. #endif

  3384. 

  3385. 		res0_0 = 0;

  3386. 		res0_1 = 0;

  3387. 		res0_2 = 0;

  3388. 		res0_3 = 0;

  3389. 		res0_4 = 0;

  3390. 		res0_5 = 0;

  3391. 		res0_6 = 0;

  3392. 		res0_7 = 0;

  3393. 

  3394. 

  3395. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3396. 		temp = bk-off;

  3397. #elif defined(LEFT)

  3398. 		temp = off+8;	// number of values in A

  3399. #else

  3400. 		temp = off+1;	// number of values in B

  3401. #endif

  3402. 

  3403. 		for (k=0; k<temp; k++)

  3404.                 {

  3405. 			b0 = ptrbb[0];

  3406. 

  3407. 			a0 = ptrba[0];

  3408. 			res0_0 += a0*b0;

  3409. 

  3410. 			a1 = ptrba[1];

  3411. 			res0_1 += a1*b0;

  3412. 

  3413. 			a0 = ptrba[2];

  3414. 			res0_2 += a0*b0;

  3415. 

  3416. 			a1 = ptrba[3];

  3417. 			res0_3 += a1*b0;

  3418. 

  3419. 			a0 = ptrba[4];

  3420. 			res0_4 += a0*b0;

  3421. 

  3422. 			a1 = ptrba[5];

  3423. 			res0_5 += a1*b0;

  3424. 

  3425. 			a0 = ptrba[6];

  3426. 			res0_6 += a0*b0;

  3427. 

  3428. 			a1 = ptrba[7];

  3429. 			res0_7 += a1*b0;

  3430. 

  3431. 			ptrba = ptrba+8;

  3432. 			ptrbb = ptrbb+1;

  3433.                 }

  3434. 

  3435. 		res0_0 *= alpha;

  3436. 		res0_1 *= alpha;

  3437. 		res0_2 *= alpha;

  3438. 		res0_3 *= alpha;

  3439. 		res0_4 *= alpha;

  3440. 		res0_5 *= alpha;

  3441. 		res0_6 *= alpha;

  3442. 		res0_7 *= alpha;

  3443. 

  3444. 		C0[0] = res0_0;

  3445. 		C0[1] = res0_1;

  3446. 		C0[2] = res0_2;

  3447. 		C0[3] = res0_3;

  3448. 		C0[4] = res0_4;

  3449. 		C0[5] = res0_5;

  3450. 		C0[6] = res0_6;

  3451. 		C0[7] = res0_7;

  3452. 

  3453. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3454. 		temp = bk - off;

  3455. #ifdef LEFT

  3456. 		temp -= 8; // number of values in A

  3457. #else

  3458. 		temp -= 1; // number of values in B

  3459. #endif

  3460. 		ptrba += temp*8;

  3461. 		ptrbb += temp*1;

  3462. #endif

  3463. 

  3464. #ifdef LEFT

  3465. 		off += 8; // number of values in A

  3466. #endif

  3467. 

  3468. 		C0 = C0+8;

  3469. 	}

  3470. 

  3471. 	if ( bm & 4 )

  3472. 	{

  3473. 

  3474. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3475. 		ptrbb = bb;

  3476. #else

  3477. 		ptrba += off*4;

  3478. 		ptrbb = bb + off*1;

  3479. #endif

  3480. 

  3481. 		res0_0 = 0;

  3482. 		res0_1 = 0;

  3483. 		res0_2 = 0;

  3484. 		res0_3 = 0;

  3485. 

  3486. 

  3487. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3488. 		temp = bk-off;

  3489. #elif defined(LEFT)

  3490. 		temp = off+4;	// number of values in A

  3491. #else

  3492. 		temp = off+1;	// number of values in B

  3493. #endif

  3494. 

  3495. 		for (k=0; k<temp; k++)

  3496.                 {

  3497. 			b0 = ptrbb[0];

  3498. 

  3499. 			a0 = ptrba[0];

  3500. 			res0_0 += a0*b0;

  3501. 

  3502. 			a1 = ptrba[1];

  3503. 			res0_1 += a1*b0;

  3504. 

  3505. 			a0 = ptrba[2];

  3506. 			res0_2 += a0*b0;

  3507. 

  3508. 			a1 = ptrba[3];

  3509. 			res0_3 += a1*b0;

  3510. 

  3511. 			ptrba = ptrba+4;

  3512. 			ptrbb = ptrbb+1;

  3513.                 }

  3514. 

  3515. 		res0_0 *= alpha;

  3516. 		res0_1 *= alpha;

  3517. 		res0_2 *= alpha;

  3518. 		res0_3 *= alpha;

  3519. 

  3520. 		C0[0] = res0_0;

  3521. 		C0[1] = res0_1;

  3522. 		C0[2] = res0_2;

  3523. 		C0[3] = res0_3;

  3524. 

  3525. 

  3526. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3527. 		temp = bk - off;

  3528. #ifdef LEFT

  3529. 		temp -= 4; // number of values in A

  3530. #else

  3531. 		temp -= 1; // number of values in B

  3532. #endif

  3533. 		ptrba += temp*4;

  3534. 		ptrbb += temp*1;

  3535. #endif

  3536. 

  3537. #ifdef LEFT

  3538. 		off += 4; // number of values in A

  3539. #endif

  3540. 

  3541. 		C0 = C0+4;

  3542. 

  3543. 	}

  3544. 

  3545. 	if ( bm & 2 )

  3546. 	{

  3547. 

  3548. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3549. 		ptrbb = bb;

  3550. #else

  3551. 		ptrba += off*2;

  3552. 		ptrbb = bb + off*1;

  3553. #endif

  3554. 

  3555. 		res0_0 = 0;

  3556. 		res0_1 = 0;

  3557. 

  3558. 

  3559. 

  3560. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3561. 		temp = bk-off;

  3562. #elif defined(LEFT)

  3563. 		temp = off+2;	// number of values in A

  3564. #else

  3565. 		temp = off+1;	// number of values in B

  3566. #endif

  3567. 

  3568. 		for (k=0; k<temp; k++)

  3569.                 {

  3570. 			b0 = ptrbb[0];

  3571. 

  3572. 			a0 = ptrba[0];

  3573. 			res0_0 += a0*b0;

  3574. 

  3575. 			a1 = ptrba[1];

  3576. 			res0_1 += a1*b0;

  3577. 

  3578. 			ptrba = ptrba+2;

  3579. 			ptrbb = ptrbb+1;

  3580.                 }

  3581. 

  3582. 		res0_0 *= alpha;

  3583. 		res0_1 *= alpha;

  3584. 

  3585. 		C0[0] = res0_0;

  3586. 		C0[1] = res0_1;

  3587. 

  3588. 

  3589. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3590. 		temp = bk - off;

  3591. #ifdef LEFT

  3592. 		temp -= 2; // number of values in A

  3593. #else

  3594. 		temp -= 1; // number of values in B

  3595. #endif

  3596. 		ptrba += temp*2;

  3597. 		ptrbb += temp*1;

  3598. #endif

  3599. 

  3600. #ifdef LEFT

  3601. 		off += 2; // number of values in A

  3602. #endif

  3603. 

  3604. 		C0 = C0+2;

  3605. 

  3606. 	}

  3607. 

  3608. 	if ( bm & 1 )

  3609. 	{

  3610. 

  3611. #if (defined(LEFT) &&  defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3612. 		ptrbb = bb;

  3613. #else

  3614. 		ptrba += off*1;

  3615. 		ptrbb = bb + off*1;

  3616. #endif

  3617. 

  3618. 		res0_0 = 0;

  3619. 

  3620. 

  3621. #if (defined(LEFT) && !defined(TRANSA)) || (!defined(LEFT) && defined(TRANSA))

  3622. 		temp = bk-off;

  3623. #elif defined(LEFT)

  3624. 		temp = off+1;	// number of values in A

  3625. #else

  3626. 		temp = off+1;	// number of values in B

  3627. #endif

  3628. 

  3629. 		for (k=0; k<temp; k++)

  3630.                 {

  3631. 			b0 = ptrbb[0];

  3632. 

  3633. 			a0 = ptrba[0];

  3634. 			res0_0 += a0*b0;

  3635. 

  3636. 			ptrba = ptrba+1;

  3637. 			ptrbb = ptrbb+1;

  3638.                 }

  3639. 

  3640. 		res0_0 *= alpha;

  3641. 

  3642. 		C0[0] = res0_0;

  3643. 

  3644. 

  3645. #if ( defined(LEFT) && defined(TRANSA)) || (!defined(LEFT) && !defined(TRANSA))

  3646. 		temp = bk - off;

  3647. #ifdef LEFT

  3648. 		temp -= 1; // number of values in A

  3649. #else

  3650. 		temp -= 1; // number of values in B

  3651. #endif

  3652. 		ptrba += temp*1;

  3653. 		ptrbb += temp*1;

  3654. #endif

  3655. 

  3656. #ifdef LEFT

  3657. 		off += 1; // number of values in A

  3658. #endif

  3659. 

  3660. 		C0 = C0+1;

  3661. 

  3662. 	}

  3663. 

  3664. 

  3665. 

  3666. #if defined(TRMMKERNEL) && !defined(LEFT)

  3667. 		off += 1;

  3668. #endif

  3669. 

  3670.         k = (bk<<0);

  3671.         bb = bb+k;

  3672.         C = C+ldc;

  3673.    }

  3674. 

  3675.    return 0;

  3676. }