!!
!!Rotor
!!
allsel
csys,0

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,110,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,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
E,n1,n2,wicknode1%ip%
!*  
R,110,1,  
n3=maxnode+3
N,n3,-2*raussen+(ip-1)*raussen/5,-0.3*raussen-(ip-1)*raussen/5  
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
E,n3,n2,wicknode2%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,111,1e-6, ,
RMOD,111,15,0,1  
ET,111,CIRCU124,0,0  
TYPE,111 
REAL,111 
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,112,rwickstirn1, ,
N,maxnode+1,-1.1*raussen,0.3*raussen 
RMOD,112,15,0,1  
ET,112,CIRCU124,0,0  
TYPE,112 
REAL,112 
MAT,1   
!*  
E,wickpan,maxnode+1 
*GET,eer1,elem,0,num,max
!*  
R,113,lwickstirn1, ,
!*  
!*  
N,maxnode+2,-1.1*raussen,-0.3*raussen
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,wickpen,maxnode+2 
!*  
R,114,i1,0,  
RMOD,114,15,0,33 
ET,114,CIRCU124,4,0  
TYPE,114 
REAL,114 
MAT,1   
!*  
N,maxnode+3,-raussen,0
E,maxnode+1,maxnode+2,maxnode+3
ET,114,CIRCU124,3,0  
*GET,eeu1,elem,0,num,max


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