Lines Matching refs:k1
721 int j, j1, k, k1, l, m, m2;
739 k1 = 2 * k + ip[j];
742 yr = a[k1];
743 yi = a[k1 + 1];
746 a[k1] = xr;
747 a[k1 + 1] = xi;
749 k1 += 2 * m2;
752 yr = a[k1];
753 yi = a[k1 + 1];
756 a[k1] = xr;
757 a[k1 + 1] = xi;
759 k1 -= m2;
762 yr = a[k1];
763 yi = a[k1 + 1];
766 a[k1] = xr;
767 a[k1 + 1] = xi;
769 k1 += 2 * m2;
772 yr = a[k1];
773 yi = a[k1 + 1];
776 a[k1] = xr;
777 a[k1 + 1] = xi;
780 k1 = j1 + m2;
783 yr = a[k1];
784 yi = a[k1 + 1];
787 a[k1] = xr;
788 a[k1 + 1] = xi;
794 k1 = 2 * k + ip[j];
797 yr = a[k1];
798 yi = a[k1 + 1];
801 a[k1] = xr;
802 a[k1 + 1] = xi;
804 k1 += m2;
807 yr = a[k1];
808 yi = a[k1 + 1];
811 a[k1] = xr;
812 a[k1 + 1] = xi;
821 int j, j1, k, k1, l, m, m2;
839 k1 = 2 * k + ip[j];
842 yr = a[k1];
843 yi = -a[k1 + 1];
846 a[k1] = xr;
847 a[k1 + 1] = xi;
849 k1 += 2 * m2;
852 yr = a[k1];
853 yi = -a[k1 + 1];
856 a[k1] = xr;
857 a[k1 + 1] = xi;
859 k1 -= m2;
862 yr = a[k1];
863 yi = -a[k1 + 1];
866 a[k1] = xr;
867 a[k1 + 1] = xi;
869 k1 += 2 * m2;
872 yr = a[k1];
873 yi = -a[k1 + 1];
876 a[k1] = xr;
877 a[k1 + 1] = xi;
879 k1 = 2 * k + ip[k];
880 a[k1 + 1] = -a[k1 + 1];
881 j1 = k1 + m2;
882 k1 = j1 + m2;
885 yr = a[k1];
886 yi = -a[k1 + 1];
889 a[k1] = xr;
890 a[k1 + 1] = xi;
891 k1 += m2;
892 a[k1 + 1] = -a[k1 + 1];
900 k1 = 2 * k + ip[j];
903 yr = a[k1];
904 yi = -a[k1 + 1];
907 a[k1] = xr;
908 a[k1 + 1] = xi;
910 k1 += m2;
913 yr = a[k1];
914 yi = -a[k1 + 1];
917 a[k1] = xr;
918 a[k1 + 1] = xi;
920 k1 = 2 * k + ip[k];
921 a[k1 + 1] = -a[k1 + 1];
922 a[k1 + m2 + 1] = -a[k1 + m2 + 1];
1034 int j, k1, k2;
1075 k1 = 0;
1077 k1 += 2;
1078 k2 = 2 * k1;
1079 wk2r = w[k1];
1080 wk2i = w[k1 + 1];
1139 int j, j1, j2, j3, k, k1, k2, m, m2;
1191 k1 = 0;
1194 k1 += 2;
1195 k2 = 2 * k1;
1196 wk2r = w[k1];
1197 wk2i = w[k1 + 1];
