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