diff --git a/src/NESTOR/belicu.f90 b/src/NESTOR/belicu.f90
index c0399c2e8..685915c90 100644
--- a/src/NESTOR/belicu.f90
+++ b/src/NESTOR/belicu.f90
@@ -26,6 +26,9 @@ SUBROUTINE belicu(torcur, bx, by, bz, cos1, sin1, rp, zp)
   REAL(rprec) :: current
   INTEGER :: i, j, kper, kv
 
+  REAL(rprec) :: L, Ri, Rf, Ri_p_Rf, Bmag
+  REAL(rprec), dimension(3) :: dvec, xpt, Ri_vec
+
   real(rprec), dimension(3, nuv2) :: eval_pos, magnetic_field
 
   ! If .true., use ABSCAB for computing the magnetic field contribution