From a38a309f5f55fbfb69023a6275ffb1d3149de9bb Mon Sep 17 00:00:00 2001 From: Guillaume Simon Date: Tue, 23 Jan 2024 17:16:12 +0100 Subject: [PATCH] small corrections --- src/twiss.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/twiss.f90 b/src/twiss.f90 index 4461dbb16..450aa1609 100644 --- a/src/twiss.f90 +++ b/src/twiss.f90 @@ -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))