allsel

csys,0

*If,Zweischicht2,eq,1,then

*Do,im,1,m
*GET,maxnode, NODE, 0,num,max

*Do,ip,1,2*p
*Do,iq,1,q2
R,210,1,  
noff=maxnode+(ip-1)*q2*3
noff=noff+2*m*(p-1)*q2
noff=noff+(iq-1)*3
koff=4*raussen-(ip-1)*m*q*raussen/10
koff=koff-(iq-1)*raussen/10
n1=noff+1
N,n1,koff,0.3*raussen+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0 
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
inut1=(im-1)*2*p*q2
inut1=inut1+m*(ip-1)*q2+iq	!   (im-1)*p*q+2*m*(p-1)+iq
*If,inut1,gt,z2,then
inut1=inut1-z2
*EndIf
E,n1,n2,wicknode1r%inut1%
!*  
R,210,1,  
n3=noff+3
N,n3,koff,-0.3*raussen+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0  
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
inut2=(im-1)*2*p*q2
inut2=inut2+m*(ip-1)*q2+m*q2+iq-eps2	!   (im-1)*p*q+2*m*(p-1)+m*q+iq
*If,inut2,gt,z2,then
inut2=inut2-z2
*EndIf
*If,inut2,gt,z2,then
inut2=inut2-z2
*EndIf
E,n3,n2,wicknode2r%inut2%
/output,Wick,lis,,append
*vwrite,im,ip,iq,inut1,inut2
(5(g14.6,' '))
/output,term
wick%iq%1=n1
wick%iq%2=n3

*If,iq,eq,1,then
wickan%ip%=n1
*EndIf
*If,iq,eq,q2,then
wicken%ip%=n3
*EndIf

!*  
*If,iq,gt,1,then
R,211,1e-5, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   
!*  
E,wick%iq-1%2,wick%iq%1 
*EndIf

*EndDo
*EndDo

*GET,maxnode, NODE, 0,num,max
R,212,rwickstirn2, ,
N,maxnode+1,4*raussen+2*p*q2*raussen/5,0.3*raussen+raussen-(im-1)*2*raussen,0  
RMOD,212,15,0,1  
ET,212,CIRCU124,0,0  
TYPE,212 
REAL,212 
MAT,1   
!*  
E,wickan1,maxnode+1 
*GET,er2%im%,elem,0,num,max

!*  
R,213,lwickstirn2, ,
!*  
!*  
N,maxnode+2,7*raussen+2*p*q2*raussen/5-(im-1)*raussen,0.3*raussen+raussen-(im-1)*2*raussen,0
RMOD,213,15,0,11 
ET,213,CIRCU124,1,0  
TYPE,213 
REAL,213 
MAT,1   
!*  
wick2an%im%=maxnode+2
E,maxnode+2,maxnode+1 
!*  
R,214+im-1,u2*cos(0+(im-1)*120),0,  
RMOD,214+im-1,15,0,33 
ET,214+im-1,CIRCU124,4,0  
TYPE,214+im-1 
REAL,214+im-1 
MAT,1   
!*  
N,maxnode+3,12*raussen+2*p*q*raussen/5,5*raussen-(im-1)*raussen/3,0
stp%im%=maxnode+3
N,maxnode+4,10.5*raussenp+2*p*q*raussen/5+(im-1)*raussen/4,5*raussen-(im-1)*raussen/3,0
N,maxnode+5,9*raussen+2*p*q*raussen/5+(im-1)*raussen/2,5*raussen-(im-1)*raussen/3,0
stm%im%=maxnode+5
E,maxnode+5,maxnode+3,maxnode+4
*GET,eu2%im%,elem,0,num,max

R,211,1e-5, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   
!*  
*if,q,gt,1,then
E,wick%iq-1%2,wick%iq%1 
*endif

*Do,ip,1,2*p,2
E,wicken%ip%,wicken%ip+1% 
*If,ip,ne,2*p-1,then
E,wickan%ip+1%,wickan%ip+2% 
*EndIf
*EndDo
!*  
wick2en%im%=wickan%2*p%

*EndDo

*Do,im,1,m
*If,im,ne,m,then
E,stp%im%,stp%im+1%
*Else
E,stp%im%,stp%1%
*EndIf
*EndDo

*Do,im,1,m
E,stm%im%,wick2an%im%
*EndDo

*GET,maxnode, NODE, 0,num,max
N,maxnode+1,+10*raussen+2*p*q*raussen/5,2*raussen
ssternp=maxnode+1

R,219,1e-5, ,
RMOD,219,15,0,1  
ET,219,CIRCU124,0,0  
TYPE,219 
REAL,219 
MAT,1   

*If,vstern2,eq,1,then
*If,stern2,eq,1,then
E,stp1,ssternp
*EndIf
*EndIf

TYPE,211 
REAL,211 
MAT,1   

*If,stern2,eq,0,then
*Do,im,1,m
*If,im,ne,m,then
E,wick2en%im%,wick2an%im+1%
*Else
E,wick2en%im%,wick2an1
*EndIf
*EndDo
*Else
*Do,im,1,m
E,wick2en%im%,ssternp
*EndDo
*EndIf


