Searched refs:COTCS (Results 1 – 5 of 5) sorted by relevance
/dports/math/slatec/src/ |
H A D | dcot.f | 31 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 D | cot.f | 31 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 D | cot.f | 22 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 D | dcot.f | 23 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 D | dp6.F | 5206 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 …]
|