STELLOPT: Fixed issue with initalization of quasiiso target.

PrincetonUniversity · Nov 11, 2024 · 18b9117 · 18b9117
1 parent 6cffe88
commit 18b9117
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/STELLOPTV2/Sources/Chisq/chisq_quasiiso.f90 b/STELLOPTV2/Sources/Chisq/chisq_quasiiso.f90
@@ -15,8 +15,9 @@ SUBROUTINE chisq_quasiiso(target,sigma,niter,iflag)
       USE stellopt_runtime
       USE stellopt_targets
       USE equil_utils, ONLY: get_equil_iota
-      USE read_boozer_mod
+      USE read_boozer_mod, ONLY: bmnc_b, ixn_b, ixm_b, mnboz_b, ns_b, nfp_b
       USE vmec_input, ONLY: mpol, ntor
+!      USE stel_kinds, ONLY: rprec
 
 !-----------------------------------------------------------------------
 !     Input/Output Variables
@@ -179,10 +180,8 @@ SUBROUTINE chisq_quasiiso(target,sigma,niter,iflag)
          DO ik = 1, nsd
             IF (ABS(sigma(ik)) < bigno) THEN
                lbooz(ik) = .TRUE.
-               DO mn = 1, mnboz_b
-                  mtargets = mtargets + 1
-                  IF (niter == -2) target_dex(mtargets) = jtarget_quasiiso
-               END DO
+               mtargets = mtargets + 1
+               IF (niter == -2) target_dex(mtargets) = jtarget_quasiiso
             END IF
          END DO
       END IF