!!
!!Rotor
!!

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

*If,ispul,gt,1,then
R,211,1e-6, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   
e,wicks%ispul-1%2,wicks%ispul%1
*EndIf

*If,ispul,eq,1,then
wickpan%ip%=n1
*EndIf
*If,ispul,eq,z2spul,then
wickpen%ip%=n3
*EndIf

!*  
*EndDo
*EndDo

*Do,ip,1,p-1
E,wickpen%ip%,wickpan%ip+1% 
*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,wickpan1,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%p%,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


