/dports/math/cmlib/cmlib-3.0_8/src/vfft/ |
H A D | vradb5.f | 10 TR12=COS(2.*ARG) 16 1 +TR12*2.*CC(M,IDO,4,K))-(TI11*2.*CC(M,1,3,K) 18 CH(M,1,K,3) = (CC(M,1,1,K)+TR12*2.*CC(M,IDO,2,K) 21 CH(M,1,K,4) = (CC(M,1,1,K)+TR12*2.*CC(M,IDO,2,K) 25 1 +TR12*2.*CC(M,IDO,4,K))+(TI11*2.*CC(M,1,3,K) 40 1 (CC(M,I-1,3,K)+CC(M,IC-1,2,K))+TR12 47 1 -CC(M,IC,2,K))+TR12*(CC(M,I,5,K)-CC(M,IC,4,K))) 59 1 *((CC(M,I,1,K)+TR12*(CC(M,I,3,K)- 64 1 *((CC(M,I,1,K)+TR12*(CC(M,I,3,K)- 77 1 *((CC(M,I,1,K)+TR12*(CC(M,I,3,K)- [all …]
|
H A D | vradf5.f | 10 TR12=COS(2.*ARG) 17 1 TR12*(CC(M,1,K,4)+CC(M,1,K,3)) 20 CH(M,IDO,4,K) = CC(M,1,K,1)+TR12*(CC(M,1,K,5)+CC(M,1,K,2))+ 43 1 +WA4(I-2)*CC(M,I-1,K,5)+WA4(I-1)*CC(M,I,K,5))+TR12* 52 1 +WA4(I-2)*CC(M,I-1,K,5)+WA4(I-1)*CC(M,I,K,5))+TR12* 61 1 CC(M,I-1,K,5)))+TR12*((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 74 1 CC(M,I-1,K,5)))+TR12*((WA2(I-2)*CC(M,I,K,3)-WA2(I-1)* 77 CH(M,I-1,5,K) = (CC(M,I-1,K,1)+TR12*((WA1(I-2)* 86 CH(M,IC-1,4,K) = (CC(M,I-1,K,1)+TR12*((WA1(I-2)* 95 CH(M,I,5,K) = (CC(M,I,K,1)+TR12*((WA1(I-2)*CC(M,I,K,2)- [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | passb5.f | 26 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 27 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 28 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 29 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 58 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 59 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 60 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 61 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 98 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 99 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 [all …]
|
H A D | passf5.f | 26 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 27 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 28 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 29 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 58 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 59 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 60 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 61 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 98 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 99 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 [all …]
|
H A D | radf5.f | 11 DATA TR11,TI11,TR12,TI12 /.309016994374947,.951056516295154, 20 CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 22 CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 50 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 51 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 52 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 53 TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3 91 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 92 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 93 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 [all …]
|
H A D | radb5.f | 11 DATA TR11,TI11,TR12,TI12 /.309016994374947,.951056516295154, 20 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 21 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 46 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 47 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 48 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 49 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 87 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 88 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 89 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 [all …]
|
/dports/math/slatec/src/ |
H A D | passf5.f | 30 TR12 = -SIN(.3*PI) 44 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 45 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 46 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 47 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 76 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 77 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 78 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 79 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 117 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 [all …]
|
H A D | passb5.f | 30 TR12 = -SIN(.3*PI) 44 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 45 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 46 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 47 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 76 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 77 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 78 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 79 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 117 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 [all …]
|
H A D | radf5.f | 30 TR12 = -SIN(.3*PI) 38 CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 40 CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 68 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 69 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 70 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 71 TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3 109 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 110 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 111 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 [all …]
|
H A D | radb5.f | 30 TR12 = -SIN(.3*PI) 38 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 39 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 64 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 65 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 66 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 67 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 105 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 106 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 107 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/ |
H A D | passb5.f | 5 DATA TR11,TI11,TR12,TI12 /.309016994374947,.951056516295154, 19 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 20 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 21 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 22 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 49 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 50 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 51 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 52 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
H A D | passf5.f | 5 DATA TR11,TI11,TR12,TI12 /.309016994374947,-.951056516295154, 19 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 20 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 21 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 22 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 49 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 50 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 51 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 52 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
H A D | radf5.f | 5 DATA TR11,TI11,TR12,TI12 /.309016994374947,.951056516295154, 13 CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 15 CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 41 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 42 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 43 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 44 TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3
|
H A D | radb5.f | 5 DATA TR11,TI11,TR12,TI12 /.309016994374947,.951056516295154, 13 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 14 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 37 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 38 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 39 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 40 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | passf5.f | 7 DATA TR11,TI11,TR12,TI12 /0.3090169943749474241D0, 22 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 23 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 24 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 25 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 52 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 53 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 54 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 55 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
H A D | passb5.f | 7 DATA TR11,TI11,TR12,TI12 /0.3090169943749474241D0, 22 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 23 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 24 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 25 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 52 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 53 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 54 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 55 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
H A D | radf5.f | 5 DATA TR11,TI11,TR12,TI12 /0.3090169943749474241D0, 14 CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 16 CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 42 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 43 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 44 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 45 TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3
|
H A D | radb5.f | 7 DATA TR11,TI11,TR12,TI12 /0.3090169943749474241D0, 16 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 17 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 40 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 41 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 42 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 43 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | radf5.f | 30 TR12 = -SIN(.3*PI) 38 CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3 40 CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3 68 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 69 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 70 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 71 TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3 109 TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3 110 TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 111 TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3 [all …]
|
H A D | radb5.f | 30 TR12 = -SIN(.3*PI) 38 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 39 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 64 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 65 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 66 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 67 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 105 CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 106 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 107 CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 [all …]
|
/dports/math/algae/algae-4.3.6/src/ |
H A D | cfft.f | 630 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 631 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 632 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 633 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 663 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 665 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 703 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 1234 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1235 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1236 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/contrib/qmd_tools/ |
H A D | qmd_analysis.f90 | 1088 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1089 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1090 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 1091 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 1119 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 1121 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 1409 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1410 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1411 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 1412 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/qmd_tools/ |
H A D | qmd_analysis.f90 | 1088 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1089 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1090 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 1091 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 1119 CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 1121 CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 1409 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1410 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1411 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 1412 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/ |
H A D | dfft.f | 1608 DATA TR11,TI11,TR12,TI12 / 1625 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1626 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1627 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 1628 CI3 = CC(2,1,K)+TR12*TI2+TR11*TI3 1923 DATA TR11,TI11,TR12,TI12 / 1940 CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3 1941 CI2 = CC(2,1,K)+TR11*TI2+TR12*TI3 1942 CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3 2126 DATA TR11,TI11,TR12,TI12 / [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | sint.F | 541 DOUBLE PRECISION TR12 local 569 DATA TR11,TI11,TR12,TI12/.309016994374947D0,.951056516295154D0, 580 CH(IDO,2,K) = CC(1,K,1) + TR11*CR2 + TR12*CR3 582 CH(IDO,4,K) = CC(1,K,1) + TR12*CR2 + TR11*CR3 608 TR2 = CC(I-1,K,1) + TR11*CR2 + TR12*CR3 609 TI2 = CC(I,K,1) + TR11*CI2 + TR12*CI3 610 TR3 = CC(I-1,K,1) + TR12*CR2 + TR11*CR3 611 TI3 = CC(I,K,1) + TR12*CI2 + TR11*CI3
|