From c64e86d8a0db4291dbe76522cddff5c82d8f70b6 Mon Sep 17 00:00:00 2001
From: Jonathan Schilling <jons@proximafusion.com>
Date: Mon, 21 Oct 2024 11:42:19 +0200
Subject: [PATCH] add dbgout for greenf

---
 Sources/NESTOR_vacuum/scalpot.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Sources/NESTOR_vacuum/scalpot.f b/Sources/NESTOR_vacuum/scalpot.f
index 080f177..1e64833 100644
--- a/Sources/NESTOR_vacuum/scalpot.f
+++ b/Sources/NESTOR_vacuum/scalpot.f
@@ -3,7 +3,7 @@ SUBROUTINE scalpot(bvec, amatrix, ivacskip)
       USE parallel_include_module
       USE timer_sub
       USE dbgout
-      USE vmec_main, only: num_eqsolve_retries
+      USE vmec_main, ONLY: num_eqsolve_retries
       IMPLICIT NONE
 C-----------------------------------------------
 C   D u m m y   A r g u m e n t s
@@ -31,7 +31,7 @@ SUBROUTINE scalpot(bvec, amatrix, ivacskip)
       dbgout_greenf = open_dbg_context("vac1n_greenf",                         &
      &                                 num_eqsolve_retries)
 
-     ALLOCATE (grpmn(nuv3*mnpd2), stat=ip)
+      ALLOCATE (grpmn(nuv3*mnpd2), stat=ip)
       IF (ip .NE. 0) STOP 'GRPMN: Allocation error in scalpot'
 !
 !     COMPUTE TRANFORM OF ANALYTIC SOURCE AND KERNEL