Lines Matching defs:j1
695 int j, j1, k, k1, l, m, m2;
712 j1 = 2 * j + ip[k];
714 xr = a[j1];
715 xi = a[j1 + 1];
718 a[j1] = yr;
719 a[j1 + 1] = yi;
722 j1 += m2;
724 xr = a[j1];
725 xi = a[j1 + 1];
728 a[j1] = yr;
729 a[j1 + 1] = yi;
732 j1 += m2;
734 xr = a[j1];
735 xi = a[j1 + 1];
738 a[j1] = yr;
739 a[j1 + 1] = yi;
742 j1 += m2;
744 xr = a[j1];
745 xi = a[j1 + 1];
748 a[j1] = yr;
749 a[j1 + 1] = yi;
753 j1 = 2 * k + m2 + ip[k];
754 k1 = j1 + m2;
755 xr = a[j1];
756 xi = a[j1 + 1];
759 a[j1] = yr;
760 a[j1 + 1] = yi;
767 j1 = 2 * j + ip[k];
769 xr = a[j1];
770 xi = a[j1 + 1];
773 a[j1] = yr;
774 a[j1 + 1] = yi;
777 j1 += m2;
779 xr = a[j1];
780 xi = a[j1 + 1];
783 a[j1] = yr;
784 a[j1 + 1] = yi;
795 int j, j1, k, k1, l, m, m2;
812 j1 = 2 * j + ip[k];
814 xr = a[j1];
815 xi = -a[j1 + 1];
818 a[j1] = yr;
819 a[j1 + 1] = yi;
822 j1 += m2;
824 xr = a[j1];
825 xi = -a[j1 + 1];
828 a[j1] = yr;
829 a[j1 + 1] = yi;
832 j1 += m2;
834 xr = a[j1];
835 xi = -a[j1 + 1];
838 a[j1] = yr;
839 a[j1 + 1] = yi;
842 j1 += m2;
844 xr = a[j1];
845 xi = -a[j1 + 1];
848 a[j1] = yr;
849 a[j1 + 1] = yi;
855 j1 = k1 + m2;
856 k1 = j1 + m2;
857 xr = a[j1];
858 xi = -a[j1 + 1];
861 a[j1] = yr;
862 a[j1 + 1] = yi;
873 j1 = 2 * j + ip[k];
875 xr = a[j1];
876 xi = -a[j1 + 1];
879 a[j1] = yr;
880 a[j1 + 1] = yi;
883 j1 += m2;
885 xr = a[j1];
886 xi = -a[j1 + 1];
889 a[j1] = yr;
890 a[j1 + 1] = yi;
904 int j, j1, j2, j3, l;
918 j1 = j + l;
919 j2 = j1 + l;
921 x0r = a[j] + a[j1];
922 x0i = a[j + 1] + a[j1 + 1];
923 x1r = a[j] - a[j1];
924 x1i = a[j + 1] - a[j1 + 1];
933 a[j1] = x1r - x3i;
934 a[j1 + 1] = x1i + x3r;
940 j1 = j + l;
941 x0r = a[j] - a[j1];
942 x0i = a[j + 1] - a[j1 + 1];
943 a[j] += a[j1];
944 a[j + 1] += a[j1 + 1];
945 a[j1] = x0r;
946 a[j1 + 1] = x0i;
954 int j, j1, j2, j3, l;
968 j1 = j + l;
969 j2 = j1 + l;
971 x0r = a[j] + a[j1];
972 x0i = -a[j + 1] - a[j1 + 1];
973 x1r = a[j] - a[j1];
974 x1i = -a[j + 1] + a[j1 + 1];
983 a[j1] = x1r - x3i;
984 a[j1 + 1] = x1i - x3r;
990 j1 = j + l;
991 x0r = a[j] - a[j1];
992 x0i = -a[j + 1] + a[j1 + 1];
993 a[j] += a[j1];
994 a[j + 1] = -a[j + 1] - a[j1 + 1];
995 a[j1] = x0r;
996 a[j1 + 1] = x0i;
1109 int j, j1, j2, j3, k, k1, k2, m, m2;
1115 j1 = j + l;
1116 j2 = j1 + l;
1118 x0r = a[j] + a[j1];
1119 x0i = a[j + 1] + a[j1 + 1];
1120 x1r = a[j] - a[j1];
1121 x1i = a[j + 1] - a[j1 + 1];
1130 a[j1] = x1r - x3i;
1131 a[j1 + 1] = x1i + x3r;
1137 j1 = j + l;
1138 j2 = j1 + l;
1140 x0r = a[j] + a[j1];
1141 x0i = a[j + 1] + a[j1 + 1];
1142 x1r = a[j] - a[j1];
1143 x1i = a[j + 1] - a[j1 + 1];
1154 a[j1] = wk1r * (x0r - x0i);
1155 a[j1 + 1] = wk1r * (x0r + x0i);
1173 j1 = j + l;
1174 j2 = j1 + l;
1176 x0r = a[j] + a[j1];
1177 x0i = a[j + 1] + a[j1 + 1];
1178 x1r = a[j] - a[j1];
1179 x1i = a[j + 1] - a[j1 + 1];
1192 a[j1] = wk1r * x0r - wk1i * x0i;
1193 a[j1 + 1] = wk1r * x0i + wk1i * x0r;
1204 j1 = j + l;
1205 j2 = j1 + l;
1207 x0r = a[j] + a[j1];
1208 x0i = a[j + 1] + a[j1 + 1];
1209 x1r = a[j] - a[j1];
1210 x1i = a[j + 1] - a[j1 + 1];
1223 a[j1] = wk1r * x0r - wk1i * x0i;
1224 a[j1 + 1] = wk1r * x0i + wk1i * x0r;