Lines Matching refs:areal
148 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_gmmm() local
157 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
159 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
160 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
168 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
170 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm()
171 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm()
179 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
181 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
182 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
194 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
196 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
197 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
205 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
207 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm()
208 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm()
216 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
218 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
219 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
236 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
238 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
239 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
252 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
254 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm()
255 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm()
268 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm()
270 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm()
271 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm()
420 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_gmmm_T() local
429 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
431 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
432 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
440 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
442 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm_T()
443 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm_T()
451 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
453 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
454 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
466 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
468 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
469 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
477 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
479 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm_T()
480 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm_T()
488 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
490 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
491 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
508 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
510 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
511 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
524 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
526 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_gmmm_T()
527 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_gmmm_T()
540 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_T()
542 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T()
543 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T()
628 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_gmmm_H() local
637 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
639 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
640 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
648 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
650 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_gmmm_H()
651 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_gmmm_H()
659 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
661 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
662 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
674 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
676 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
677 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
685 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
687 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_gmmm_H()
688 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_gmmm_H()
696 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
698 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
699 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
716 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
718 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
719 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
732 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
734 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_gmmm_H()
735 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_gmmm_H()
748 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_gmmm_H()
750 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_gmmm_H()
751 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_gmmm_H()
919 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_sym_gmmm() local
928 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
930 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
931 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
934 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
935 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
944 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
946 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
947 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
950 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
951 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
960 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
962 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
963 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
968 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
969 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
982 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
984 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
985 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
988 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
989 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
998 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
1000 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
1001 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
1004 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
1005 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
1014 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
1016 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1017 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1022 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1023 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1041 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
1043 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1044 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1047 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1048 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1062 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
1064 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
1065 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
1068 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_gmmm()
1069 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_gmmm()
1083 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_gmmm()
1085 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1086 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1091 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_gmmm()
1092 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_gmmm()
1179 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_herm_gmmm() local
1188 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1190 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1191 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1194 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1195 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()
1204 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1206 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_gmmm()
1207 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_gmmm()
1210 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_gmmm()
1211 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_gmmm()
1220 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1222 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1223 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1228 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1229 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()
1242 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1244 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1245 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1248 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1249 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()
1258 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1260 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_gmmm()
1261 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_gmmm()
1264 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_gmmm()
1265 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_gmmm()
1274 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1276 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1277 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1282 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1283 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()
1301 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1303 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1304 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1307 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1308 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()
1322 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1324 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_gmmm()
1325 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_gmmm()
1328 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_gmmm()
1329 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_gmmm()
1343 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_gmmm()
1345 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_gmmm()
1346 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_gmmm()
1351 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_gmmm()
1352 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_gmmm()