C C SUBROUTINE PEStcbs(V1,x,y,z) IMPLICIT DOUBLE PRECISION (A-H,O-Z) Degree=1.0d0 E=2.718281828d0 C v1=75089.16130547268 + 98667.2055407842/ - E**(4.678461358137609*Sqrt(x**2 + y**2 - 2*x*y*Cos(Degree*z))) + - 37549.47196477922*(E**(-3.444474369254292*(-1.337429686660698 + x)) - - 2/E**(1.722237184627146*(-1.337429686660698 + x))) + - 37549.47196477922*(E**(-3.444474369254292*(-1.337429686660698 + y)) - - 2/E**(1.722237184627146*(-1.337429686660698 + y))) - - (64.74706519615374*(-1.337429686660698 + x))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (3313.319178447728*(-1.337429686660698 + x)**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (2161.903458024021*(-1.337429686660698 + x)**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (23326.19418638562*(-1.337429686660698 + x)**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (70611.26118240792*(-1.337429686660698 + x)**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (98712.3815415483*(-1.337429686660698 + x)**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (67440.49028826914*(-1.337429686660698 + x)**7)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (17231.94185636443*(-1.337429686660698 + x)**8)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (64.74706519615374*(-1.337429686660698 + y))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1012.809593507559*(-1.337429686660698 + x)*(-1.337429686660698 + y))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (417.5561796518024*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1930.431404207888*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (3313.319178447728*(-1.337429686660698 + y)**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (417.5561796518024*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (3137.670350316215*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (2161.903458024021*(-1.337429686660698 + y)**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1930.431404207888*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (23326.19418638562*(-1.337429686660698 + y)**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (70611.26118240792*(-1.337429686660698 + y)**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (98712.3815415483*(-1.337429686660698 + y)**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (67440.49028826914*(-1.337429686660698 + y)**7)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (17231.94185636443*(-1.337429686660698 + y)**8)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (155.4390479719264*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (4215.382640760966*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+(1052.25168976844*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (4643.641118342488*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4686.356813455178*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1733.390365981845*(-1.337429686660698 + x)**5* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (4215.382640760966*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (9332.0864126446*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (7780.565064824905*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4553.253870709444*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (1052.25168976844*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (7780.565064824905*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (1954.736010167619*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**2*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (1180.609105007494*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y)**2*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (4643.641118342488*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4553.253870709444*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**3*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (1180.609105007494*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**3*(0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4686.356813455178*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1733.390365981845*(-1.337429686660698 + y)**5* - (0.03475316211521958 + Cos(Degree*z)))/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (18760.46405912558*(0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (10097.87422491218*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (22238.96202497564*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (9504.80204472374*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (13845.85692899847*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (10097.87422491218*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+(8823.89702331516*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (9799.86271952918*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1685.535988995133*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (22238.96202497564*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (9799.86271952918*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (18090.45406730636*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (9504.80204472374*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (1685.535988995133*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (13845.85692899847*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z))**2)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (3191.100586144774*(0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4394.910911334419*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (3595.48119553486*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (44425.66584294591*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (99545.8896778449*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (4394.910911334419*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (668.4363012972527*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (10003.96248949329*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (3208.231025069531*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (3595.48119553486*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (10003.96248949329*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (15749.84220059544*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+(44425.66584294591*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (3208.231025069531*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (99545.8896778449*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z))**3)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (9113.164260589*(0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (22858.99505191912*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (6570.134171263807*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (44742.1101591764*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (149900.7161737861*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (22858.99505191912*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (13955.25457292179*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (19804.60378563212*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (35815.80842098735*(-1.337429686660698 + x)**3* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (6570.134171263807*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (19804.60378563212*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (10479.25454166765*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (44742.1101591764*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (35815.80842098735*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (149900.7161737861*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z))**4)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (10266.35934012797*(0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (31453.20731075695*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (19747.34239947734*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (138662.7318828878*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+(317933.4237677336*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (31453.20731075695*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (5840.919127282343*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (28213.35853395424*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (19747.34239947734*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (28213.35853395424*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (138662.7318828878*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (317933.4237677336*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z))**5)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (16851.87319282334*(0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (78397.34354907643*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (36697.92399079812*(-1.337429686660698 + x)**2* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (166392.385176381*(-1.337429686660698 + x)**3* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (442117.6541142835*(-1.337429686660698 + x)**4* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (78397.34354907643*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (798.4561226612588*(-1.337429686660698 + x)*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (56748.10456572738*(-1.337429686660698 + x)**2* - (-1.337429686660698 + y)*(0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (19874.254447089*(-1.337429686660698 + x)**3*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (36697.92399079812*(-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (56748.10456572738*(-1.337429686660698 + x)* - (-1.337429686660698 + y)**2* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (166392.385176381*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) - - (19874.254447089*(-1.337429686660698 + x)*(-1.337429686660698 + y)**3* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (442117.6541142835*(-1.337429686660698 + y)**4* - (0.03475316211521958 + Cos(Degree*z))**6)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+(8631.70482082266*(0.03475316211521958 + Cos(Degree*z))**7)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (24464.25925714158*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**7)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (24464.25925714158*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**7)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (18180.5951447065*(0.03475316211521958 + Cos(Degree*z))**8)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (66823.20015695847*(-1.337429686660698 + x)* - (0.03475316211521958 + Cos(Degree*z))**8)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) + - (66823.20015695847*(-1.337429686660698 + y)* - (0.03475316211521958 + Cos(Degree*z))**8)/ - E**(1.429529597899499*((-1.337429686660698 + x)**2 + - (-1.337429686660698 + y)**2)) v1=v1+10000.0d0 RETURN END