/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/fft/pfft1.0/fftpack/ |
H A D | dpssb5.F | 10 2 di2, di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, 15 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 38 cr5 = ti11*tr5+ti12*tr4 39 ci5 = ti11*ti5+ti12*ti4 40 cr4 = ti12*tr5-ti11*tr4 41 ci4 = ti12*ti5-ti11*ti4 69 cr5 = ti11*tr5+ti12*tr4 70 ci5 = ti11*ti5+ti12*ti4 71 cr4 = ti12*tr5-ti11*tr4 72 ci4 = ti12*ti5-ti11*ti4
|
H A D | dpssf5.F | 10 2 di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, ti4, 15 data ti12 / -0.5877852522 9247312916 8705954639 07277d0/ 33 cr5 = ti11*tr5+ti12*tr4 34 ci5 = ti11*ti5+ti12*ti4 35 cr4 = ti12*tr5-ti11*tr4 36 ci4 = ti12*ti5-ti11*ti4 64 cr5 = ti11*tr5+ti12*tr4 65 ci5 = ti11*ti5+ti12*ti4 66 cr4 = ti12*tr5-ti11*tr4 67 ci4 = ti12*ti5-ti11*ti4
|
H A D | spssb5.F | 8 data tr11,ti11,tr12,ti12 /.309016994374947,.951056516295154, 26 cr5 = ti11*tr5+ti12*tr4 27 ci5 = ti11*ti5+ti12*ti4 28 cr4 = ti12*tr5-ti11*tr4 29 ci4 = ti12*ti5-ti11*ti4 56 cr5 = ti11*tr5+ti12*tr4 57 ci5 = ti11*ti5+ti12*ti4 58 cr4 = ti12*tr5-ti11*tr4 59 ci4 = ti12*ti5-ti11*ti4
|
H A D | spssf5.F | 8 data tr11,ti11,tr12,ti12 /.309016994374947,-.951056516295154, 26 cr5 = ti11*tr5+ti12*tr4 27 ci5 = ti11*ti5+ti12*ti4 28 cr4 = ti12*tr5-ti11*tr4 29 ci4 = ti12*ti5-ti11*ti4 56 cr5 = ti11*tr5+ti12*tr4 57 ci5 = ti11*ti5+ti12*ti4 58 cr4 = ti12*tr5-ti11*tr4 59 ci4 = ti12*ti5-ti11*ti4
|
H A D | dradf5.F | 18 2 di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, ti4, 23 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 32 ch(1,3,k) = ti11*ci5+ti12*ci4 34 ch(1,5,k) = ti12*ci5-ti11*ci4 63 tr5 = ti11*cr5 + ti12*cr4 64 ti5 = ti11*ci5 + ti12*ci4 65 tr4 = ti12*cr5 - ti11*cr4 66 ti4 = ti12*ci5 - ti11*ci4
|
H A D | dradb5.F | 18 2 di2, di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, 23 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 33 ci5 = ti11*ti5+ti12*ti4 34 ci4 = ti12*ti5-ti11*ti4 59 cr5 = ti11*tr5 + ti12*tr4 60 ci5 = ti11*ti5 + ti12*ti4 61 cr4 = ti12*tr5 - ti11*tr4 62 ci4 = ti12*ti5 - ti11*ti4
|
H A D | sradb5.F | 8 data tr11,ti11,tr12,ti12 /.309016994374947,.951056516295154, 18 ci5 = ti11*ti5+ti12*ti4 19 ci4 = ti12*ti5-ti11*ti4 44 cr5 = ti11*tr5+ti12*tr4 45 ci5 = ti11*ti5+ti12*ti4 46 cr4 = ti12*tr5-ti11*tr4 47 ci4 = ti12*ti5-ti11*ti4
|
H A D | sradf5.F | 8 data tr11,ti11,tr12,ti12 /.309016994374947,.951056516295154, 17 ch(1,3,k) = ti11*ci5+ti12*ci4 19 ch(1,5,k) = ti12*ci5-ti11*ci4 48 tr5 = ti11*cr5+ti12*cr4 49 ti5 = ti11*ci5+ti12*ci4 50 tr4 = ti12*cr5-ti11*cr4 51 ti4 = ti12*ci5-ti11*ci4
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfft1.0/fftpack/ |
H A D | dpssb5.F | 10 2 di2, di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, 15 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 38 cr5 = ti11*tr5+ti12*tr4 39 ci5 = ti11*ti5+ti12*ti4 40 cr4 = ti12*tr5-ti11*tr4 41 ci4 = ti12*ti5-ti11*ti4 69 cr5 = ti11*tr5+ti12*tr4 70 ci5 = ti11*ti5+ti12*ti4 71 cr4 = ti12*tr5-ti11*tr4 72 ci4 = ti12*ti5-ti11*ti4
|
H A D | dpssf5.F | 10 2 di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, ti4, 15 data ti12 / -0.5877852522 9247312916 8705954639 07277d0/ 33 cr5 = ti11*tr5+ti12*tr4 34 ci5 = ti11*ti5+ti12*ti4 35 cr4 = ti12*tr5-ti11*tr4 36 ci4 = ti12*ti5-ti11*ti4 64 cr5 = ti11*tr5+ti12*tr4 65 ci5 = ti11*ti5+ti12*ti4 66 cr4 = ti12*tr5-ti11*tr4 67 ci4 = ti12*ti5-ti11*ti4
|
H A D | dradf5.F | 18 2 di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, ti4, 23 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 32 ch(1,3,k) = ti11*ci5+ti12*ci4 34 ch(1,5,k) = ti12*ci5-ti11*ci4 63 tr5 = ti11*cr5 + ti12*cr4 64 ti5 = ti11*ci5 + ti12*ci4 65 tr4 = ti12*cr5 - ti11*cr4 66 ti4 = ti12*ci5 - ti11*ci4
|
H A D | dradb5.F | 18 2 di2, di3, di4, di5, dr2, dr3, dr4, dr5, ti11, ti12, ti2, ti3, 23 data ti12 / 0.5877852522 9247312916 8705954639 07277d0/ 33 ci5 = ti11*ti5+ti12*ti4 34 ci4 = ti12*ti5-ti11*ti4 59 cr5 = ti11*tr5 + ti12*tr4 60 ci5 = ti11*ti5 + ti12*ti4 61 cr4 = ti12*tr5 - ti11*tr4 62 ci4 = ti12*ti5 - ti11*ti4
|
/dports/science/cdcl/dcl-5.4.8-C/src/math2/fftlib/ |
H A D | passf5.c | 24 static real ti12 = -.587785252292473f; in passf5_() local 69 cr5 = ti11 * tr5 + ti12 * tr4; in passf5_() 70 ci5 = ti11 * ti5 + ti12 * ti4; in passf5_() 71 cr4 = ti12 * tr5 - ti11 * tr4; in passf5_() 72 ci4 = ti12 * ti5 - ti11 * ti4; in passf5_() 115 cr5 = ti11 * tr5 + ti12 * tr4; in passf5_() 116 ci5 = ti11 * ti5 + ti12 * ti4; in passf5_() 117 cr4 = ti12 * tr5 - ti11 * tr4; in passf5_() 118 ci4 = ti12 * ti5 - ti11 * ti4; in passf5_()
|
H A D | passb5.c | 24 static real ti12 = .587785252292473f; in passb5_() local 69 cr5 = ti11 * tr5 + ti12 * tr4; in passb5_() 70 ci5 = ti11 * ti5 + ti12 * ti4; in passb5_() 71 cr4 = ti12 * tr5 - ti11 * tr4; in passb5_() 72 ci4 = ti12 * ti5 - ti11 * ti4; in passb5_() 115 cr5 = ti11 * tr5 + ti12 * tr4; in passb5_() 116 ci5 = ti11 * ti5 + ti12 * ti4; in passb5_() 117 cr4 = ti12 * tr5 - ti11 * tr4; in passb5_() 118 ci4 = ti12 * ti5 - ti11 * ti4; in passb5_()
|
H A D | radb5.c | 24 static real ti12 = .587785252292473f; in radb5_() local 61 ci5 = ti11 * ti5 + ti12 * ti4; in radb5_() 62 ci4 = ti12 * ti5 - ti11 * ti4; in radb5_() 104 cr5 = ti11 * tr5 + ti12 * tr4; in radb5_() 105 ci5 = ti11 * ti5 + ti12 * ti4; in radb5_() 106 cr4 = ti12 * tr5 - ti11 * tr4; in radb5_() 107 ci4 = ti12 * ti5 - ti11 * ti4; in radb5_()
|
H A D | radf5.c | 24 static real ti12 = .587785252292473f; in radf5_() local 63 ch[(k * 5 + 3) * ch_dim1 + 1] = ti11 * ci5 + ti12 * ci4; in radf5_() 66 ch[(k * 5 + 5) * ch_dim1 + 1] = ti12 * ci5 - ti11 * ci4; in radf5_() 114 tr5 = ti11 * cr5 + ti12 * cr4; in radf5_() 115 ti5 = ti11 * ci5 + ti12 * ci4; in radf5_() 116 tr4 = ti12 * cr5 - ti11 * cr4; in radf5_() 117 ti4 = ti12 * ci5 - ti11 * ci4; in radf5_()
|
/dports/math/fxt/fxt/src/fft/ |
H A D | fft9.cc | 186 double ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9, ti10, ti11, ti12, ti13, ti14; in fft9_m1() local 207 ti12 = ti2 - ti4; in fft9_m1() 216 ti15 = ti12 + ti11; in fft9_m1() 220 mi4 = CU2 * ti12; in fft9_m1() 295 ti12 = mi7 + ti2 + ti3; in fft9_m1() 309 xi[4]= ti9 + ti12; in fft9_m1() 310 xi[5]= ti9 - ti12; in fft9_m1()
|
/dports/science/healpix/Healpix_3.50/src/f90/sharp/libfftpack/ |
H A D | fftpack_inc.c | 136 ti12= PSIGN 0.58778525229247312917; variable 151 c5.r=ti11*t5.r+ti12*t4.r; 152 c5.i=ti11*t5.i+ti12*t4.i; 153 c4.r=ti12*t5.r-ti11*t4.r; 154 c4.i=ti12*t5.i-ti11*t4.i; 172 c5.r=ti11*t5.r+ti12*t4.r; 173 c5.i=ti11*t5.i+ti12*t4.i; 174 c4.r=ti12*t5.r-ti11*t4.r; 175 c4.i=ti12*t5.i-ti11*t4.i;
|
/dports/science/healpix/Healpix_3.50/src/f90/psht/libfftpack/ |
H A D | fftpack_inc.c | 136 ti12= PSIGN 0.58778525229247312917; variable 151 c5.r=ti11*t5.r+ti12*t4.r; 152 c5.i=ti11*t5.i+ti12*t4.i; 153 c4.r=ti12*t5.r-ti11*t4.r; 154 c4.i=ti12*t5.i-ti11*t4.i; 172 c5.r=ti11*t5.r+ti12*t4.r; 173 c5.i=ti11*t5.i+ti12*t4.i; 174 c4.r=ti12*t5.r-ti11*t4.r; 175 c4.i=ti12*t5.i-ti11*t4.i;
|
/dports/science/tinker/tinker/source/ |
H A D | fftpack.f | 684 real*8 tr12,ti12 local 713 cr5 = ti11*tr5 + ti12*tr4 714 ci5 = ti11*ti5 + ti12*ti4 715 cr4 = ti12*tr5 - ti11*tr4 716 ci4 = ti12*ti5 - ti11*ti4 743 cr5 = ti11*tr5 + ti12*tr4 1102 real*8 tr12,ti12 local 1131 cr5 = ti11*tr5 + ti12*tr4 1132 ci5 = ti11*ti5 + ti12*ti4 1133 cr4 = ti12*tr5 - ti11*tr4 [all …]
|
/dports/science/elk/elk-7.2.42/src/fftlib/ |
H A D | cfftnd.f90 | 1589 cr5 = ti11*tr5+ti12*tr4 1590 ci5 = ti11*ti5+ti12*ti4 1591 cr4 = ti12*tr5-ti11*tr4 1592 ci4 = ti12*ti5-ti11*ti4 1798 cr5 = ti11*tr5+ti12*tr4 1799 ci5 = ti11*ti5+ti12*ti4 1800 cr4 = ti12*tr5-ti11*tr4 1801 ci4 = ti12*ti5-ti11*ti4 1878 cr5 = ti11*tr5+ti12*tr4 1879 ci5 = ti11*ti5+ti12*ti4 [all …]
|
/dports/lang/yorick/yorick-y_2_2_04/fft/ |
H A D | cfftf.c | 315 static double ti12=-0.587785252292473129168705954639072769; /*sin(-4*pi/5)*/ in passf5() local 360 cr5 = ti11*tr5+ti12*tr4; in passf5() 361 ci5 = ti11*ti5+ti12*ti4; in passf5() 362 cr4 = ti12*tr5-ti11*tr4; in passf5() 363 ci4 = ti12*ti5-ti11*ti4; in passf5() 390 cr5 = ti11*tr5+ti12*tr4; in passf5() 391 ci5 = ti11*ti5+ti12*ti4; in passf5() 392 cr4 = ti12*tr5-ti11*tr4; in passf5() 393 ci4 = ti12*ti5-ti11*ti4; in passf5()
|
H A D | cfftb.c | 315 static double ti12= 0.587785252292473129168705954639072769; /*sin(+4*pi/5)*/ in passb5() local 360 cr5 = ti11*tr5+ti12*tr4; in passb5() 361 ci5 = ti11*ti5+ti12*ti4; in passb5() 362 cr4 = ti12*tr5-ti11*tr4; in passb5() 363 ci4 = ti12*ti5-ti11*ti4; in passb5() 390 cr5 = ti11*tr5+ti12*tr4; in passb5() 391 ci5 = ti11*ti5+ti12*ti4; in passb5() 392 cr4 = ti12*tr5-ti11*tr4; in passb5() 393 ci4 = ti12*ti5-ti11*ti4; in passb5()
|
/dports/astro/oskar/OSKAR-2.8.0/oskar/math/src/ |
H A D | oskar_fftpack_cfft.c | 936 static const double ti12 = .5877852522924731; in cmf5kb() local 987 cr5 = ti11 * tr5 + ti12 * tr4; in cmf5kb() 988 ci5 = ti11 * ti5 + ti12 * ti4; in cmf5kb() 989 cr4 = ti12 * tr5 - ti11 * tr4; in cmf5kb() 990 ci4 = ti12 * ti5 - ti11 * ti4; in cmf5kb() 1092 cr5 = ti11 * tr5 + ti12 * tr4; in cmf5kb() 1093 ci5 = ti11 * ti5 + ti12 * ti4; in cmf5kb() 1094 cr4 = ti12 * tr5 - ti11 * tr4; in cmf5kb() 1095 ci4 = ti12 * ti5 - ti11 * ti4; in cmf5kb() 1117 static const double ti12 = -.5877852522924731; in cmf5kf() local [all …]
|
H A D | oskar_fftpack_cfft_f.c | 936 static const float ti12 = .5877852522924731f; in cmf5kb() local 987 cr5 = ti11 * tr5 + ti12 * tr4; in cmf5kb() 988 ci5 = ti11 * ti5 + ti12 * ti4; in cmf5kb() 989 cr4 = ti12 * tr5 - ti11 * tr4; in cmf5kb() 990 ci4 = ti12 * ti5 - ti11 * ti4; in cmf5kb() 1092 cr5 = ti11 * tr5 + ti12 * tr4; in cmf5kb() 1093 ci5 = ti11 * ti5 + ti12 * ti4; in cmf5kb() 1094 cr4 = ti12 * tr5 - ti11 * tr4; in cmf5kb() 1095 ci4 = ti12 * ti5 - ti11 * ti4; in cmf5kb() 1117 static const float ti12 = -.5877852522924731f; in cmf5kf() local [all …]
|