subroutine sayhello(x,r,v) double precision x,r,v r = (sin(2.764601535159018d+4*(v*sin(2.764601535159018d+4*(v*sin(2.764 1 601535159018d+4*(v*sin(2.764601535159018d+4*(v*sin(2.7646015351 2 59018d+4*(v*sin(2.764601535159018d+4*(v*sin(2.764601535159018d+ 3 4*(v*sin(2.764601535159018d+4*(v*sin(2.764601535159018d+4*(v*si 4 n(2.764601535159018d+4*x)/5.d+5+x))/4.5d+5+x))/4.d+5+x))/3.5d+5 5 +x))/3.d+5+x))/2.5d+5+x))/2.d+5+x))/1.5d+5+x))/2.d+4+x))/1.d+1+ 6 sin(2.4881413816431164d+4*(v*sin(2.4881413816431164d+4*(v*sin(2 7 .4881413816431164d+4*(v*sin(2.4881413816431164d+4*(v*sin(2.4881 8 413816431164d+4*(v*sin(2.4881413816431164d+4*(v*sin(2.488141381 9 6431164d+4*(v*sin(2.4881413816431164d+4*(v*sin(2.48814138164311 : 64d+4*(v*sin(2.4881413816431164d+4*x)/9.d+3+x))/9.d+3+x))/9.d+3 ; +x))/9.d+3+x))/9.d+3+x))/9.d+3+x))/9.d+3+x))/9.d+3+x))/1.8d+4+x < ))/9.d+0+sin(2.2116812281272147d+4*(v*sin(2.2116812281272147d+4 = *(v*sin(2.2116812281272147d+4*(v*sin(2.2116812281272147d+4*(v*s > in(2.2116812281272147d+4*(v*sin(2.2116812281272147d+4*(v*sin(2. ? 2116812281272147d+4*(v*sin(2.2116812281272147d+4*(v*sin(2.21168 @ 12281272147d+4*(v*sin(2.2116812281272147d+4*x)/8.d+3+x))/8.d+3+ 1 x))/8.d+3+x))/8.d+3+x))/8.d+3+x))/8.d+3+x))/8.d+3+x))/8.d+3+x)) 2 /1.6d+4+x))/8.d+0+sin(1.9352210746113127d+4*(v*sin(1.9352210746 3 113127d+4*(v*sin(1.9352210746113127d+4*(v*sin(1.935221074611312 4 7d+4*(v*sin(1.9352210746113127d+4*(v*sin(1.9352210746113127d+4* 5 (v*sin(1.9352210746113127d+4*(v*sin(1.9352210746113127d+4*(v*si 6 n(1.9352210746113127d+4*(v*sin(1.9352210746113127d+4*x)/7.d+3+x 7 ))/7.d+3+x))/7.d+3+x))/7.d+3+x))/7.d+3+x))/7.d+3+x))/7.d+3+x))/ 8 7.d+3+x))/1.3999999999999999d+4+x))/7.d+0+sin(1.658760921095410 9 5d+4*(v*sin(1.6587609210954105d+4*(v*sin(1.6587609210954105d+4* : (v*sin(1.6587609210954105d+4*(v*sin(1.6587609210954105d+4*(v*si ; n(1.6587609210954105d+4*(v*sin(1.6587609210954105d+4*(v*sin(1.6 < 587609210954105d+4*(v*sin(1.6587609210954105d+4*(v*sin(1.658760 = 9210954105d+4*x)/6.d+3+x))/6.d+3+x))/6.d+3+x))/6.d+3+x))/6.d+3+ > x))/6.d+3+x))/6.d+3+x))/6.d+3+x))/1.2d+4+x))/6.d+0+sin(1.382300 ? 767579509d+4*(v*sin(1.382300767579509d+4*(v*sin(1.3823007675795 @ 09d+4*(v*sin(1.382300767579509d+4*(v*sin(1.382300767579509d+4*( 1 v*sin(1.382300767579509d+4*(v*sin(1.382300767579509d+4*(v*sin(1 2 .382300767579509d+4*(v*sin(1.382300767579509d+4*(v*sin(1.382300 3 767579509d+4*x)/5.d+3+x))/5.d+3+x))/5.d+3+x))/5.d+3+x))/5.d+3+x 4 ))/5.d+3+x))/5.d+3+x))/5.d+3+x))/1.d+4+x))/5.d+0+sin(1.10584061 5 40636072d+4*(v*sin(1.1058406140636072d+4*(v*sin(1.1058406140636 6 072d+4*(v*sin(1.1058406140636072d+4*(v*sin(1.1058406140636072d+ 7 4*(v*sin(1.1058406140636072d+4*(v*sin(1.1058406140636072d+4*(v* 8 sin(1.1058406140636072d+4*(v*sin(1.1058406140636072d+4*(v*sin(1 9 .1058406140636072d+4*x)/4.d+3+x))/4.d+3+x))/4.d+3+x))/4.d+3+x)) : /4.d+3+x))/4.d+3+x))/4.d+3+x))/4.d+3+x))/8.d+3+x))/4.d+0+sin(8. ; 293804605477053d+3*(v*sin(8.293804605477053d+3*(v*sin(8.2938046 < 05477053d+3*(v*sin(8.293804605477053d+3*(v*sin(8.29380460547705 = 3d+3*(v*sin(8.293804605477053d+3*(v*sin(8.293804605477053d+3*(v > *sin(8.293804605477053d+3*(v*sin(8.293804605477053d+3*(v*sin(8. ? 293804605477053d+3*x)/3.d+3+x))/3.d+3+x))/3.d+3+x))/3.d+3+x))/3 @ .d+3+x))/3.d+3+x))/3.d+3+x))/3.d+3+x))/6.d+3+x))/3.d+0+sin(5.52 1 9203070318036d+3*(v*sin(5.529203070318036d+3*(v*sin(5.529203070 2 318036d+3*(v*sin(5.529203070318036d+3*(v*sin(5.529203070318036d 3 +3*(v*sin(5.529203070318036d+3*(v*sin(5.529203070318036d+3*(v*s 4 in(5.529203070318036d+3*(v*sin(5.529203070318036d+3*(v*sin(5.52 5 9203070318036d+3*x)/2.d+3+x))/2.d+3+x))/2.d+3+x))/2.d+3+x))/2.d 6 +3+x))/2.d+3+x))/2.d+3+x))/2.d+3+x))/4.d+3+x))/2.d+0+sin(2.7646 7 01535159018d+3*(v*sin(2.764601535159018d+3*(v*sin(2.76460153515 8 9018d+3*(v*sin(2.764601535159018d+3*(v*sin(2.764601535159018d+3 9 *(v*sin(2.764601535159018d+3*(v*sin(2.764601535159018d+3*(v*sin : (2.764601535159018d+3*(v*sin(2.764601535159018d+3*(v*sin(2.7646 ; 01535159018d+3*x)/1.d+3+x))/1.d+3+x))/1.d+3+x))/1.d+3+x))/1.d+3 < +x))/1.d+3+x))/1.d+3+x))/1.d+3+x))/2.d+3+x)))/1.d+1 return end