
*Do,iz2,1,z2
  r,r1p%iz2%,1e4
  r,r2p%iz2%,1e4
*EndDo

*do,ip,1,p

!!
!!Positive Brste
!!

umdr=mod(winkel+kommu+360/p*(ip-1),360)
wi=(360-umdr)/(360/z2)

!!/output,lam,lis,,append
!!*VWrite,winkel,wi
!!('winkel=',g14.6,'wi=',g14.6)
!!/output,term

lam1p=nint(wi+lbue/2)-1
*If,lam1p,lt,1,then
lam1p=lam1p+z2
*EndIf
*If,lam1p,gt,z2,then
lam1p=lam1p-z2
*EndIf
lam1m=nint(wi-lbue/2)-1
*If,lam1m,lt,1,then
lam1m=lam1m+z2
*EndIf
*If,lam1m,gt,z2,then
lam1m=lam1m-z2
*EndIf

!!/output,lam,lis,,append
!!*VWrite,winkel,lam1m,lam1p
!!('winkel=',g14.6,'lam1m=',g14.6,'lam1p=',g14.6)
!!/output,term


!!
!!Negative Brste
!!

umdr=mod(winkel+kommu+180/p+360/p*(ip-1),360)
wi=(360-umdr)/(360/z2)

lam2p=nint(wi+lbue/2)-1
*If,lam2p,lt,1,then
lam2p=lam2p+z2
*EndIf
*If,lam2p,gt,z2,then
lam2p=lam2p-z2
*EndIf
lam2m=nint(wi-lbue/2)-1
*If,lam2m,lt,1,then
lam2m=lam2m+z2
*EndIf
*If,lam2m,gt,z2,then
lam2m=lam2m-z2
*EndIf

!!/output,lam,lis,,append
!!*VWrite,winkel,lam2m,lam2p
!!('winkel=',g14.6,'lam2m=',g14.6,'lam2p=',g14.6)
!!/output,term

r,r1p%lam1p%,1e-4
r,r1p%lam1m%,1e-4
r,r2p%lam2p%,1e-4
r,r2p%lam2m%,1e-4

*enddo


