!!
!!Rotor
!!
*Do,ipol,1,2*p
asel,s,mat,,13
allsel,below,area
ASEL,r,LOC,Y,-360/(4*p)+(ipol-1)*360/(2*p),360/(4*p)+(ipol-1)*360/(2*p) 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wickpnodel%ipol%, NODE, 0,num,min

asel,s,mat,,14
allsel,below,area
ASEL,r,LOC,Y,-360/(4*p)+(ipol-1)*360/(2*p),360/(4*p)+(ipol-1)*360/(2*p) 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wickpnoder%ipol%, NODE, 0,num,min

*EndDo

esel,s,mat,,11  
!!esel,a,mat,,13,14   
cm,kraftrot,elem
fmagbc,'kraftrot'

allsel
