add dbgout for greenf

jons-pf · Oct 21, 2024 · c64e86d · c64e86d
1 parent 73923a4
commit c64e86d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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