*Else

*Do,im,1,m
*GET,maxnode, NODE, 0,num,max

*Do,ip,1,p
*Do,iq,1,q2
R,210,1,  
noff=maxnode+(ip-1)*q2*3
noff=noff+2*m*(p-1)*q2
noff=noff+(iq-1)*3
koff=4*raussen-(ip-1)*m*q2*raussen/10
koff=koff+(iq-1)*raussen/10
n1=noff+1
N,n1,koff,0.3*raussen+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0 
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
inut1=(im-1)*2*p*q2
inut1=inut1+2*m*(ip-1)*q2+iq	!   (im-1)*p*q+2*m*(p-1)+iq
*If,inut1,gt,z2,then
inut1=inut1-z2
*EndIf
E,n1,n2,wicknode1r%inut1%
!*  
R,210,1,  
n3=noff+3
N,n3,koff,-0.3*raussen+raussen-(im-1)*2*raussen-(iq-1)*raussen/10,0  
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
inut2=(im-1)*2*p*q2
inut2=inut2+2*m*(ip-1)*q2+m*q2+iq	!   (im-1)*p*q+2*m*(p-1)+m*q+iq
*If,inut2,gt,z2,then
inut2=inut2-z2
*EndIf
*If,inut2,gt,z2,then
inut2=inut2-z2
*EndIf
E,n3,n2,wicknode1r%inut2%
/output,Wick,lis,,append
*vwrite,im,ip,iq,inut1,inut2
(5(g14.6,' '))
/output,term
wick%iq%1=n1
wick%iq%2=n3

*If,iq,eq,1,then
wickan%ip%=n1
*EndIf
*If,iq,eq,q2,then
wicken%ip%=n3
*EndIf

!*  
*If,iq,gt,1,then
R,211,1e-5, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   
!*  
E,wick%iq-1%2,wick%iq%1 
*EndIf

*EndDo
*EndDo

wick2en%im%=n3


*GET,maxnode, NODE, 0,num,max
R,212,rwickstirn2, ,
N,maxnode+1,4*raussen+2*p*q2*raussen/5,0.3*raussen+raussen-(im-1)*2*raussen,0  
RMOD,212,15,0,1  
ET,212,CIRCU124,0,0  
TYPE,212 
REAL,212 
MAT,1   
!*  
E,wickan1,maxnode+1 
*GET,er2%im%,elem,0,num,max
!*  
R,213,lwickstirn2, ,
!*  
!*  
N,maxnode+2,7*raussen+2*p*q2*raussen/5-(im-1)*raussen,0.3*raussen+raussen-(im-1)*2*raussen,0
RMOD,213,15,0,11 
ET,213,CIRCU124,1,0  
TYPE,213 
REAL,213 
MAT,1   
!*  
wick2an%im%=maxnode+2
E,maxnode+2,maxnode+1 
!*  
R,214+im-1,1e-5  
RMOD,214+im-1,15,0,33 
ET,214+im-1,CIRCU124,4,0  
TYPE,214+im-1 
REAL,214+im-1 
MAT,1   
!*  
N,maxnode+3,12*raussen+2*p*q*raussen/5,5*raussen-(im-1)*raussen/3,0
stp%im%=maxnode+3
N,maxnode+4,10.5*raussenp+2*p*q*raussen/5+(im-1)*raussen/4,5*raussen-(im-1)*raussen/3,0
N,maxnode+5,9*raussen+2*p*q*raussen/5+(im-1)*raussen/2,5*raussen-(im-1)*raussen/3,0
stm%im%=maxnode+5
E,maxnode+5,maxnode+3,maxnode+4
ET,214+im-1,CIRCU124,0,0  
*GET,eu2%im%,elem,0,num,max


R,211,1e-5, ,
RMOD,211,15,0,1  
ET,211,CIRCU124,0,0  
TYPE,211 
REAL,211 
MAT,1   
!*  
E,wick%iq-1%2,wick%iq%1 

*Do,ip,1,p-1
E,wicken%ip%,wickan%ip+1% 
*EndDo
!*  
*EndDo

*Do,im,1,m
*If,im,ne,m,then
E,stp%im%,stp%im+1%
*Else
E,stp%im%,stp%1%
*EndIf
*EndDo

*Do,im,1,m
E,stm%im%,wick2an%im%
*EndDo

*GET,maxnode, NODE, 0,num,max
N,maxnode+1,+10*raussen+2*p*q*raussen/5,2*raussen
ssternp=maxnode+1

*If,vstern2,eq,1,then
*If,stern2,eq,1,then
E,stp1,ssternp
*EndIf
*EndIf

*If,stern2,eq,0,then
*Do,im,1,m
*If,im,ne,m,then
E,wick2en%im%,wick2an%im+1%
*Else
E,wick2en%im%,wick2an1
*EndIf
*EndDo
*Else
*Do,im,1,m
E,wick2en%im%,ssternp
*EndDo
*EndIf

*EndIf


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