📄 gpfa5f.c
字号:
/*< bjo = b(jo+j) >*/
bjo = b[jo + j];
/*< u1 = bjh + bjo >*/
u1 = bjh + bjo;
/*< bjm = b(jm+j) >*/
bjm = b[jm + j];
/*< bjn = b(jn+j) >*/
bjn = b[jn + j];
/*< u2 = bjm + bjn >*/
u2 = bjm + bjn;
/*< u3 = bjh - bjo >*/
u3 = bjh - bjo;
/*< u4 = bjm - bjn >*/
u4 = bjm - bjn;
/*< bjr = b(jr+j) >*/
bjr = b[jr + j];
/*< bjn = bjr >*/
bjn = bjr;
/*< u5 = u1 + u2 >*/
u5 = u1 + u2;
/*< u6 = c1 * ( u1 - u2 ) >*/
u6 = c1 * (u1 - u2);
/*< u7 = bjc - 0.25 * u5 >*/
u7 = bjc - u5 * (float).25;
/*< b(jc+j) = bjc + u5 >*/
b[jc + j] = bjc + u5;
/*< u8 = u7 + u6 >*/
u8 = u7 + u6;
/*< u9 = u7 - u6 >*/
u9 = u7 - u6;
/*< bjw = b(jw+j) >*/
bjw = b[jw + j];
/*< bjo = bjw >*/
bjo = bjw;
/*< u10 = c3 * u3 - c2 * u4 >*/
u10 = c3 * u3 - c2 * u4;
/*< u11 = c2 * u3 + c3 * u4 >*/
u11 = c2 * u3 + c3 * u4;
/*< a(jh+j) = t8 - u11 >*/
a[jh + j] = t8 - u11;
/*< b(jh+j) = u8 + t11 >*/
b[jh + j] = u8 + t11;
/*< a(jw+j) = t8 + u11 >*/
a[jw + j] = t8 + u11;
/*< b(jw+j) = u8 - t11 >*/
b[jw + j] = u8 - t11;
/*< a(jm+j) = t9 - u10 >*/
a[jm + j] = t9 - u10;
/*< b(jm+j) = u9 + t10 >*/
b[jm + j] = u9 + t10;
/*< a(jr+j) = t9 + u10 >*/
a[jr + j] = t9 + u10;
/*< b(jr+j) = u9 - t10 >*/
b[jr + j] = u9 - t10;
/* ---------------------- */
/*< ajt = a(jt+j) >*/
ajt = a[jt + j];
/*< t1 = aji + ajt >*/
t1 = aji + ajt;
/*< ajs = a(js+j) >*/
ajs = a[js + j];
/*< t2 = ajn + ajs >*/
t2 = ajn + ajs;
/*< t3 = aji - ajt >*/
t3 = aji - ajt;
/*< t4 = ajn - ajs >*/
t4 = ajn - ajs;
/*< ajx = a(jx+j) >*/
ajx = a[jx + j];
/*< ajt = ajx >*/
ajt = ajx;
/*< t5 = t1 + t2 >*/
t5 = t1 + t2;
/*< t6 = c1 * ( t1 - t2 ) >*/
t6 = c1 * (t1 - t2);
/*< ajp = a(jp+j) >*/
ajp = a[jp + j];
/*< t7 = ajp - 0.25 * t5 >*/
t7 = ajp - t5 * (float).25;
/*< ax = ajp + t5 >*/
ax = ajp + t5;
/*< t8 = t7 + t6 >*/
t8 = t7 + t6;
/*< t9 = t7 - t6 >*/
t9 = t7 - t6;
/*< a(jp+j) = ajd >*/
a[jp + j] = ajd;
/*< t10 = c3 * t3 - c2 * t4 >*/
t10 = c3 * t3 - c2 * t4;
/*< t11 = c2 * t3 + c3 * t4 >*/
t11 = c2 * t3 + c3 * t4;
/*< a(jd+j) = ax >*/
a[jd + j] = ax;
/*< bjt = b(jt+j) >*/
bjt = b[jt + j];
/*< u1 = bji + bjt >*/
u1 = bji + bjt;
/*< bjs = b(js+j) >*/
bjs = b[js + j];
/*< u2 = bjn + bjs >*/
u2 = bjn + bjs;
/*< u3 = bji - bjt >*/
u3 = bji - bjt;
/*< u4 = bjn - bjs >*/
u4 = bjn - bjs;
/*< bjx = b(jx+j) >*/
bjx = b[jx + j];
/*< bjt = bjx >*/
bjt = bjx;
/*< u5 = u1 + u2 >*/
u5 = u1 + u2;
/*< u6 = c1 * ( u1 - u2 ) >*/
u6 = c1 * (u1 - u2);
/*< bjp = b(jp+j) >*/
bjp = b[jp + j];
/*< u7 = bjp - 0.25 * u5 >*/
u7 = bjp - u5 * (float).25;
/*< bx = bjp + u5 >*/
bx = bjp + u5;
/*< u8 = u7 + u6 >*/
u8 = u7 + u6;
/*< u9 = u7 - u6 >*/
u9 = u7 - u6;
/*< b(jp+j) = bjd >*/
b[jp + j] = bjd;
/*< u10 = c3 * u3 - c2 * u4 >*/
u10 = c3 * u3 - c2 * u4;
/*< u11 = c2 * u3 + c3 * u4 >*/
u11 = c2 * u3 + c3 * u4;
/*< b(jd+j) = bx >*/
b[jd + j] = bx;
/*< a(ji+j) = t8 - u11 >*/
a[ji + j] = t8 - u11;
/*< b(ji+j) = u8 + t11 >*/
b[ji + j] = u8 + t11;
/*< a(jx+j) = t8 + u11 >*/
a[jx + j] = t8 + u11;
/*< b(jx+j) = u8 - t11 >*/
b[jx + j] = u8 - t11;
/*< a(jn+j) = t9 - u10 >*/
a[jn + j] = t9 - u10;
/*< b(jn+j) = u9 + t10 >*/
b[jn + j] = u9 + t10;
/*< a(js+j) = t9 + u10 >*/
a[js + j] = t9 + u10;
/*< b(js+j) = u9 - t10 >*/
b[js + j] = u9 - t10;
/* ---------------------- */
/*< ajv = a(jv+j) >*/
ajv = a[jv + j];
/*< ajy = a(jy+j) >*/
ajy = a[jy + j];
/*< t1 = ajv + ajy >*/
t1 = ajv + ajy;
/*< t2 = ajo + ajt >*/
t2 = ajo + ajt;
/*< t3 = ajv - ajy >*/
t3 = ajv - ajy;
/*< t4 = ajo - ajt >*/
t4 = ajo - ajt;
/*< a(jv+j) = ajj >*/
a[jv + j] = ajj;
/*< t5 = t1 + t2 >*/
t5 = t1 + t2;
/*< t6 = c1 * ( t1 - t2 ) >*/
t6 = c1 * (t1 - t2);
/*< aju = a(ju+j) >*/
aju = a[ju + j];
/*< t7 = aju - 0.25 * t5 >*/
t7 = aju - t5 * (float).25;
/*< ax = aju + t5 >*/
ax = aju + t5;
/*< t8 = t7 + t6 >*/
t8 = t7 + t6;
/*< t9 = t7 - t6 >*/
t9 = t7 - t6;
/*< a(ju+j) = aje >*/
a[ju + j] = aje;
/*< t10 = c3 * t3 - c2 * t4 >*/
t10 = c3 * t3 - c2 * t4;
/*< t11 = c2 * t3 + c3 * t4 >*/
t11 = c2 * t3 + c3 * t4;
/*< a(je+j) = ax >*/
a[je + j] = ax;
/*< bjv = b(jv+j) >*/
bjv = b[jv + j];
/*< bjy = b(jy+j) >*/
bjy = b[jy + j];
/*< u1 = bjv + bjy >*/
u1 = bjv + bjy;
/*< u2 = bjo + bjt >*/
u2 = bjo + bjt;
/*< u3 = bjv - bjy >*/
u3 = bjv - bjy;
/*< u4 = bjo - bjt >*/
u4 = bjo - bjt;
/*< b(jv+j) = bjj >*/
b[jv + j] = bjj;
/*< u5 = u1 + u2 >*/
u5 = u1 + u2;
/*< u6 = c1 * ( u1 - u2 ) >*/
u6 = c1 * (u1 - u2);
/*< bju = b(ju+j) >*/
bju = b[ju + j];
/*< u7 = bju - 0.25 * u5 >*/
u7 = bju - u5 * (float).25;
/*< bx = bju + u5 >*/
bx = bju + u5;
/*< u8 = u7 + u6 >*/
u8 = u7 + u6;
/*< u9 = u7 - u6 >*/
u9 = u7 - u6;
/*< b(ju+j) = bje >*/
b[ju + j] = bje;
/*< u10 = c3 * u3 - c2 * u4 >*/
u10 = c3 * u3 - c2 * u4;
/*< u11 = c2 * u3 + c3 * u4 >*/
u11 = c2 * u3 + c3 * u4;
/*< b(je+j) = bx >*/
b[je + j] = bx;
/*< a(jj+j) = t8 - u11 >*/
a[jj + j] = t8 - u11;
/*< b(jj+j) = u8 + t11 >*/
b[jj + j] = u8 + t11;
/*< a(jy+j) = t8 + u11 >*/
a[jy + j] = t8 + u11;
/*< b(jy+j) = u8 - t11 >*/
b[jy + j] = u8 - t11;
/*< a(jo+j) = t9 - u10 >*/
a[jo + j] = t9 - u10;
/*< b(jo+j) = u9 + t10 >*/
b[jo + j] = u9 + t10;
/*< a(jt+j) = t9 + u10 >*/
a[jt + j] = t9 + u10;
/*< b(jt+j) = u9 - t10 >*/
b[jt + j] = u9 - t10;
/*< j = j + jump >*/
j += *jump;
/*< 410 continue >*/
/* L410: */
}
/*< else >*/
} else {
/* dir$ ivdep, shortloop */
/*< do 440 l = 1 , nvex >*/
i__10 = nvex;
for (l = 1; l <= i__10; ++l) {
/*< ajb = a(jb+j) >*/
ajb = a[jb + j];
/*< aje = a(je+j) >*/
aje = a[je + j];
/*< t1 = ajb + aje >*/
t1 = ajb + aje;
/*< ajc = a(jc+j) >*/
ajc = a[jc + j];
/*< ajd = a(jd+j) >*/
ajd = a[jd + j];
/*< t2 = ajc + ajd >*/
t2 = ajc + ajd;
/*< t3 = ajb - aje >*/
t3 = ajb - aje;
/*< t4 = ajc - ajd >*/
t4 = ajc - ajd;
/*< ajf = a(jf+j) >*/
ajf = a[jf + j];
/*< ajb = ajf >*/
ajb = ajf;
/*< t5 = t1 + t2 >*/
t5 = t1 + t2;
/*< t6 = c1 * ( t1 - t2 ) >*/
t6 = c1 * (t1 - t2);
/*< aja = a(ja+j) >*/
aja = a[ja + j];
/*< t7 = aja - 0.25 * t5 >*/
t7 = aja - t5 * (float).25;
/*< a(ja+j) = aja + t5 >*/
a[ja + j] = aja + t5;
/*< t8 = t7 + t6 >*/
t8 = t7 + t6;
/*< t9 = t7 - t6 >*/
t9 = t7 - t6;
/*< ajk = a(jk+j) >*/
ajk = a[jk + j];
/*< ajc = ajk >*/
ajc = ajk;
/*< t10 = c3 * t3 - c2 * t4 >*/
t10 = c3 * t3 - c2 * t4;
/*< t11 = c2 * t3 + c3 * t4 >*/
t11 = c2 * t3 + c3 * t4;
/*< bjb = b(jb+j) >*/
bjb = b[jb + j];
/*< bje = b(je+j) >*/
bje = b[je + j];
/*< u1 = bjb + bje >*/
u1 = bjb + bje;
/*< bjc = b(jc+j) >*/
bjc = b[jc + j];
/*< bjd = b(jd+j) >*/
bjd = b[jd + j];
/*< u2 = bjc + bjd >*/
u2 = bjc + bjd;
/*< u3 = bjb - bje >*/
u3 = bjb - bje;
/*< u4 = bjc - bjd >*/
u4 = bjc - bjd;
/*< bjf = b(jf+j) >*/
bjf = b[jf + j];
/*< bjb = bjf >*/
bjb = bjf;
/*< u5 = u1 + u2 >*/
u5 = u1 + u2;
/*< u6 = c1 * ( u1 - u2 ) >*/
u6 = c1 * (u1 - u2);
/*< bja = b(ja+j) >*/
bja = b[ja + j];
/*< u7 = bja - 0.25 * u5 >*/
u7 = bja - u5 * (float).25;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -