From 98928cd6c5c3cb7e4ecd3892a0fb54f6af1370ba Mon Sep 17 00:00:00 2001
From: chris.smartt <chris.smartt@nottingham.ac.uk>
Date: Tue, 19 Dec 2023 17:22:40 +0000
Subject: [PATCH] Minor update to proximity_effects branch
---
PROXIMITY_EFFECT_TEST_CASES/run_test_cases | 8 ++++++++
SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90 | 5 ++---
2 files changed, 10 insertions(+), 3 deletions(-)
create mode 100755 PROXIMITY_EFFECT_TEST_CASES/run_test_cases
diff --git a/PROXIMITY_EFFECT_TEST_CASES/run_test_cases b/PROXIMITY_EFFECT_TEST_CASES/run_test_cases
new file mode 100755
index 0000000..74a4181
--- /dev/null
+++ b/PROXIMITY_EFFECT_TEST_CASES/run_test_cases
@@ -0,0 +1,8 @@
+cd COAX_OVER_GROUND_FASTHENRY ; ./generate_spice_cable_bundle_model run ; cd ..
+cd COAX_OVER_GROUND_FASTHENRY_2 ; ./generate_spice_cable_bundle_model run ; cd ..
+cd SPACEWIRE_STP ; ./generate_spice_cable_bundle_model run ; cd ..
+cd THREE_RECTANGLES ; ./generate_spice_cable_bundle_model run ; cd ..
+cd TWINAX ; ./generate_spice_cable_bundle_model run ; cd ..
+cd TWISTED_PAIR ; ./generate_spice_cable_bundle_model run ; cd ..
+cd TWO_CYLINDRICAL_WIRES_SEPARATION_TEST ; ./generate_spice_cable_bundle_model run ; cd ..
+cd TWO_RECTANGULAR_WIRES_SEPARATION_TEST ; ./generate_spice_cable_bundle_model run ; cd ..
diff --git a/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90 b/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
index 819b39e..c52175c 100644
--- a/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
+++ b/SRC/PUL_PARAMETER_CALCULATION/PUL_RL_FastHenry2.F90
@@ -363,9 +363,8 @@ integer :: ierr
local_line_length=len(trim(line))
-! Changed to avoid compilation warning
-! freq_and_dim_string=line(33:local_line_length)
- freq_and_dim_string(1:local_line_length-32)=line(33:local_line_length)
+! The following line needs to be changed to avoid a compilation warning
+ freq_and_dim_string=line(33:local_line_length)
! write(*,*)'reading matrix for:',trim(freq_and_dim_string)
--
libgit2 0.21.2