Skip to content

Commit

Permalink
small corrections
Browse files Browse the repository at this point in the history
  • Loading branch information
Guillaume Simon committed Jan 23, 2024
1 parent 30c69ce commit a38a309
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/twiss.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6491,7 +6491,7 @@ SUBROUTINE qdbody(fsec,ftrk,tilt,sk1,orbit,el,ek,re,te)

double precision :: qk, qkl, qkl2
double precision :: cx, sx, cy, sy, biby4
double precision :: x,px,y,py,t,pt,deltaplusone,nk1
double precision :: x,px,y,py,t,pt,deltaplusone

!---- Set up c's and s's.
qk = sqrt(abs(sk1))
Expand Down

0 comments on commit a38a309

Please sign in to comment.