Lines Matching refs:aimag
110 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmmVector() local
118 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
120 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
121 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
126 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
128 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector()
129 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector()
134 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
136 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
137 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
146 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
148 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
149 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
154 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
156 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector()
157 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector()
162 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
164 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
165 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
179 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
181 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
182 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
192 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
194 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector()
195 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector()
205 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector()
207 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector()
208 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector()
322 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmmVector_T() local
330 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
332 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
333 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
338 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
340 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector_T()
341 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector_T()
346 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
348 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
349 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
358 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
360 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
361 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
366 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
368 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector_T()
369 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector_T()
374 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
376 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
377 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
391 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
393 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
394 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
404 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
406 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_nonsym_mmmVector_T()
407 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_nonsym_mmmVector_T()
417 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_T()
419 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T()
420 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T()
482 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_nonsym_mmmVector_H() local
490 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
492 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
493 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
498 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
500 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmmVector_H()
501 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmmVector_H()
506 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
508 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
509 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
518 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
520 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
521 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
526 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
528 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmmVector_H()
529 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmmVector_H()
534 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
536 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
537 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
551 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
553 y[2*row] += areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
554 y[2*row+1] += areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
564 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
566 y[2*row] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_nonsym_mmmVector_H()
567 y[2*row+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_nonsym_mmmVector_H()
577 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_nonsym_mmmVector_H()
579 t1 = areal*xreal + aimag*ximag ; in InpMtx_nonsym_mmmVector_H()
580 t2 = areal*ximag - aimag*xreal ; in InpMtx_nonsym_mmmVector_H()
710 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_sym_mmmVector() local
718 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
720 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
721 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
724 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
725 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
731 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
733 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
734 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
737 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
738 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
744 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
746 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
747 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
752 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
753 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
763 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
765 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
766 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
769 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
770 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
776 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
778 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
779 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
782 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
783 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
789 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
791 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
792 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
797 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
798 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
813 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
815 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
816 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
819 y[2*col] += areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
820 y[2*col+1] += areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
831 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
833 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
834 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
837 y[2*col] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_sym_mmmVector()
838 y[2*col+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_sym_mmmVector()
849 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_sym_mmmVector()
851 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
852 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
857 t1 = areal*xreal - aimag*ximag ; in InpMtx_sym_mmmVector()
858 t2 = areal*ximag + aimag*xreal ; in InpMtx_sym_mmmVector()
922 double aimag, areal, ifac, rfac, t1, t2, ximag, xreal ; in InpMtx_herm_mmmVector() local
930 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
932 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
933 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
936 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
937 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()
943 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
945 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmmVector()
946 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmmVector()
949 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmmVector()
950 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmmVector()
956 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
958 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
959 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
964 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
965 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()
975 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
977 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
978 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
981 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
982 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()
988 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
990 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmmVector()
991 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmmVector()
994 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmmVector()
995 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmmVector()
1001 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
1003 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
1004 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
1009 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
1010 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()
1025 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
1027 y[2*row] += areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
1028 y[2*row+1] += areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
1031 y[2*col] += areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
1032 y[2*col+1] += areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()
1043 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
1045 y[2*row] += rfac*(areal*xreal - aimag*ximag) ; in InpMtx_herm_mmmVector()
1046 y[2*row+1] += rfac*(areal*ximag + aimag*xreal) ; in InpMtx_herm_mmmVector()
1049 y[2*col] += rfac*(areal*xreal + aimag*ximag) ; in InpMtx_herm_mmmVector()
1050 y[2*col+1] += rfac*(areal*ximag - aimag*xreal) ; in InpMtx_herm_mmmVector()
1061 areal = dvec[jj] ; aimag = dvec[jj+1] ; in InpMtx_herm_mmmVector()
1063 t1 = areal*xreal - aimag*ximag ; in InpMtx_herm_mmmVector()
1064 t2 = areal*ximag + aimag*xreal ; in InpMtx_herm_mmmVector()
1069 t1 = areal*xreal + aimag*ximag ; in InpMtx_herm_mmmVector()
1070 t2 = areal*ximag - aimag*xreal ; in InpMtx_herm_mmmVector()