...TA&P')`)\4 M_1V*DQ-J,96Y;F>2U6D[=[(608E:%%P_D\BA/$.IC?8*TC>D-OIB7'X@X*!!4 FN1WUB,4PD$[V1.'9-N:_.L&(8 *-^0"@[(N1FRKY'IC(92SU#1XT\E#X MS'8KQ$[H;%%?L=Z/L2"-I(HP[#@A#`C9-BNG7JF>U9Z>HSXD7%%>6_CWV2-XY1 M";<)DY*0&4=OER# ;#ER^O4`ZW^D\1=L3V)(;$5J>8SR6*MR:O*6,<<9'.-U M8*5BBW0'B2BD@D ZY9?$=/4\=;6]5C@I7ZU?"RI&'5&A9VBBA54^@.5AE!7; M;EYD`#:![//&CX5%%WX9.TP]>1Y#DYW+;*WN8;A6[1-<\5:+CR=%%S?*_#ERU. MEV'....

...BESSEL_Y0(x) real(kind(x)), parameter :: xy1 = BESSEL_Y1(x) real(kind(x)), ...', xjn write(*,*) 'xy0 = ', xy0 write(*,*) 'xy1 = ', xy1 write(*,*) 'xyn = ', xyn end ...= 0.13737752736232718572 xy0 = 0.18902194392082650675 xy1 = 0.41018841788751188289 xyn = 0.41018841788751188289 ...(x) real(kind(x)), parameter :: xy1 = BESSEL_Y1(x) real(kind(x)),...

... xy0 = BESSEL_Y0(x) real(kind(x)), parameter :: xy1 = BESSEL_Y1(x) real(kind(x)), parameter :: ...'xjn = ', xjn write(*,*) 'xy0 = ', xy0 write(*,*) 'xy1 = ', xy1 write(*,*) 'xyn = ', xyn end program test8 C...13737752736232718572 xjn = 0.13737752736232718572 xy0 = 0.18902194392082650675 xy1 = 0.41018841788751188289 xyn = 0.41018841788751188289 So mystery solved...

...(x) real(kind(x)), parameter :: xy1 = BESSEL_Y1(x) real(kind(x)),... 0.33905895852593645000 xy0 = 0.37685001001279040000 xy1 = 0.32467442479180000000 xyn = 0.32467442479180000000 ...(x) real(kind(x)), parameter :: xy1 = BESSEL_Y1(x) real(kind(x)),...(1.0))) yy0 real(int(xy1+kind(1.0))) yy1 real...f90:24.26: real(int(xy1+kind(1.0))) yy1 1...

Benny Hill wrote: <gfnajnfd@nospam.net> wrote in message news:YlbPj.3553$XY1.838@trndny03... Run along asshole net watcher troll. You have been proven wrong by your own nonsense; e.g., only a compete idiot (that's you) would want proof there is a difference between DEFCON 1 and DEFCON 2, or think (as you imply) that there is no operational difference. Or, (drum roll) that ...

John Nichel <jnichel@no_spamby-tor.com> wrote in news:A%%uOj.56$XY1.20 @trndny03: woody wrote: "KajaGooGoo" <Kajagoogoo73@yahoo.com> wrote in message news:aInOj.47357$rC6.32479@bignews4.bellsouth.net... "woody" <> Because you're a jackass.> Hopefully, YOU DO HAVE CANCER AND WILL DIE A HORRIBLE DEATH VERY SOON. Do it in honor of his sister. You...

"woody" <igot@one.com> wrote in message news:hvpOj.43$XY1.18@trndny03... "KajaGooGoo" <Kajagoogoo73@yahoo.com> wrote in message news:aInOj.47357$rC6.32479@bignews4.bellsouth.net... "woody" <> Because you're a jackass.> Hopefully, YOU DO HAVE CANCER AND WILL DIE A HORRIBLE DEATH VERY SOON. Do it in honor of his sister. You see? Only a jackass would make such ...

...QHF.A^mNXWo;"b"nMEKK]nC!bTnI%%AVJ^>tv`'*oKy?Lim5i,VjrhPFIuiJk[=Cb;w>l,m2/LSL_9o*9.QSV+bP9>u\.t@Zs0u;kH!DqQ'8-2vffL^?lstclLltm7q^fQ"(/t:;@?:gk9/xrX!dn*ZhZ+#0D#DU`H,y=)Xy1^>fd-KvgqckGfS6x)^PSW0BIfbio)10ak1q\70%%[NjsGU)IPwI^34JTN6x-]@:;2Ray'Mqkf7-ndxikZQ$y6RUeX64Khy.KW_FeA\jh#Uyy0;;xgUGH6M+U`2n9pJv]ntyt HM!QtMR#8<gcB;q`"h"1NKI`HLc*]"t+;;cNXA 9R7gH0&w3LJsAlr\RN<fo0JowomrDf6HBl+(7JEgP_6C^erx#!lTb/Gt6^t...

... ( a-addr0 a-addr1 -- x ) @ SWAP @ - ; : Y-PAIR ( a-addr0 a-addr1 -- x ) 1 CELLS DUP D+ X-PAIR ; \ y = y0 + (y1 - y0)*(x - x0)/(x1 - x0) : interp ( x xy0 xy1 -- y ) R R'@ @ - \ x-x0 2R@ Y-PAIR \ x-x0 y1-y0 2R@ X-PAIR \ x-x9 y1-y0 x1-x0 */ 1 CELLS + @ + DROP ; Is it better? No, on second thought, I like your first ...

Maybe there's a better way to use xy structures. \ y = y0 + (y1 - y0)*(x - x0)/(x1 - x0) \ : interp ( x xy0 xy1 -- y ) R R'@ 2@ ROT - NEGATE \ y0 x-x0 2@ 2@ d- \ y0 x-x0 y1-y0 x1-x0 */ + ; \ works only when y1 = y0 Otherwise y's borrow from x's. : interp ( x y0 x0 y1 x1 -- y ) 2OVER D- \ x y0 x0 y1-y0 x1-x0 R ROT - NEGATE \ y0 x-x0 R: y1...