Lines Matching refs:BY0CS
32 DOUBLE PRECISION X, BY0CS(19), AMPL, THETA, TWODPI, XSML, local
35 SAVE BY0CS, TWODPI, NTY0, XSML, FIRST
36 DATA BY0CS( 1) / -.1127783939 2865573217 9398054602 8 D-1 /
37 DATA BY0CS( 2) / -.1283452375 6042034604 8088453183 8 D+0 /
38 DATA BY0CS( 3) / -.1043788479 9794249365 8176227661 8 D+0 /
39 DATA BY0CS( 4) / +.2366274918 3969695409 2415926461 3 D-1 /
40 DATA BY0CS( 5) / -.2090391647 7004862391 9622395034 2 D-2 /
41 DATA BY0CS( 6) / +.1039754539 3905725209 9924657638 1 D-3 /
42 DATA BY0CS( 7) / -.3369747162 4239720967 1877534503 7 D-5 /
43 DATA BY0CS( 8) / +.7729384267 6706671585 2136721637 1 D-7 /
44 DATA BY0CS( 9) / -.1324976772 6642595914 4347606896 4 D-8 /
45 DATA BY0CS( 10) / +.1764823261 5404527921 0038936315 8 D-10 /
46 DATA BY0CS( 11) / -.1881055071 5801962006 0282301206 9 D-12 /
47 DATA BY0CS( 12) / +.1641865485 3661495027 9223718574 9 D-14 /
48 DATA BY0CS( 13) / -.1195659438 6046060857 4599100672 0 D-16 /
49 DATA BY0CS( 14) / +.7377296297 4401858424 9411242666 6 D-19 /
50 DATA BY0CS( 15) / -.3906843476 7104373307 4090666666 6 D-21 /
51 DATA BY0CS( 16) / +.1795503664 4361579498 2912000000 0 D-23 /
52 DATA BY0CS( 17) / -.7229627125 4480104789 3333333333 3 D-26 /
53 DATA BY0CS( 18) / +.2571727931 6351685973 3333333333 3 D-28 /
54 DATA BY0CS( 19) / -.8141268814 1636949333 3333333333 3 D-31 /
59 NTY0 = INITDS (BY0CS, 19, 0.1*REAL(D1MACH(3)))
71 1 .125D0*Y-1.D0, BY0CS, NTY0)