Lines Matching refs:areal
172 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmm() local
181 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
183 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
184 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
192 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
194 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm()
195 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm()
203 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
205 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
206 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
218 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
220 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
221 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
229 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
231 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm()
232 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm()
240 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
242 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
243 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
260 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
262 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
263 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
276 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
278 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm()
279 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm()
292 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm()
294 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm()
295 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm()
473 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmm_T() local
482 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
484 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
485 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
493 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
495 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm_T()
496 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm_T()
504 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
506 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
507 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
519 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
521 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
522 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
530 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
532 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm_T()
533 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm_T()
541 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
543 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
544 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
561 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
563 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
564 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
577 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
579 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmm_T()
580 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmm_T()
593 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_T()
595 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T()
596 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T()
691 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmm_H() local
700 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
702 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
703 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
711 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
713 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmm_H()
714 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmm_H()
722 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
724 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
725 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
737 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
739 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
740 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
748 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
750 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmm_H()
751 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmm_H()
759 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
761 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
762 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
779 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
781 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
782 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
795 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
797 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmm_H()
798 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmm_H()
811 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmm_H()
813 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmm_H()
814 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmm_H()
1011 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_sym_mmm() local
1020 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1022 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1023 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1026 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1027 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1036 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1038 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1039 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1042 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1043 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1052 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1054 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1055 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1060 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1061 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1074 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1076 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1077 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1080 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1081 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1090 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1092 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1093 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1096 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1097 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1106 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1108 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1109 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1114 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1115 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1133 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1135 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1136 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1139 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1140 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1154 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1156 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1157 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1160 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmm()
1161 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmm()
1175 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmm()
1177 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1178 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1183 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmm()
1184 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmm()
1281 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_herm_mmm() local
1290 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1292 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1293 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1296 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1297 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()
1306 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1308 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmm()
1309 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmm()
1312 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmm()
1313 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmm()
1322 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1324 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1325 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1330 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1331 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()
1344 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1346 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1347 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1350 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1351 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()
1360 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1362 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmm()
1363 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmm()
1366 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmm()
1367 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmm()
1376 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1378 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1379 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1384 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1385 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()
1403 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1405 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1406 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1409 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1410 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()
1424 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1426 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmm()
1427 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmm()
1430 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmm()
1431 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmm()
1445 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmm()
1447 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmm()
1448 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmm()
1453 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmm()
1454 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmm()