Home
last modified time | relevance | path

Searched refs:COTCS (Results 1 – 5 of 5) sorted by relevance

/dports/math/slatec/src/
H A Ddcot.f31 DOUBLE PRECISION X, COTCS(15), AINTY, AINTY2, PI2REC, SQEPS,
34 SAVE COTCS, PI2REC, NTERMS, XMAX, XSML, XMIN, SQEPS, FIRST
35 DATA COTCS( 1) / +.2402591609 8295630250 9553617744 970 D+0 /
36 DATA COTCS( 2) / -.1653303160 1500227845 4746025255 758 D-1 /
37 DATA COTCS( 3) / -.4299839193 1724018935 6476228239 895 D-4 /
38 DATA COTCS( 4) / -.1592832233 2754104602 3490851122 445 D-6 /
39 DATA COTCS( 5) / -.6191093135 1293487258 8620579343 187 D-9 /
40 DATA COTCS( 6) / -.2430197415 0726460433 1702590579 575 D-11 /
41 DATA COTCS( 7) / -.9560936758 8000809842 7062083100 000 D-14 /
54 NTERMS = INITDS (COTCS, 15, 0.1*REAL(D1MACH(3)) )
[all …]
H A Dcot.f31 DIMENSION COTCS(8)
33 SAVE COTCS, PI2REC, NTERMS, XMAX, XSML, XMIN, SQEPS, FIRST
34 DATA COTCS( 1) / .2402591609 8295630E0 /
35 DATA COTCS( 2) / -.0165330316 01500228E0 /
36 DATA COTCS( 3) / -.0000429983 91931724E0 /
37 DATA COTCS( 4) / -.0000001592 83223327E0 /
38 DATA COTCS( 5) / -.0000000006 19109313E0 /
39 DATA COTCS( 6) / -.0000000000 02430197E0 /
40 DATA COTCS( 7) / -.0000000000 00009560E0 /
41 DATA COTCS( 8) / -.0000000000 00000037E0 /
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Dcot.f22 DIMENSION COTCS(8)
35 NTERMS = INITS (COTCS, 8, 0.1*R1MACH(3))
69 IF (Y.GT.XSML) COT = (0.5 + CSEVL (32.0*Y*Y-1., COTCS, NTERMS)) /Y
73 COT = (0.5 + CSEVL (8.0*Y*Y-1., COTCS, NTERMS)) / (0.5*Y)
77 30 COT = (0.5 + CSEVL (2.0*Y*Y-1., COTCS, NTERMS)) / (0.25*Y)
H A Ddcot.f23 DOUBLE PRECISION X, COTCS(15), AINTY, AINTY2, PI2REC, SQEPS,
44 NTERMS = INITDS (COTCS, 15, 0.1*SNGL(D1MACH(3)) )
78 IF (Y.GT.XSML) DCOT = (0.5D0 + DCSEVL (32.0D0*Y*Y-1.D0, COTCS,
83 DCOT = (0.5D0 + DCSEVL (8.D0*Y*Y-1.D0, COTCS, NTERMS))/(0.5D0*Y)
87 30 DCOT = (0.5D0 + DCSEVL (2.D0*Y*Y-1.D0, COTCS, NTERMS))/(.25D0*Y)
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp6.F5206 DOUBLE PRECISION X, COTCS(15), AINTY, AINTY2, PI2REC, SQEPS, local
5209 SAVE COTCS, PI2REC, NTERMS, XMAX, XSML, XMIN, SQEPS, FIRST
5210 DATA COTCS( 1) / +.2402591609 8295630250 9553617744 970 D+0 /
5211 DATA COTCS( 2) / -.1653303160 1500227845 4746025255 758 D-1 /
5212 DATA COTCS( 3) / -.4299839193 1724018935 6476228239 895 D-4 /
5213 DATA COTCS( 4) / -.1592832233 2754104602 3490851122 445 D-6 /
5214 DATA COTCS( 5) / -.6191093135 1293487258 8620579343 187 D-9 /
5232 NTERMS = INITDS (COTCS, 15, 0.1*REAL(D1MACH(3)) )
5281 IF (Y.GT.XSML) DCOT = (0.5D0 + DCSEVL (32.0D0*Y*Y-1.D0, COTCS,
5286 DCOT = (0.5D0 + DCSEVL (8.D0*Y*Y-1.D0, COTCS, NTERMS))/(0.5D0*Y)
[all …]