/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | radf5.f | 18 CI4 = CC(1,K,4)-CC(1,K,3) 21 CH(1,3,K) = TI11*CI5+TI12*CI4 23 CH(1,5,K) = TI12*CI5-TI11*CI4 45 CI4 = DR4-DR3 55 TI5 = TI11*CI5+TI12*CI4 57 TI4 = TI12*CI5-TI11*CI4 86 CI4 = DR4-DR3 96 TI5 = TI11*CI5+TI12*CI4 98 TI4 = TI12*CI5-TI11*CI4
|
H A D | radb5.f | 23 CI4 = TI12*TI5-TI11*TI4 25 CH(1,K,3) = CR3-CI4 26 CH(1,K,4) = CR3+CI4 53 CI4 = TI12*TI5-TI11*TI4 54 DR3 = CR3-CI4 55 DR4 = CR3+CI4 94 CI4 = TI12*TI5-TI11*TI4 95 DR3 = CR3-CI4 96 DR4 = CR3+CI4
|
H A D | passb5.f | 33 CI4 = TI12*TI5-TI11*TI4 38 CH(1,K,3) = CR3-CI4 39 CH(1,K,4) = CR3+CI4 65 CI4 = TI12*TI5-TI11*TI4 66 DR3 = CR3-CI4 67 DR4 = CR3+CI4 105 CI4 = TI12*TI5-TI11*TI4 106 DR3 = CR3-CI4 107 DR4 = CR3+CI4
|
H A D | passf5.f | 33 CI4 = TI12*TI5-TI11*TI4 38 CH(1,K,3) = CR3-CI4 39 CH(1,K,4) = CR3+CI4 65 CI4 = TI12*TI5-TI11*TI4 66 DR3 = CR3-CI4 67 DR4 = CR3+CI4 105 CI4 = TI12*TI5-TI11*TI4 106 DR3 = CR3-CI4 107 DR4 = CR3+CI4
|
H A D | passb4.f | 51 CI4 = TI1-TI4 56 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 57 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4 79 CI4 = TI1-TI4 84 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 85 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4
|
H A D | radf4.f | 33 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 36 TI1 = CI2+CI4 37 TI4 = CI2-CI4 62 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 65 TI1 = CI2+CI4 66 TI4 = CI2-CI4
|
H A D | passf4.f | 51 CI4 = TI1-TI4 56 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 57 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4 79 CI4 = TI1-TI4 84 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 85 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | radf5.f | 36 CI4 = CC(1,K,4)-CC(1,K,3) 39 CH(1,3,K) = TI11*CI5+TI12*CI4 41 CH(1,5,K) = TI12*CI5-TI11*CI4 63 CI4 = DR4-DR3 73 TI5 = TI11*CI5+TI12*CI4 75 TI4 = TI12*CI5-TI11*CI4 104 CI4 = DR4-DR3 114 TI5 = TI11*CI5+TI12*CI4 116 TI4 = TI12*CI5-TI11*CI4
|
H A D | radb5.f | 41 CI4 = TI12*TI5-TI11*TI4 43 CH(1,K,3) = CR3-CI4 44 CH(1,K,4) = CR3+CI4 71 CI4 = TI12*TI5-TI11*TI4 72 DR3 = CR3-CI4 73 DR4 = CR3+CI4 112 CI4 = TI12*TI5-TI11*TI4 113 DR3 = CR3-CI4 114 DR4 = CR3+CI4
|
H A D | radf4.f | 47 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 50 TI1 = CI2+CI4 51 TI4 = CI2-CI4 76 CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4) 79 TI1 = CI2+CI4 80 TI4 = CI2-CI4
|
H A D | radb4.f | 59 CI4 = TI1-TI4 64 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 65 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 88 CI4 = TI1-TI4 93 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 94 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
|
/dports/math/slatec/src/ |
H A D | radf5.f | 36 CI4 = CC(1,K,4)-CC(1,K,3) 39 CH(1,3,K) = TI11*CI5+TI12*CI4 41 CH(1,5,K) = TI12*CI5-TI11*CI4 63 CI4 = DR4-DR3 73 TI5 = TI11*CI5+TI12*CI4 75 TI4 = TI12*CI5-TI11*CI4 104 CI4 = DR4-DR3 114 TI5 = TI11*CI5+TI12*CI4 116 TI4 = TI12*CI5-TI11*CI4
|
H A D | radb5.f | 41 CI4 = TI12*TI5-TI11*TI4 43 CH(1,K,3) = CR3-CI4 44 CH(1,K,4) = CR3+CI4 71 CI4 = TI12*TI5-TI11*TI4 72 DR3 = CR3-CI4 73 DR4 = CR3+CI4 112 CI4 = TI12*TI5-TI11*TI4 113 DR3 = CR3-CI4 114 DR4 = CR3+CI4
|
H A D | passf5.f | 51 CI4 = TI12*TI5-TI11*TI4 56 CH(1,K,3) = CR3-CI4 57 CH(1,K,4) = CR3+CI4 83 CI4 = TI12*TI5-TI11*TI4 84 DR3 = CR3-CI4 85 DR4 = CR3+CI4 123 CI4 = TI12*TI5-TI11*TI4 124 DR3 = CR3-CI4 125 DR4 = CR3+CI4
|
H A D | passb5.f | 51 CI4 = TI12*TI5-TI11*TI4 56 CH(1,K,3) = CR3-CI4 57 CH(1,K,4) = CR3+CI4 83 CI4 = TI12*TI5-TI11*TI4 84 DR3 = CR3-CI4 85 DR4 = CR3+CI4 123 CI4 = TI12*TI5-TI11*TI4 124 DR3 = CR3-CI4 125 DR4 = CR3+CI4
|
H A D | passb4.f | 62 CI4 = TI1-TI4 67 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 68 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4 90 CI4 = TI1-TI4 95 CH(I-1,K,4) = WA3(I-1)*CR4-WA3(I)*CI4 96 CH(I,K,4) = WA3(I-1)*CI4+WA3(I)*CR4
|
H A D | radb4.f | 59 CI4 = TI1-TI4 64 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 65 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 88 CI4 = TI1-TI4 93 CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 94 CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
|
H A D | passf4.f | 62 CI4 = TI1-TI4 67 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 68 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4 90 CI4 = TI1-TI4 95 CH(I-1,K,4) = WA3(I-1)*CR4+WA3(I)*CI4 96 CH(I,K,4) = WA3(I-1)*CI4-WA3(I)*CR4
|
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/ |
H A D | radf5.f | 11 CI4 = CC(1,K,4)-CC(1,K,3) 14 CH(1,3,K) = TI11*CI5+TI12*CI4 16 CH(1,5,K) = TI12*CI5-TI11*CI4 36 CI4 = DR4-DR3 46 TI5 = TI11*CI5+TI12*CI4 48 TI4 = TI12*CI5-TI11*CI4
|
H A D | radb5.f | 16 CI4 = TI12*TI5-TI11*TI4 18 CH(1,K,3) = CR3-CI4 19 CH(1,K,4) = CR3+CI4 44 CI4 = TI12*TI5-TI11*TI4 45 DR3 = CR3-CI4 46 DR4 = CR3+CI4
|
H A D | passb5.f | 26 CI4 = TI12*TI5-TI11*TI4 31 CH(1,K,3) = CR3-CI4 32 CH(1,K,4) = CR3+CI4 56 CI4 = TI12*TI5-TI11*TI4 57 DR3 = CR3-CI4 58 DR4 = CR3+CI4
|
H A D | passf5.f | 26 CI4 = TI12*TI5-TI11*TI4 31 CH(1,K,3) = CR3-CI4 32 CH(1,K,4) = CR3+CI4 56 CI4 = TI12*TI5-TI11*TI4 57 DR3 = CR3-CI4 58 DR4 = CR3+CI4
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | pr101026.f | 7 CI4 = TI1-TI4 8 CH(I-1,K,4) = CI4 9 CH(I,K,4) = CI4
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | radf5.f | 12 CI4 = CC(1,K,4)-CC(1,K,3) 15 CH(1,3,K) = TI11*CI5+TI12*CI4 17 CH(1,5,K) = TI12*CI5-TI11*CI4 37 CI4 = DR4-DR3 47 TI5 = TI11*CI5+TI12*CI4 49 TI4 = TI12*CI5-TI11*CI4
|
H A D | radb5.f | 19 CI4 = TI12*TI5-TI11*TI4 21 CH(1,K,3) = CR3-CI4 22 CH(1,K,4) = CR3+CI4 47 CI4 = TI12*TI5-TI11*TI4 48 DR3 = CR3-CI4 49 DR4 = CR3+CI4
|