50             u9;  in gpfa5f_()  local
333                                 u9 = u7 - u6;  in gpfa5f_()
349                                 b[jc + j] = u9 + t10;  in gpfa5f_()
353                                 b[jd + j] = u9 - t10;  in gpfa5f_()
430                                 u9 = u7 - u6;  in gpfa5f_()
448                                 a[jc + j] = co2 * (t9 - u10) - si2 * (u9 +  in gpfa5f_()
451                                 b[jc + j] = si2 * (t9 - u10) + co2 * (u9 +  in gpfa5f_()
454                                 a[jd + j] = co3 * (t9 + u10) - si3 * (u9 -  in gpfa5f_()
457                                 b[jd + j] = si3 * (t9 + u10) + co3 * (u9 -  in gpfa5f_()
797                                     u9 = u7 - u6;  in gpfa5f_()
817                                     b[jk + j] = u9 + t10;  in gpfa5f_()
821                                     bjd = u9 - t10;  in gpfa5f_()
894                                     u9 = u7 - u6;  in gpfa5f_()
914                                     b[jl + j] = u9 + t10;  in gpfa5f_()
918                                     b[jq + j] = u9 - t10;  in gpfa5f_()
987                                     u9 = u7 - u6;  in gpfa5f_()
1007                                     b[jm + j] = u9 + t10;  in gpfa5f_()
1011                                     b[jr + j] = u9 - t10;  in gpfa5f_()
1080                                     u9 = u7 - u6;  in gpfa5f_()
1100                                     b[jn + j] = u9 + t10;  in gpfa5f_()
1104                                     b[js + j] = u9 - t10;  in gpfa5f_()
1169                                     u9 = u7 - u6;  in gpfa5f_()
1189                                     b[jo + j] = u9 + t10;  in gpfa5f_()
1193                                     b[jt + j] = u9 - t10;  in gpfa5f_()
1282                                     u9 = u7 - u6;  in gpfa5f_()
1302                                     a[jk + j] = co2 * (t9 - u10) - si2 * (u9  in gpfa5f_()
1305                                     b[jk + j] = si2 * (t9 - u10) + co2 * (u9  in gpfa5f_()
1308                                     ajd = co3 * (t9 + u10) - si3 * (u9 - t10);  in gpfa5f_()
1310                                     bjd = si3 * (t9 + u10) + co3 * (u9 - t10);  in gpfa5f_()
1383                                     u9 = u7 - u6;  in gpfa5f_()
1403                                     a[jl + j] = co2 * (t9 - u10) - si2 * (u9  in gpfa5f_()
1406                                     b[jl + j] = si2 * (t9 - u10) + co2 * (u9  in gpfa5f_()
1409                                     a[jq + j] = co3 * (t9 + u10) - si3 * (u9  in gpfa5f_()
1412                                     b[jq + j] = si3 * (t9 + u10) + co3 * (u9  in gpfa5f_()
1482                                     u9 = u7 - u6;  in gpfa5f_()
1504                                     a[jm + j] = co2 * (t9 - u10) - si2 * (u9  in gpfa5f_()
1507                                     b[jm + j] = si2 * (t9 - u10) + co2 * (u9  in gpfa5f_()
1510                                     a[jr + j] = co3 * (t9 + u10) - si3 * (u9  in gpfa5f_()
1513                                     b[jr + j] = si3 * (t9 + u10) + co3 * (u9  in gpfa5f_()
1583                                     u9 = u7 - u6;  in gpfa5f_()
1605                                     a[jn + j] = co2 * (t9 - u10) - si2 * (u9  in gpfa5f_()
1608                                     b[jn + j] = si2 * (t9 - u10) + co2 * (u9  in gpfa5f_()
1611                                     a[js + j] = co3 * (t9 + u10) - si3 * (u9  in gpfa5f_()
1614                                     b[js + j] = si3 * (t9 + u10) + co3 * (u9  in gpfa5f_()
1680                                     u9 = u7 - u6;  in gpfa5f_()
1702                                     a[jo + j] = co2 * (t9 - u10) - si2 * (u9  in gpfa5f_()
1705                                     b[jo + j] = si2 * (t9 - u10) + co2 * (u9  in gpfa5f_()
1708                                     a[jt + j] = co3 * (t9 + u10) - si3 * (u9  in gpfa5f_()
1711                                     b[jt + j] = si3 * (t9 + u10) + co3 * (u9  in gpfa5f_()