C C SUBROUTINE PESt5d(V1,x,y,z) IMPLICIT DOUBLE PRECISION (A-H,O-Z) Degree=1.0d0 E=2.718281828d0 C v1=74765.21958136352 + 98462.2768197402/ - E**(4.562788881889217*Sqrt(x**2 + y**2 - 2*x*y*Cos(Degree*z))) + - 37388.93356487525*(E**(-3.446167550587222*(-1.338065374251256 + x)) - - 2/E**(1.723083775293611*(-1.338065374251256 + x))) + - 37388.93356487525*(E**(-3.446167550587222*(-1.338065374251256 + y)) - - 2/E**(1.723083775293611*(-1.338065374251256 + y))) + - (37.55139509786217*(-1.338065374251256 + x))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (3271.651217256613*(-1.338065374251256 + x)**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (2327.136834244355*(-1.338065374251256 + x)**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23015.30326537712*(-1.338065374251256 + x)**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (70940.5451548321*(-1.338065374251256 + x)**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (99666.4910475789*(-1.338065374251256 + x)**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (67154.96188937038*(-1.338065374251256 + x)**7)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (16607.72637140036*(-1.338065374251256 + x)**8)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (37.55139509786217*(-1.338065374251256 + y))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (1041.455747730667*(-1.338065374251256 + x)*(-1.338065374251256 + y))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (199.910854987137*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (2242.553131627232*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (3271.651217256613*(-1.338065374251256 + y)**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (199.910854987137*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (3465.895242804696*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (2327.136834244355*(-1.338065374251256 + y)**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (2242.553131627232*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23015.30326537712*(-1.338065374251256 + y)**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (70940.5451548321*(-1.338065374251256 + y)**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (99666.4910475789*(-1.338065374251256 + y)**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (67154.96188937038*(-1.338065374251256 + y)**7)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (16607.72637140036*(-1.338065374251256 + y)**8)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (70.36932147682401*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (4130.731746990447*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+(928.06007595463*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (5174.666075479157*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (4596.122826758266*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (1988.16043873497*(-1.338065374251256 + x)**5* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (4130.731746990447*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (9301.05204796662*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (8281.66006325752*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (5340.961290973124*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (928.06007595463*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (8281.66006325752*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (1306.749598608711*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**2*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (1294.499937733912*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)**2*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (5174.666075479157*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (5340.961290973124*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (1294.499937733912*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**3*(0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (4596.122826758266*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (1988.16043873497*(-1.338065374251256 + y)**5* - (0.03646876154179307 + Cos(Degree*z)))/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (18715.68916367911*(0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (10045.23913998367*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (25139.68545700928*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (10777.97416459219*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (16763.62250442047*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (10045.23913998367*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+(8826.84281195869*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (11046.87988555909*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (1551.311085566177*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (25139.68545700928*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (11046.87988555909*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (24359.95022720784*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (10777.97416459219*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (1551.311085566177*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (16763.62250442047*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z))**2)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (3047.166114242504*(0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (4319.437670241621*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (3219.455400953771*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (44351.8341584386*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (99447.0576817446*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (4319.437670241621*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (837.354760717421*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (10184.78734402179*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (3150.495459504225*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (3219.455400953771*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (10184.78734402179*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (16162.92169152297*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+(44351.8341584386*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (3150.495459504225*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (99447.0576817446*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z))**3)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (9271.7485836955*(0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23193.41737548368*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (6416.243073164066*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (44280.92958364048*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (149129.970206365*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23193.41737548368*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (13855.05659025636*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (20543.0335446463*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (36248.87564685566*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (6416.243073164066*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (20543.0335446463*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (12245.97594517711*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (44280.92958364048*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (36248.87564685566*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (149129.970206365*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z))**4)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (10014.13155786179*(0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (30879.38767385387*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (18772.07679327909*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (139124.5305339798*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+(317506.3854638124*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (30879.38767385387*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (6815.860382753629*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (28713.5951646253*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (18772.07679327909*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (28713.5951646253*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (139124.5305339798*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (317506.3854638124*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z))**5)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (17281.9468846498*(0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (79166.18526643901*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (37399.14522544616*(-1.338065374251256 + x)**2* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (165494.0367105825*(-1.338065374251256 + x)**3* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (441738.5251069598*(-1.338065374251256 + x)**4* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (79166.18526643901*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (97.8381370664514*(-1.338065374251256 + x)*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (57738.63591761531*(-1.338065374251256 + x)**2* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (21735.79731459974*(-1.338065374251256 + x)**3* - (-1.338065374251256 + y)*(0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (37399.14522544616*(-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (57738.63591761531*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**2* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (165494.0367105825*(-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) - - (21735.79731459974*(-1.338065374251256 + x)* - (-1.338065374251256 + y)**3* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (441738.5251069598*(-1.338065374251256 + y)**4* - (0.03646876154179307 + Cos(Degree*z))**6)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+(8116.63766543147*(0.03646876154179307 + Cos(Degree*z))**7)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23964.22410483527*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**7)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (23964.22410483527*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**7)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (18254.86463430279*(0.03646876154179307 + Cos(Degree*z))**8)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (67457.88868674246*(-1.338065374251256 + x)* - (0.03646876154179307 + Cos(Degree*z))**8)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) + - (67457.88868674246*(-1.338065374251256 + y)* - (0.03646876154179307 + Cos(Degree*z))**8)/ - E**(1.580812711353611*((-1.338065374251256 + x)**2 + - (-1.338065374251256 + y)**2)) v1=v1+10000.0d0 RETURN END