!!
!!Rotor
!!

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,210,1,  
n1=maxnode+1
N,n1,2*raussen+(ip-1)*raussen/5,0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,2*raussen+(ip-1)*raussen/5,0-(ip-1)*raussen/5 
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
E,n1,n2,wickpnodel%ip%
!*  
R,210,1,  
n3=maxnode+3
N,n3,2*raussen+(ip-1)*raussen/5,-0.3*raussen-(ip-1)*raussen/5  
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
E,n3,n2,wickpnoder%ip%
wicks%ip%1=n1
wicks%ip%2=n3

*If,ip,eq,1,then
wickpan=n1
*EndIf
*If,ip,eq,2*p,then
wickpen=n1
*EndIf

!*  
*EndDo

R,211,1e-6, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   

*Do,ip,2,2*p,2
E,wicks%ip-1%2,wicks%ip%2 
*If,ip,ne,2*p,then
E,wicks%ip%1,wicks%ip+1%1 
*EndIf
*EndDo

*GET,maxnode, NODE, 0,num,max
R,212,rwickstirn2, ,
N,maxnode+1,1.1*raussen,0.3*raussen 
RMOD,212,15,0,1  
ET,212,CIRCU124,0,0  
TYPE,212 
REAL,212 
MAT,1   
!*  
E,wickpan,maxnode+1 
*GET,eer2,elem,0,num,max
!*  
R,213,lwickstirn2, ,
!*  
!*  
N,maxnode+2,1.1*raussen,-0.3*raussen
RMOD,213,15,0,11 
ET,213,CIRCU124,1,0  
TYPE,213 
REAL,213 
MAT,1   
!*  
E,wickpen,maxnode+2 
!*  
R,214,i2,0,  
RMOD,214,15,0,33 
ET,214,CIRCU124,4,0  
TYPE,214 
REAL,214 
MAT,1   
!*  
N,maxnode+3,raussen,0
E,maxnode+1,maxnode+2,maxnode+3
ET,214,CIRCU124,3,0  
*GET,eeu2,elem,0,num,max


*If,nwin,eq,1,then
KEYOPT,210,1,6  
*EndIf
