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