allsel

csys,0

*If,Zweischicht,eq,1,then

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

*Do,ip,1,2*p
*Do,iq,1,q
R,110,1,  
noff=maxnode+(ip-1)*q*3
noff=noff+2*m*(p-1)*q
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)*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*raussen-(iq-1)*raussen/10,0 
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
inut1=(im-1)*p*q
inut1=inut1+m*(ip-1)*q+iq	!   (im-1)*p*q+2*m*(p-1)+iq
*If,inut1,gt,z1,then
inut1=inut1-z1
*EndIf
E,n1,n2,wicknodeo%inut1%
!*  
R,110,1,  
n3=noff+3
N,n3,koff,-0.3*raussen+raussen-(im-1)*raussen-(iq-1)*raussen/10,0  
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
inut2=(im-1)*p*q
inut2=inut2+m*(ip-1)*q+m*q+iq-eps	!   (im-1)*p*q+2*m*(p-1)+m*q+iq
*If,inut2,gt,z1,then
inut2=inut2-z1
*EndIf
*If,inut2,gt,z1,then
inut2=inut2-z1
*EndIf
E,n3,n2,wicknodeu%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,q,then
wicken%ip%=n3
*EndIf

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

*EndDo
*EndDo


*GET,maxnode, NODE, 0,num,max
R,112,rwickstirn1, ,
N,maxnode+1,-4*raussen-2*p*q*raussen/5,0.3*raussen+raussen-(im-1)*raussen,0  
RMOD,112,15,0,1  
ET,112,CIRCU124,0,0  
TYPE,112 
REAL,112 
MAT,1   
!*  
E,wickan1,maxnode+1 
*GET,er%im%,elem,0,num,max
!*  
R,113,lwickstirn1, ,
!*  
!*  
N,maxnode+2,-4*raussen-2*p*q*raussen/5,-0.3*raussen+raussen-(im-1)*raussen,0
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,wickan%2*p%,maxnode+2 
!*  
R,114+im-1,u1*cos(0+(im-1)*120),0,  
RMOD,114+im-1,15,0,33 
ET,114+im-1,CIRCU124,4,0  
TYPE,114+im-1 
REAL,114+im-1 
MAT,1   
!*  
N,maxnode+3,-3*raussen-2*p*q*raussen/5,+raussen-(im-1)*raussen,0
E,maxnode+1,maxnode+2,maxnode+3
*GET,eu%im%,elem,0,num,max

R,111,1e-6, ,
RMOD,111,15,0,1  
ET,111,CIRCU124,0,0  
TYPE,111 
REAL,111 
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
!*  
*EndDo

*Else

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

*Do,ip,1,p
*Do,iq,1,q
R,110,1,  
noff=maxnode+(ip-1)*q*3
noff=noff+2*m*(p-1)*q
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)*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*raussen-(iq-1)*raussen/10,0 
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
inut1=(im-1)*p*q
inut1=inut1+2*m*(ip-1)*q+iq	!   (im-1)*p*q+2*m*(p-1)+iq
*If,inut1,gt,z1,then
inut1=inut1-z1
*EndIf
E,n1,n2,wicknodeo%inut1%
!*  
R,110,1,  
n3=noff+3
N,n3,koff,-0.3*raussen+raussen-(im-1)*raussen-(iq-1)*raussen/10,0  
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
inut2=(im-1)*p*q
inut2=inut2+2*m*(ip-1)*q+m*q+iq	!   (im-1)*p*q+2*m*(p-1)+m*q+iq
*If,inut2,gt,z1,then
inut2=inut2-z1
*EndIf
*If,inut2,gt,z1,then
inut2=inut2-z1
*EndIf
E,n3,n2,wicknodeo%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,q,then
wicken%ip%=n3
*EndIf

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

*EndDo
*EndDo

*GET,maxnode, NODE, 0,num,max
R,112,rwickstirn1, ,
N,maxnode+1,-4*raussen-2*p*q*raussen/5,0.3*raussen+raussen-(im-1)*raussen,0  
RMOD,112,15,0,1  
ET,112,CIRCU124,0,0  
TYPE,112 
REAL,112 
MAT,1   
!*  
E,wickan1,maxnode+1 
*GET,er%im%,elem,0,num,max
!*  
R,113,lwickstirn1, ,
!*  
!*  
N,maxnode+2,-4*raussen-2*p*q*raussen/5,-0.3*raussen+raussen-(im-1)*raussen,0
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,wicken%p%,maxnode+2 
!*  
R,114+im-1,u1*cos(0+(im-1)*120),0,  
RMOD,114+im-1,15,0,33 
ET,114+im-1,CIRCU124,3,0  
TYPE,114+im-1 
REAL,114+im-1 
MAT,1   
!*  
N,maxnode+3,-3*raussen-2*p*q*raussen/5,+raussen-(im-1)*raussen,0
E,maxnode+1,maxnode+2,maxnode+3
*GET,eu%im%,elem,0,num,max

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

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

*EndIf

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

