C C SUBROUTINE PEScbsfci(V1,x,y,z) IMPLICIT DOUBLE PRECISION (A-H,O-Z) Degree=1.0d0 E=2.718281828d0 C v1=75089.55335069056 + 98566.2533604564/ - E**(4.711163346261579*Sqrt(x**2 + y**2 - 2*x*y*Cos(Degree*z))) + - 37549.21886880211*(E**(-3.445915921527126*(-1.337177603291836 + x)) - - 2/E**(1.722957960763563*(-1.337177603291836 + x))) + - 37549.21886880211*(E**(-3.445915921527126*(-1.337177603291836 + y)) - - 2/E**(1.722957960763563*(-1.337177603291836 + y))) - - (137.4257434029235*(-1.337177603291836 + x))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (3266.212284853831*(-1.337177603291836 + x)**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (2102.200056954794*(-1.337177603291836 + x)**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (23317.57685085202*(-1.337177603291836 + x)**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (70383.15497648122*(-1.337177603291836 + x)**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (98229.3060029219*(-1.337177603291836 + x)**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (67553.56938060098*(-1.337177603291836 + x)**7)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (17509.00268625912*(-1.337177603291836 + x)**8)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (137.4257434029235*(-1.337177603291836 + y))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1002.66000329678*(-1.337177603291836 + x)*(-1.337177603291836 + y))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (526.553374618666*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1808.109409734702*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (3266.212284853831*(-1.337177603291836 + y)**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (526.553374618666*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (2795.448713433319*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (2102.200056954794*(-1.337177603291836 + y)**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1808.109409734702*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (23317.57685085202*(-1.337177603291836 + y)**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (70383.15497648122*(-1.337177603291836 + y)**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (98229.3060029219*(-1.337177603291836 + y)**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (67553.56938060098*(-1.337177603291836 + y)**7)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (17509.00268625912*(-1.337177603291836 + y)**8)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (188.368659003656*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (4245.487596482456*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+(1075.322283381508*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (4351.328487905202*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4679.388155234724*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1585.657710787718*(-1.337177603291836 + x)**5* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (4245.487596482456*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (9347.09385295291*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (7482.954710754714*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4106.171375337414*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (1075.322283381508*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (7482.954710754714*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (2217.156123432542*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**2*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (1139.197586221149*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)**2*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (4351.328487905202*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4106.171375337414*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (1139.197586221149*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**3*(0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4679.388155234724*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1585.657710787718*(-1.337177603291836 + y)**5* - (0.03385760620435431 + Cos(Degree*z)))/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (18769.58397511334*(0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (10081.49931876296*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (20706.08194764195*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (8923.15591538643*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (12554.0047157458*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (10081.49931876296*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+(8835.69632709832*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (9209.92778791226*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1814.941299538917*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (20706.08194764195*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (9209.92778791226*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (15218.79182197007*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (8923.15591538643*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (1814.941299538917*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (12554.0047157458*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z))**2)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (3221.385428129559*(0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4505.367953376968*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (3751.712284031607*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (44433.6043745118*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (99512.8479821689*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (4505.367953376968*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (659.7304633894035*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (9891.19277874156*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (3235.510925607221*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (3751.712284031607*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (9891.19277874156*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (15583.75425605315*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+(44433.6043745118*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (3235.510925607221*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (99512.8479821689*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z))**3)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (9027.74092937384*(0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (22627.66973718112*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (6572.706038381727*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (44968.82348661359*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (150186.9003880522*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (22627.66973718112*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (13906.3097392585*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (19666.93348581095*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (35614.05118426429*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (6572.706038381727*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (19666.93348581095*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (9711.07508256657*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (44968.82348661359*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (35614.05118426429*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (150186.9003880522*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z))**4)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (10283.95850949137*(0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (32096.09874449507*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (20186.1860052652*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (138390.6768535504*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+(318090.5939679007*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (32096.09874449507*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (5518.961702743593*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (27783.2834546228*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (20186.1860052652*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (27783.2834546228*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (138390.6768535504*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (318090.5939679007*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z))**5)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (16610.13949276852*(0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (78220.39604555092*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (36295.45605938084*(-1.337177603291836 + x)**2* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (166824.1383281497*(-1.337177603291836 + x)**3* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (442214.5497110673*(-1.337177603291836 + x)**4* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (78220.39604555092*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (1098.200013190576*(-1.337177603291836 + x)*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (56492.22183495733*(-1.337177603291836 + x)**2* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (18845.34516117167*(-1.337177603291836 + x)**3* - (-1.337177603291836 + y)*(0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (36295.45605938084*(-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (56492.22183495733*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**2* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (166824.1383281497*(-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) - - (18845.34516117167*(-1.337177603291836 + x)* - (-1.337177603291836 + y)**3* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (442214.5497110673*(-1.337177603291836 + y)**4* - (0.03385760620435431 + Cos(Degree*z))**6)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+(8763.14070174564*(0.03385760620435431 + Cos(Degree*z))**7)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (25124.7732874803*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**7)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (25124.7732874803*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**7)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (18074.85240681816*(0.03385760620435431 + Cos(Degree*z))**8)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (66869.6555554901*(-1.337177603291836 + x)* - (0.03385760620435431 + Cos(Degree*z))**8)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) + - (66869.6555554901*(-1.337177603291836 + y)* - (0.03385760620435431 + Cos(Degree*z))**8)/ - E**(1.352805717297181*((-1.337177603291836 + x)**2 + - (-1.337177603291836 + y)**2)) v1=v1+10000.0d0 RETURN END