| /dports/math/cmlib/cmlib-3.0_8/src/fftpkg/ |
| H A D | passb5.f | 1 SUBROUTINE PASSB5(IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
13 C***FIRST EXECUTABLE STATEMENT PASSB5 argument
42 101 CONTINUE
44 102 IF(IDO/2.LT.L1) GO TO 105
82 103 CONTINUE
83 104 CONTINUE
85 105 DO 107 I=2,IDO,2
122 106 CONTINUE
123 107 CONTINUE
|
| /dports/math/slatec/src/ |
| H A D | passb5.f | 2 SUBROUTINE PASSB5 (IDO, L1, CC, CH, WA1, WA2, WA3, WA4) subroutine
60 101 CONTINUE
62 102 IF(IDO/2.LT.L1) GO TO 105
100 103 CONTINUE
101 104 CONTINUE
103 105 DO 107 I=2,IDO,2
140 106 CONTINUE
141 107 CONTINUE
|
| /dports/science/dcl/dcl-5.4.8/src/math2/fftlib/ |
| H A D | passb5.f | 2 SUBROUTINE PASSB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
4 1 WA1(*) ,WA2(*) ,WA3(*) ,WA4(*)
6 1-.809016994374947,.587785252292473/
35 101 CONTINUE
37 102 DO 104 K=1,L1
73 103 CONTINUE
74 104 CONTINUE
|
| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/dfftpack/ |
| H A D | passb5.f | 1 SUBROUTINE PASSB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
4 1 WA1(1) ,WA2(1) ,WA3(1) ,WA4(1)
38 101 CONTINUE
40 102 DO 104 K=1,L1
76 103 CONTINUE
77 104 CONTINUE
|
| /dports/math/algae/algae-4.3.6/src/ |
| H A D | cfft.f | 1210 SUBROUTINE PASSB5(IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
1221 C***FIRST EXECUTABLE STATEMENT PASSB5 argument
1250 101 CONTINUE
1252 102 IF(IDO/2.LT.L1) GO TO 105
1290 103 CONTINUE
1291 104 CONTINUE
1293 105 DO 107 I=2,IDO,2
1330 106 CONTINUE
1331 107 CONTINUE
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/contrib/qmd_tools/ |
| H A D | qmd_analysis.f90 | 1388 SUBROUTINE PASSB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
1425 101 CONTINUE
1427 102 DO 104 K=1,L1
1463 103 CONTINUE
1464 104 CONTINUE
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/qmd_tools/ |
| H A D | qmd_analysis.f90 | 1388 SUBROUTINE PASSB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
1425 101 CONTINUE
1427 102 DO 104 K=1,L1
1463 103 CONTINUE
1464 104 CONTINUE
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp42.F | 25017 SUBROUTINE PASSB5(IDO,L1,CC,CH,WA1,WA2,WA3,WA4) subroutine
25024 C***FIRST EXECUTABLE STATEMENT PASSB5 argument
25058 101 CONTINUE
25060 102 IF(IDO/2.LT.L1) GO TO 105
25098 103 CONTINUE
25099 104 CONTINUE
25101 105 DO 107 I=2,IDO,2
25138 106 CONTINUE
25139 107 CONTINUE
|