| /dports/math/math77/MATH77/demo/ |
| H A D | drdrft1.f | 20 double precision PI, TWOPI, RTWO, ZERO, ONE, FOUR, P1, P3 variable
24 parameter (RTWO = 1.4142135623730950488D0)
56 F(K+1) = SIG*(SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3)))
57 F(N-K+1)=SIG*(SIN(TWOPI*(TB+P1))+FOUR*COS(TWOPI*(RTWO*TB+P3)))
61 F(N2+1) = SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))
|
| H A D | drsrft1.f | 20 real PI, TWOPI, RTWO, ZERO, ONE, FOUR, P1, P3 variable
24 parameter (RTWO = 1.4142135623730950488E0)
56 F(K+1) = SIG*(SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3)))
57 F(N-K+1)=SIG*(SIN(TWOPI*(TB+P1))+FOUR*COS(TWOPI*(RTWO*TB+P3)))
61 F(N2+1) = SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))
|
| H A D | drdcft.f | 10 double precision S(31), T, DELTAT, TTIME, PI, TWOPI, RTWO variable
15 parameter (RTWO = 1.4142135623730950488D0)
31 F(K)=SIN(TWOPI*(T+P1))+FOUR*COS(TWOPI*(RTWO*T+P3))
|
| H A D | drscft.f | 10 real S(31), T, DELTAT, TTIME, PI, TWOPI, RTWO variable
15 parameter (RTWO = 1.4142135623730950488E0)
31 F(K)=SIN(TWOPI*(T+P1))+FOUR*COS(TWOPI*(RTWO*T+P3))
|
| /dports/science/plumed/plumed2-2.7.2/regtest/isdb/rt-pre/ |
| H A D | plumed.dat | 10 RTWO=0.02
22 RTWO=0.02
|
| /dports/science/plumed/plumed2-2.7.2/regtest/isdb/rt-pre-mi/ |
| H A D | plumed.dat | 15 RTWO=0.02
35 RTWO=0.02
|
| /dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
| H A D | dbesj.f | 87 2 FNULIM,GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN, local
90 SAVE RTWO, PDF, RTTP, PIDT, PP, INLIM, FNULIM
93 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648D+00,
175 TAU = RTWO*RTX
|
| /dports/math/slatec/src/ |
| H A D | dbesj.f | 87 2 FNULIM,GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN,
90 SAVE RTWO, PDF, RTTP, PIDT, PP, INLIM, FNULIM
93 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648D+00,
175 TAU = RTWO*RTX
|
| H A D | besj.f | 82 2 GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN,
85 SAVE RTWO, PDF, RTTP, PIDT, PP, INLIM, FNULIM
88 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648E+00,
170 TAU = RTWO*RTX
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
| H A D | dbesj.f | 87 2 FNULIM,GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN, local
90 SAVE RTWO, PDF, RTTP, PIDT, PP, INLIM, FNULIM
93 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648D+00,
194 TAU = RTWO*RTX
|
| /dports/math/cmlib/cmlib-3.0_8/src/amoslib/ |
| H A D | dbesj.f | 89 2 FNULIM,GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN,
94 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648D+00,
176 TAU = RTWO*RTX
|
| H A D | besj.f | 83 2 GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN,
88 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648E+00,
167 TAU = RTWO*RTX
|
| /dports/comms/gnuradio/gnuradio-3.8.4.0/gr-filter/lib/gen_interpolator_taps/ |
| H A D | praxis.f | 78 DOUBLE PRECISION A,B,XMID,XPLUS,RZERO,UNITR,RTWO local
86 RTWO=2.0D0
120 10 XMID=A+(B-A)/RTWO
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | fit3b.F | 9759 DATA RTWO / 2.0 /
9924 TWO = RTWO * RR(KZ,KZ) * FLOAT(NDEF)
10082 SIG = FDIV (RTWO*A(ISUBXC),FLOAT(NDEF-K+IONE-INTCPT),IND)
10299 IF (IBIT.EQ.ITHRE) R2 = RTWO * FDIV (RS,SIG,IND) - FLOAT(NDEF)
|
| H A D | dp3.F | 13021 2 GLN,PDF,PIDT,PP,RDEN,RELB,RTTP,RTWO,RTX,RZDEN,
13024 SAVE RTWO, PDF, RTTP, PIDT, PP, INLIM, FNULIM
13027 DATA RTWO,PDF,RTTP,PIDT / 1.34839972492648E+00,
13131 TAU = RTWO*RTX
|