From c6e5032d1096dd29daa6c7678f5b65c256db0581 Mon Sep 17 00:00:00 2001
From: Timothy Nunn <timothy.nunn@ukaea.uk>
Date: Wed, 21 Feb 2024 15:36:44 +0000
Subject: [PATCH] Correct name of iteration variable 152 in comments

---
 source/fortran/iteration_variables.f90 | 8 ++++----
 source/fortran/numerics.f90            | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/source/fortran/iteration_variables.f90 b/source/fortran/iteration_variables.f90
index ed65fd83f8..d64a0d7ef3 100755
--- a/source/fortran/iteration_variables.f90
+++ b/source/fortran/iteration_variables.f90
@@ -2230,7 +2230,7 @@ end subroutine set_itv_98
 
   !---------------------------------
 
-  
+
 
   !---------------------------------
 
@@ -3372,7 +3372,7 @@ end function itv_151
   !---------------------------------
 
   subroutine init_itv_152
-    !! <LI> (152) fbmaxcs : Ratio of separatrix density to Greenwald density
+    !! <LI> (152) fgwsep : Ratio of separatrix density to Greenwald density
     use numerics, only: lablxc, boundl, boundu
     implicit none
     lablxc(152) = 'fgwsep        '
@@ -4060,7 +4060,7 @@ subroutine loadxc
            case (99);
            case (100);
            case (101);
-           case (102); 
+           case (102);
            case (103);  xcm(i) = itv_103()
            case (104);  xcm(i) = itv_104()
            case (105);  xcm(i) = itv_105()
@@ -4327,7 +4327,7 @@ subroutine convxc(xc,nn)
            case (99);
            case (100);
            case (101);
-           case (102);  
+           case (102);
            case (103);  call set_itv_103(ratio)
            case (104);  call set_itv_104(ratio)
            case (105);  call set_itv_105(ratio)
diff --git a/source/fortran/numerics.f90 b/source/fortran/numerics.f90
index 4410f0d675..74ca524e8c 100755
--- a/source/fortran/numerics.f90
+++ b/source/fortran/numerics.f90
@@ -353,7 +353,7 @@ module numerics
   !! <LI> (149) fbmaxcs : F-value for max peak CS field (con. 79, itvar 149)
   !! <LI> (150) REMOVED
   !! <LI> (151) REMOVED
-  !! <LI> (152) fbmaxcs : Ratio of separatrix density to Greenwald density
+  !! <LI> (152) fgwsep : Ratio of separatrix density to Greenwald density
   !! <LI> (153) fpdivlim : F-value for minimum pdivt (con. 80)
   !! <LI> (154) fne0 : F-value for ne(0) > ne(ped) (con. 81)
   !! <LI> (155) pfusife : IFE input fusion power (MW) (ifedrv=3 only)