Lines Matching refs:k1
695 int j, j1, k, k1, l, m, m2;
713 k1 = 2 * k + ip[j];
716 yr = a[k1];
717 yi = a[k1 + 1];
720 a[k1] = xr;
721 a[k1 + 1] = xi;
723 k1 += 2 * m2;
726 yr = a[k1];
727 yi = a[k1 + 1];
730 a[k1] = xr;
731 a[k1 + 1] = xi;
733 k1 -= m2;
736 yr = a[k1];
737 yi = a[k1 + 1];
740 a[k1] = xr;
741 a[k1 + 1] = xi;
743 k1 += 2 * m2;
746 yr = a[k1];
747 yi = a[k1 + 1];
750 a[k1] = xr;
751 a[k1 + 1] = xi;
754 k1 = j1 + m2;
757 yr = a[k1];
758 yi = a[k1 + 1];
761 a[k1] = xr;
762 a[k1 + 1] = xi;
768 k1 = 2 * k + ip[j];
771 yr = a[k1];
772 yi = a[k1 + 1];
775 a[k1] = xr;
776 a[k1 + 1] = xi;
778 k1 += m2;
781 yr = a[k1];
782 yi = a[k1 + 1];
785 a[k1] = xr;
786 a[k1 + 1] = xi;
795 int j, j1, k, k1, l, m, m2;
813 k1 = 2 * k + ip[j];
816 yr = a[k1];
817 yi = -a[k1 + 1];
820 a[k1] = xr;
821 a[k1 + 1] = xi;
823 k1 += 2 * m2;
826 yr = a[k1];
827 yi = -a[k1 + 1];
830 a[k1] = xr;
831 a[k1 + 1] = xi;
833 k1 -= m2;
836 yr = a[k1];
837 yi = -a[k1 + 1];
840 a[k1] = xr;
841 a[k1 + 1] = xi;
843 k1 += 2 * m2;
846 yr = a[k1];
847 yi = -a[k1 + 1];
850 a[k1] = xr;
851 a[k1 + 1] = xi;
853 k1 = 2 * k + ip[k];
854 a[k1 + 1] = -a[k1 + 1];
855 j1 = k1 + m2;
856 k1 = j1 + m2;
859 yr = a[k1];
860 yi = -a[k1 + 1];
863 a[k1] = xr;
864 a[k1 + 1] = xi;
865 k1 += m2;
866 a[k1 + 1] = -a[k1 + 1];
874 k1 = 2 * k + ip[j];
877 yr = a[k1];
878 yi = -a[k1 + 1];
881 a[k1] = xr;
882 a[k1 + 1] = xi;
884 k1 += m2;
887 yr = a[k1];
888 yi = -a[k1 + 1];
891 a[k1] = xr;
892 a[k1 + 1] = xi;
894 k1 = 2 * k + ip[k];
895 a[k1 + 1] = -a[k1 + 1];
896 a[k1 + m2 + 1] = -a[k1 + m2 + 1];
1004 int j, k1, k2;
1045 k1 = 0;
1047 k1 += 2;
1048 k2 = 2 * k1;
1049 wk2r = w[k1];
1050 wk2i = w[k1 + 1];
1109 int j, j1, j2, j3, k, k1, k2, m, m2;
1161 k1 = 0;
1164 k1 += 2;
1165 k2 = 2 * k1;
1166 wk2r = w[k1];
1167 wk2i = w[k1 + 1];
