finish

/prep7

*set,strd,90e6

esel,none

cm,bldam,elem

cm,bl1dam,elem

cm,bl2dam,elem

cm,bl3dam,elem

cm,bl4dam,elem

cm,bl5dam,elem

cm,bl6dam,elem

cm,bl7dam,elem

cm,bl8dam,elem

cm,bl9dam,elem

cm,bl0dam,elem

/post1

INRES,ALL   

FILE,'XLD','rst','.'

set,1,1

cmsel,s,AAA,elem

*get,jcount,elem,0,count,

*get,jmin,elem,0,num,min

cmsel,s,AAA,elem

etable,,s,1 

etable,,s,3 

SADD,is,S1,S3,1,-1, ,  

*do,i,120,126,1

set,1,i

ETABLE,REFL 

*set,jv,1

*do,j,1,jcount,1

*set,jv,ELNEXT(jv)

*get,pos,elem,jv,etab,is

*if,pos,ge,0.1*strd,then

cmsel,s,bl1dam

esel,a,,,jv

cm,bl1dam,elem

*endif

*if,pos,ge,0.2*strd,then

cmsel,s,bl2dam

esel,a,,,jv

cm,bl2dam,elem

*endif

*if,pos,ge,0.3*strd,then

cmsel,s,bl3dam

esel,a,,,jv

cm,bl3dam,elem

*endif

*if,pos,ge,0.4*strd,then

cmsel,s,bl4dam

esel,a,,,jv

cm,bl4dam,elem

*endif

*if,pos,ge,0.5*strd,then

cmsel,s,bl5dam

esel,a,,,jv

cm,bl5dam,elem

*endif

*if,pos,ge,0.6*strd,then

cmsel,s,bl6dam

esel,a,,,jv

cm,bl6dam,elem

*endif

*if,pos,ge,0.7*strd,then

cmsel,s,bl7dam

esel,a,,,jv

cm,bl7dam,elem

*endif

*if,pos,ge,0.8*strd,then

cmsel,s,bl8dam

esel,a,,,jv

cm,bl8dam,elem

*endif

*if,pos,ge,0.9*strd,then

cmsel,s,bl9dam

esel,a,,,jv

cm,bl9dam,elem

*endif

*if,pos,ge,strd,then

cmsel,s,bl0dam

esel,a,,,jv

cm,bl0dam,elem

*endif

cmsel,s,AAA

*enddo

*enddo

finish

/prep7

MP,EX,2,5e10

MP,NUXY,2,0.22  

MP,EX,3,5e10

MP,NUXY,3,0.22  

MP,EX,4,5e10

MP,NUXY,4,0.22  

MP,EX,5,5e10

MP,NUXY,5,0.22  

MP,EX,6,5e10

MP,NUXY,6,0.22  

MP,EX,7,5e10

MP,NUXY,7,0.22  

MP,EX,8,5e10

MP,NUXY,8,0.22  

MP,EX,9,5e10

MP,NUXY,9,0.22  

MP,EX,10,5e10

MP,NUXY,10,0.22  

MP,EX,11,5e10

MP,NUXY,11,0.22  

cmsel,s,bl1dam

mpchg,11,all

cmsel,s,bl2dam

mpchg,2,all

cmsel,s,bl3dam

mpchg,3,all

cmsel,s,bl4dam

mpchg,4,all

cmsel,s,bl5dam

mpchg,5,all

cmsel,s,bl6dam

mpchg,6,all

cmsel,s,bl7dam

mpchg,7,all

cmsel,s,bl8dam

mpchg,8,all

cmsel,s,bl9dam

mpchg,9,all

cmsel,s,bl0dam

mpchg,10,all

/NUMBER,1  

/PNUM,MAT,1 

esel,all

eplot

/COLOR,NUM,BLAC,1   

/COLOR,NUM,LGRA,2   

/COLOR,NUM,CBLU,3   

/COLOR,NUM,CYAN,4   

/COLOR,NUM,GCYA,5   

/COLOR,NUM,GREE,6   

/COLOR,NUM,YGRE,7   

/COLOR,NUM,YELL,8   

/COLOR,NUM,ORAN,9   

/COLOR,NUM,RED,10   

/COLOR,NUM,DGRA,11  

/REPLOT