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)*2*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*2*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)*2*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)*2*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)*2*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-5, ,
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,koff-0.4,0.3*raussen+raussen-(im-1)*2*raussen+.05,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,koff-0.5-(im-1)*raussen/5,0.3*raussen+raussen-(im-1)*2*raussen+.05,0  
wick1an%im%=maxnode+2
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,maxnode+2,maxnode+1 
!*  
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,-12*raussen-2*p*q*raussen/5,5*raussen-(im-1)*raussen/3,0
stp%im%=maxnode+3
N,maxnode+4,-10.5*raussen-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,eu%im%,elem,0,num,max

R,111,1e-5, ,
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
!*  
wick1en%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%,wick1an%im%
*EndDo

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

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

*If,vstern1,eq,1,then
*If,stern1,eq,1,then
E,stp1,ssternp
*EndIf
*EndIf

TYPE,111 
REAL,111 
MAT,1   

*If,stern1,eq,0,then
*Do,im,1,m
*If,im,ne,m,then
E,wick1en%im%,wick1an%im+1%
*Else
E,wick1en%im%,wick1an1
*EndIf
*EndDo
*Else
*Do,im,1,m
E,wick1en%im%,ssternp
*EndDo



*EndIf


*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)*2*raussen-(iq-1)*raussen/10,0  
n2=noff+2
N,n2,koff,+raussen-(im-1)*2*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)*2*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)*2*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)*2*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-5, ,
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

wick1en%im%=n3

*GET,maxnode, NODE, 0,num,max
R,112,rwickstirn1, ,
N,maxnode+1,koff-0.4,0.3*raussen+raussen-(im-1)*2*raussen+.05,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,koff-0.5-(im-1)*raussen/5,0.3*raussen+raussen-(im-1)*2*raussen+.05,0  
wick1an%im%=maxnode+2
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,maxnode+2,maxnode+1 
!*  
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,-12*raussen-2*p*q*raussen/5,5*raussen-(im-1)*raussen/3,0
stp%im%=maxnode+3
N,maxnode+4,-10.5*raussen-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,eu%im%,elem,0,num,max

R,111,1e-5, ,
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

*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%,wick1an%im%
*EndDo

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

*If,vstern1,eq,1,then
*If,stern1,eq,1,then
E,stp1,ssternp
*EndIf
*EndIf

*If,stern1,eq,0,then
*Do,im,1,m
*If,im,ne,m,then
E,wick1en%im%,wick1an%im+1%
*Else
E,wick1en%im%,wick1an1
*EndIf
*EndDo
*Else
*Do,im,1,m
E,wick1en%im%,ssternp
*EndDo



*EndIf


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