[mechrules14]

Hi,
am using ansys workbench with apdl Scripting . while running my simulation i am getting "inter r visual fortran runtime error"

would u please help me why am getting such an error. i have pasted my apdl script below



*GET,my_step,common,,stepcm,,int,11
my_step=my_step+1
*GET,my_timbeg,common,,stepcm,,real,1
*GET,my_timend,common,,stepcm,,real,2
/com,zzzzzz SubStep %my_step% ends at time %my_timend%
my_steps=200
my_step_size=my_timend/my_steps
!! allgemeine solver settings
nsub,1,1,1
*do,my_time,my_step_size,my_timend,my_step_size
!! Solver settings fuer den Lastschritt
time,my_time
!! Initialisierung
nsel,s,cm,,surf
esln
esel,r,enam,,153
sfe,all,1,pres,1,0
sfe,all,2,pres,1,0
!! in allen außer im letzten Lastschritt Bereichsfunktion anwenden
*if,my_time,lt,my_timend-1e-6,then
!! Bereich der Laastaufbringung
maxlocx=(100*(1-my_time))+10
minlocx=maxlocx-10
nsel,s,cm,,surf
nsel,r,loc,x,minlocx,maxlocx
esln
esel,r,enam,,153
!! auf Alle Elemente im Lastbereich Lastgroeße ermitteln und aufbringen
*afun,deg
my_elem=elnext(0)
*dowhile,my_elem
*get,my_locx,elem,my_elem,cent,x
*if,my_locx,gt,minlocx,then
*if,my_locx,lt,maxlocx,then
my_val=((1+cos((my_locx-minlocx-5)*36))/2)*arg1
/com,zzzz Element %my_elem% has center location %my_locx% and value %my_val%
sfe,my_elem,1,pres,1,my_val
sfe,my_elem,2,pres,1,- my_val*arg2
*endif
*endif
my_elem=elnext(my_elem)
*enddo
*endif
alls
solve
*enddo
*abbr,solve,*abbr,solve