From 8ae37b4e00b9c0a848e18cf3c348f93952e7fbf2 Mon Sep 17 00:00:00 2001 From: Jonathan Schilling Date: Tue, 5 Dec 2023 16:25:03 +0100 Subject: [PATCH] fix missing declarations --- src/NESTOR/belicu.f90 | 3 +++ 1 file changed, 3 insertions(+) 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