/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | drfftf.f | 130 102 IDP2 = IDO+2 145 CH(IDO,1,K) = CC(IDO,K,1) 161 IDP2 = IDO+2 199 102 IDP2 = IDO+2 230 TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) 231 TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) 232 CH(IDO,1,K) = TR1+CC(IDO,K,1) 233 CH(IDO,3,K) = CC(IDO,K,1)-TR1 257 IDP2 = IDO+2 322 IS = -IDO [all …]
|
/dports/math/cloog/cloog-cloog-0.20.0/test/bigs/ |
H A D | apsi.N.w2p82 | 9 # IDO IP L1 IPPH IDL1 1 21 # IDO IP L1 IPPH IDL1 1 28 # IDO IP L1 IPPH IDL1 1 35 # IDO IP L1 IPPH IDL1 1 42 # IDO IP L1 IPPH IDL1 1 49 # IDO IP L1 IPPH IDL1 1 56 # IDO IP L1 IPPH IDL1 1 63 # IDO IP L1 IPPH IDL1 1 70 # IDO IP L1 IPPH IDL1 1 77 # IDO IP L1 IPPH IDL1 1 [all …]
|
H A D | apsi.N.w2p89 | 9 # IDL1 IDO L1 IP IPPH NBD 1 13 IDL1 IDO L1 IP IPPH NBD # parameter names 21 # IDL1 IDO L1 IP IPPH NBD 1 28 # IDL1 IDO L1 IP IPPH NBD 1 35 # IDL1 IDO L1 IP IPPH NBD 1 42 # IDL1 IDO L1 IP IPPH NBD 1 49 # IDL1 IDO L1 IP IPPH NBD 1 56 # IDL1 IDO L1 IP IPPH NBD 1 63 # IDL1 IDO L1 IP IPPH NBD 1 70 # IDL1 IDO L1 IP IPPH NBD 1 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/vfft/ |
H A D | vradb4.f | 5 DIMENSION CC(MDIMC,IDO,4,L1) ,CH(MDIMC,IDO,L1,4) , 6 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) 11 1 -(CC(M,IDO,2,K)+CC(M,IDO,2,K)) 13 1 +(CC(M,IDO,2,K)+CC(M,IDO,2,K)) 20 IF (IDO-2) 107,105,102 21 102 IDP2 = IDO+2 23 DO 103 I=3,IDO,2 56 CH(M,IDO,K,1) = (CC(M,IDO,1,K)+CC(M,IDO,3,K)) 57 1 +(CC(M,IDO,1,K)+CC(M,IDO,3,K)) 58 CH(M,IDO,K,2) = SQRT2*((CC(M,IDO,1,K)-CC(M,IDO,3,K)) [all …]
|
H A D | vrftb1.f | 13 IDO = N/L2 14 IDL1 = IDO*L1 16 IX2 = IW+IDO 17 IX3 = IX2+IDO 26 CALL VRADB2 (M,IDO,L1,C,CH,MDIMC,WA(IW)) 32 IX2 = IW+IDO 40 IX2 = IW+IDO 41 IX3 = IX2+IDO 42 IX4 = IX3+IDO 53 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
H A D | vrftf1.f | 14 IDO = N/L2 15 IDL1 = IDO*L1 16 IW = IW-(IP-1)*IDO 19 IX2 = IW+IDO 20 IX3 = IX2+IDO 28 CALL VRADF2 (M,IDO,L1,C,CH,MDIMC,WA(IW)) 33 IX2 = IW+IDO 40 IX2 = IW+IDO 41 IX3 = IX2+IDO 42 IX4 = IX3+IDO [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
H A D | rfftb1.f | 18 IDO = N/L2 19 IDL1 = IDO*L1 21 IX2 = IW+IDO 22 IX3 = IX2+IDO 31 CALL RADB2 (IDO,L1,C,CH,WA(IW)) 37 IX2 = IW+IDO 45 IX2 = IW+IDO 46 IX3 = IX2+IDO 47 IX4 = IX3+IDO 58 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
H A D | rfftf1.f | 19 IDO = N/L2 20 IDL1 = IDO*L1 21 IW = IW-(IP-1)*IDO 24 IX2 = IW+IDO 25 IX3 = IX2+IDO 33 CALL RADF2 (IDO,L1,C,CH,WA(IW)) 38 IX2 = IW+IDO 45 IX2 = IW+IDO 46 IX3 = IX2+IDO 47 IX4 = IX3+IDO [all …]
|
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/ |
H A D | rfftb1.f | 94 IDO = N/L2 95 IDL1 = IDO*L1 97 IX2 = IW+IDO 98 IX3 = IX2+IDO 107 CALL RADB2 (IDO,L1,C,CH,WA(IW)) 113 IX2 = IW+IDO 121 IX2 = IW+IDO 122 IX3 = IX2+IDO 123 IX4 = IX3+IDO 134 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
H A D | rfftf1.f | 96 IDO = N/L2 97 IDL1 = IDO*L1 98 IW = IW-(IP-1)*IDO 101 IX2 = IW+IDO 102 IX3 = IX2+IDO 110 CALL RADF2 (IDO,L1,C,CH,WA(IW)) 115 IX2 = IW+IDO 122 IX2 = IW+IDO 123 IX3 = IX2+IDO 124 IX4 = IX3+IDO [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/ |
H A D | rfftb1.f | 11 IDO = N/L2 12 IDL1 = IDO*L1 14 IX2 = IW+IDO 15 IX3 = IX2+IDO 24 CALL RADB2 (IDO,L1,C,CH,WA(IW)) 30 IX2 = IW+IDO 38 IX2 = IW+IDO 39 IX3 = IX2+IDO 40 IX4 = IX3+IDO 51 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
H A D | rfftf1.f | 12 IDO = N/L2 13 IDL1 = IDO*L1 14 IW = IW-(IP-1)*IDO 17 IX2 = IW+IDO 18 IX3 = IX2+IDO 26 CALL RADF2 (IDO,L1,C,CH,WA(IW)) 31 IX2 = IW+IDO 38 IX2 = IW+IDO 39 IX3 = IX2+IDO 40 IX4 = IX3+IDO [all …]
|
H A D | radf4.f | 3 DIMENSION CC(IDO,L1,4) ,CH(IDO,4,L1) , 10 CH(IDO,4,K) = TR2-TR1 14 IF (IDO-2) 107,105,102 15 102 IDP2 = IDO+2 17 DO 103 I=3,IDO,2 43 IF (MOD(IDO,2) .EQ. 1) RETURN 46 TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) 47 TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) 48 CH(IDO,1,K) = TR1+CC(IDO,K,1) 49 CH(IDO,3,K) = CC(IDO,K,1)-TR1 [all …]
|
H A D | radb4.f | 3 DIMENSION CC(IDO,4,L1) ,CH(IDO,L1,4) , 7 TR1 = CC(1,1,K)-CC(IDO,4,K) 8 TR2 = CC(1,1,K)+CC(IDO,4,K) 9 TR3 = CC(IDO,2,K)+CC(IDO,2,K) 16 IF (IDO-2) 107,105,102 17 102 IDP2 = IDO+2 19 DO 103 I=3,IDO,2 50 TR1 = CC(IDO,1,K)-CC(IDO,3,K) 51 TR2 = CC(IDO,1,K)+CC(IDO,3,K) 52 CH(IDO,K,1) = TR2+TR2 [all …]
|
H A D | radb2.f | 2 SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1) argument 3 DIMENSION CC(IDO,2,L1) ,CH(IDO,L1,2) , 6 CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K) 7 CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K) 9 IF (IDO-2) 107,105,102 10 102 IDP2 = IDO+2 12 DO 103 I=3,IDO,2 22 IF (MOD(IDO,2) .EQ. 1) RETURN 24 CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K) 25 CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
|
/dports/math/slatec/src/ |
H A D | rfftf1.f | 96 IDO = N/L2 97 IDL1 = IDO*L1 98 IW = IW-(IP-1)*IDO 101 IX2 = IW+IDO 102 IX3 = IX2+IDO 110 CALL RADF2 (IDO,L1,C,CH,WA(IW)) 115 IX2 = IW+IDO 122 IX2 = IW+IDO 123 IX3 = IX2+IDO 124 IX4 = IX3+IDO [all …]
|
H A D | rfftb1.f | 94 IDO = N/L2 95 IDL1 = IDO*L1 97 IX2 = IW+IDO 98 IX3 = IX2+IDO 107 CALL RADB2 (IDO,L1,C,CH,WA(IW)) 113 IX2 = IW+IDO 121 IX2 = IW+IDO 122 IX3 = IX2+IDO 123 IX4 = IX3+IDO 134 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
H A D | rfftb1.f | 11 IDO = N/L2 12 IDL1 = IDO*L1 14 IX2 = IW+IDO 15 IX3 = IX2+IDO 24 CALL RADB2 (IDO,L1,C,CH,WA(IW)) 30 IX2 = IW+IDO 38 IX2 = IW+IDO 39 IX3 = IX2+IDO 40 IX4 = IX3+IDO 51 114 IF (IDO .EQ. 1) NA = 1-NA [all …]
|
H A D | rfftf1.f | 12 IDO = N/L2 13 IDL1 = IDO*L1 14 IW = IW-(IP-1)*IDO 17 IX2 = IW+IDO 18 IX3 = IX2+IDO 26 CALL RADF2 (IDO,L1,C,CH,WA(IW)) 31 IX2 = IW+IDO 38 IX2 = IW+IDO 39 IX3 = IX2+IDO 40 IX4 = IX3+IDO [all …]
|
H A D | radb4.f | 3 DIMENSION CC(IDO,4,L1) ,CH(IDO,L1,4) , 7 TR1 = CC(1,1,K)-CC(IDO,4,K) 8 TR2 = CC(1,1,K)+CC(IDO,4,K) 9 TR3 = CC(IDO,2,K)+CC(IDO,2,K) 16 IF (IDO-2) 107,105,102 17 102 IDP2 = IDO+2 19 DO 103 I=3,IDO,2 50 TR1 = CC(IDO,1,K)-CC(IDO,3,K) 51 TR2 = CC(IDO,1,K)+CC(IDO,3,K) 52 CH(IDO,K,1) = TR2+TR2 [all …]
|
H A D | radf4.f | 1 SUBROUTINE RADF4 (IDO,L1,CC,CH,WA1,WA2,WA3) argument 3 DIMENSION CC(IDO,L1,4) ,CH(IDO,4,L1) , 10 CH(IDO,4,K) = TR2-TR1 14 IF (IDO-2) 107,105,102 15 102 IDP2 = IDO+2 17 DO 103 I=3,IDO,2 43 IF (MOD(IDO,2) .EQ. 1) RETURN 46 TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) 47 TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) 48 CH(IDO,1,K) = TR1+CC(IDO,K,1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | sint.F | 177 IDO = N/L2 337 DOUBLE PRECISION CH(IDO,2,L1),CC(IDO,L1,2),WA1(*) 367 CH(IDO,1,K) = CC(IDO,K,1) 398 DOUBLE PRECISION CH(IDO,3,L1),CC(IDO,L1,3),WA1(*),WA2(*) 515 TI1 = -HSQT2* (CC(IDO,K,2)+CC(IDO,K,4)) 516 TR1 = HSQT2* (CC(IDO,K,2)-CC(IDO,K,4)) 517 CH(IDO,1,K) = TR1 + CC(IDO,K,1) 518 CH(IDO,3,K) = CC(IDO,K,1) - TR1 657 DOUBLE PRECISION CH(IDO,L1,IP),CC(IDO,IP,L1),C1(IDO,L1,IP), 680 IS = -IDO [all …]
|
H A D | vsint.F | 176 DIMENSION CH(MDIMC,IDO,2,L1) ,CC(MDIMC,IDO,L1,2) , 190 102 IDP2 = IDO+2 208 CH(M,IDO,1,K) = CC(M,IDO,K,1) 218 DIMENSION CH(MDIMC,IDO,3,L1) ,CC(MDIMC,IDO,L1,3) , 219 1 WA1(IDO) ,WA2(IDO) 266 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) 319 CH(M,IDO,1,K) = (HSQT2*(CC(M,IDO,K,2)-CC(M,IDO,K,4)))+ 321 CH(M,IDO,3,K) = CC(M,IDO,K,1)-(HSQT2*(CC(M,IDO,K,2)- 337 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) ,WA4(IDO) 430 IS = -IDO [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | sint.F | 177 IDO = N/L2 337 DOUBLE PRECISION CH(IDO,2,L1),CC(IDO,L1,2),WA1(*) 367 CH(IDO,1,K) = CC(IDO,K,1) 398 DOUBLE PRECISION CH(IDO,3,L1),CC(IDO,L1,3),WA1(*),WA2(*) 515 TI1 = -HSQT2* (CC(IDO,K,2)+CC(IDO,K,4)) 516 TR1 = HSQT2* (CC(IDO,K,2)-CC(IDO,K,4)) 517 CH(IDO,1,K) = TR1 + CC(IDO,K,1) 518 CH(IDO,3,K) = CC(IDO,K,1) - TR1 657 DOUBLE PRECISION CH(IDO,L1,IP),CC(IDO,IP,L1),C1(IDO,L1,IP), 680 IS = -IDO [all …]
|
H A D | vsint.F | 176 DIMENSION CH(MDIMC,IDO,2,L1) ,CC(MDIMC,IDO,L1,2) , 190 102 IDP2 = IDO+2 208 CH(M,IDO,1,K) = CC(M,IDO,K,1) 218 DIMENSION CH(MDIMC,IDO,3,L1) ,CC(MDIMC,IDO,L1,3) , 219 1 WA1(IDO) ,WA2(IDO) 266 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) 319 CH(M,IDO,1,K) = (HSQT2*(CC(M,IDO,K,2)-CC(M,IDO,K,4)))+ 321 CH(M,IDO,3,K) = CC(M,IDO,K,1)-(HSQT2*(CC(M,IDO,K,2)- 337 1 WA1(IDO) ,WA2(IDO) ,WA3(IDO) ,WA4(IDO) 430 IS = -IDO [all …]
|