From fe64b32b1e7ad5e7b47ede2e3400a14d51ee5fd1 Mon Sep 17 00:00:00 2001 From: chris.smartt Date: Tue, 26 Jun 2018 19:52:01 +0100 Subject: [PATCH] Update file header information --- SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90 | 5 +++-- SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90 | 5 +++-- SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90 | 5 +++-- SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90 | 5 +++-- SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90 | 5 +++-- SRC/CABLE_MODULES/Dconnector.F90 | 5 +++-- SRC/CABLE_MODULES/ML_flex_cable.F90 | 5 +++-- SRC/CABLE_MODULES/cable_checks.F90 | 5 +++-- SRC/CABLE_MODULES/cable_module.F90 | 5 +++-- SRC/CABLE_MODULES/coax.F90 | 5 +++-- SRC/CABLE_MODULES/conductor_impedance_model.F90 | 5 +++-- SRC/CABLE_MODULES/cylindrical.F90 | 5 +++-- SRC/CABLE_MODULES/flex_cable.F90 | 5 +++-- SRC/CABLE_MODULES/ground_plane.F90 | 5 +++-- SRC/CABLE_MODULES/overshield.F90 | 5 +++-- SRC/CABLE_MODULES/shielded_twisted_pair.F90 | 5 +++-- SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90 | 5 +++-- SRC/CABLE_MODULES/spacewire.F90 | 5 +++-- SRC/CABLE_MODULES/twinax.F90 | 5 +++-- SRC/CABLE_MODULES/twisted_pair.F90 | 5 +++-- SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90 | 7 ++++--- SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90 | 7 ++++--- SRC/GENERAL_MODULES/add_integer_to_string.F90 | 5 +++-- SRC/GENERAL_MODULES/build_component_name_strings.F90 | 5 +++-- SRC/GENERAL_MODULES/constants.F90 | 7 +++++-- SRC/GENERAL_MODULES/convert_case.F90 | 5 +++-- SRC/GENERAL_MODULES/frequency_spec.F90 | 5 +++-- SRC/GENERAL_MODULES/general_module.F90 | 5 +++-- SRC/GENERAL_MODULES/generate_shapes.F90 | 5 +++-- SRC/GENERAL_MODULES/plot_geometry.F90 | 5 +++-- SRC/GENERAL_MODULES/program_status.F90 | 5 +++-- SRC/GENERAL_MODULES/read_version.F90 | 11 ++++++----- SRC/GENERAL_MODULES/read_write_subroutines.F90 | 9 +++++---- SRC/MATHS_MODULES/FFT.F90 | 5 +++-- SRC/MATHS_MODULES/cmatrix.F90 | 5 +++-- SRC/MATHS_MODULES/dmatrix.F90 | 5 +++-- SRC/MATHS_MODULES/maths.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90 | 5 +++-- SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_C_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_LC_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_L_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_R2_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_RC_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_RLC_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_RL_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_R_test.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90 | 5 +++-- SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90 | 6 ++++-- SRC/NETWORK_SYNTHESIS/network_synthesis.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90 | 5 +++-- SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90 | 5 +++-- SRC/PUL_PARAMETER_CALCULATION/Aprod.F90 | 6 ++++-- SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90 | 7 ++++--- SRC/PUL_PARAMETER_CALCULATION/Laplace.F90 | 7 +++++-- SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90 | 13 +++++++++---- SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90 | 5 +++-- SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90 | 5 +++-- SRC/SFILTER_FIT/Calculate_Sfilter.F90 | 5 +++-- SRC/SFILTER_FIT/Sfilter_fit_module.F90 | 5 +++-- SRC/SFILTER_FIT/Weiner_Hopf.F90 | 5 +++-- SRC/SFILTER_FIT/filter_MSE.F90 | 5 +++-- SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90 | 5 +++-- SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90 | 5 +++-- SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90 | 5 +++-- SRC/cable_bundle_model_builder.F90 | 9 +++++++-- SRC/cable_model_builder.F90 | 4 ++-- SRC/compare_results.F90 | 5 +++-- SRC/rational_function_fit.F90 | 5 +++-- SRC/shield_conductor_and_transfer_impedance_model_builder.F90 | 5 +++-- SRC/spice_cable_bundle_model_builder.F90 | 5 +++-- 105 files changed, 352 insertions(+), 234 deletions(-) diff --git a/SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90 b/SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90 index 0833254..10f5ec9 100644 --- a/SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90 +++ b/SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE bundle_domain_creation ! CONTAINS diff --git a/SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90 b/SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90 index be8b032..3f3cf96 100644 --- a/SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90 +++ b/SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! NAME ! SUBROUTINE create_global_domain_structure ! diff --git a/SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90 b/SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90 index c581422..2aec685 100644 --- a/SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90 +++ b/SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS: !SUBROUTINE plot_bundle_cross_section ! diff --git a/SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90 b/SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90 index c9beee1..ff1d49d 100644 --- a/SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90 +++ b/SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS: !SUBROUTINE set_conductor_positions_for_Einc ! diff --git a/SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90 b/SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90 index 059e0d1..9312735 100644 --- a/SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90 +++ b/SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE cable_bundle_module ! CONTAINS diff --git a/SRC/CABLE_MODULES/Dconnector.F90 b/SRC/CABLE_MODULES/Dconnector.F90 index fb2d22c..a95b80b 100644 --- a/SRC/CABLE_MODULES/Dconnector.F90 +++ b/SRC/CABLE_MODULES/Dconnector.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE Dconnector_set_parameters ! SUBROUTINE Dconnector_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/ML_flex_cable.F90 b/SRC/CABLE_MODULES/ML_flex_cable.F90 index 519ae9f..0000fd6 100644 --- a/SRC/CABLE_MODULES/ML_flex_cable.F90 +++ b/SRC/CABLE_MODULES/ML_flex_cable.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE ML_flex_cable_set_parameters ! SUBROUTINE ML_flex_cable_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/cable_checks.F90 b/SRC/CABLE_MODULES/cable_checks.F90 index 8efc41e..b6e2f2a 100644 --- a/SRC/CABLE_MODULES/cable_checks.F90 +++ b/SRC/CABLE_MODULES/cable_checks.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE gt_zero_check(p,cable_spec_error,cable_name,message) ! SUBROUTINE cylindrical_check(r,cable_spec_error,cable_name,message) diff --git a/SRC/CABLE_MODULES/cable_module.F90 b/SRC/CABLE_MODULES/cable_module.F90 index 1782e01..db7c2e7 100644 --- a/SRC/CABLE_MODULES/cable_module.F90 +++ b/SRC/CABLE_MODULES/cable_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE cable_module ! CONTAINS diff --git a/SRC/CABLE_MODULES/coax.F90 b/SRC/CABLE_MODULES/coax.F90 index 5911797..8128d74 100644 --- a/SRC/CABLE_MODULES/coax.F90 +++ b/SRC/CABLE_MODULES/coax.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE coax_set_parameters ! SUBROUTINE coax_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/conductor_impedance_model.F90 b/SRC/CABLE_MODULES/conductor_impedance_model.F90 index 955c706..628a8df 100644 --- a/SRC/CABLE_MODULES/conductor_impedance_model.F90 +++ b/SRC/CABLE_MODULES/conductor_impedance_model.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! OVERALL DESCRIPTION ! These subroutines perform processes related to the conductor impedance models available ! diff --git a/SRC/CABLE_MODULES/cylindrical.F90 b/SRC/CABLE_MODULES/cylindrical.F90 index 8ba83bd..ce2ec88 100644 --- a/SRC/CABLE_MODULES/cylindrical.F90 +++ b/SRC/CABLE_MODULES/cylindrical.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE cylindrical_set_parameters ! SUBROUTINE cylindrical_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/flex_cable.F90 b/SRC/CABLE_MODULES/flex_cable.F90 index aef51fb..95a2ae5 100644 --- a/SRC/CABLE_MODULES/flex_cable.F90 +++ b/SRC/CABLE_MODULES/flex_cable.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE flex_cable_set_parameters ! SUBROUTINE flex_cable_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/ground_plane.F90 b/SRC/CABLE_MODULES/ground_plane.F90 index 7309947..7513aca 100644 --- a/SRC/CABLE_MODULES/ground_plane.F90 +++ b/SRC/CABLE_MODULES/ground_plane.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE ground_plane_set_parameters ! SUBROUTINE ground_plane_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/overshield.F90 b/SRC/CABLE_MODULES/overshield.F90 index 35952e7..a43436f 100644 --- a/SRC/CABLE_MODULES/overshield.F90 +++ b/SRC/CABLE_MODULES/overshield.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE overshield_set_parameters ! diff --git a/SRC/CABLE_MODULES/shielded_twisted_pair.F90 b/SRC/CABLE_MODULES/shielded_twisted_pair.F90 index 3c087bc..22f2daf 100644 --- a/SRC/CABLE_MODULES/shielded_twisted_pair.F90 +++ b/SRC/CABLE_MODULES/shielded_twisted_pair.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE shielded_twisted_pair_set_parameters ! SUBROUTINE shielded_twisted_pair_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90 b/SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90 index 14fc143..a044330 100644 --- a/SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90 +++ b/SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE shielded_twisted_pair_cm_dm_parameter_calculation ! diff --git a/SRC/CABLE_MODULES/spacewire.F90 b/SRC/CABLE_MODULES/spacewire.F90 index f414c5a..5f0c1e0 100644 --- a/SRC/CABLE_MODULES/spacewire.F90 +++ b/SRC/CABLE_MODULES/spacewire.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE spacewire_set_parameters ! SUBROUTINE spacewire_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/twinax.F90 b/SRC/CABLE_MODULES/twinax.F90 index 6c2f9bc..7f8cd23 100644 --- a/SRC/CABLE_MODULES/twinax.F90 +++ b/SRC/CABLE_MODULES/twinax.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE twinax_set_parameters ! SUBROUTINE twinax_set_internal_domain_information diff --git a/SRC/CABLE_MODULES/twisted_pair.F90 b/SRC/CABLE_MODULES/twisted_pair.F90 index 5f817f0..778cd2f 100644 --- a/SRC/CABLE_MODULES/twisted_pair.F90 +++ b/SRC/CABLE_MODULES/twisted_pair.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE twisted_pair_set_parameters ! SUBROUTINE twisted_pair_set_internal_domain_information diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90 index e2968e8..e6b0d5e 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE create_new_node ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90 index 48f05fb..caacc17 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTAINS (within include files): ! !create_new_node.F90: SUBROUTINE create_new_node diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90 index 8f8fcc3..287e840 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE create_spice_subcircuit_model ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90 index 00dea6c..ce06832 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE create_spice_subcircuit_symbol_NGspice ! SUBROUTINE create_spice_subcircuit_symbol_LTspice diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90 index cfe13a9..599725d 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE create_spice_validation_test_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90 index c224007..81314e9 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_ZT_incident_field_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90 index a1d9c75..8e08c7f 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_delay_line ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90 index bd94c77..2a1f02f 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_incident_field_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90 index 21e0ec4..de737e5 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_s_domain_controlled_voltage_source ! SUBROUTINE write_filter_model diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90 index 0a8d628..1efa878 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_spice_comment ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90 index b4603ef..3f91ab9 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_spice_dc_resistances ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90 index 303efd3..ad735c1 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_spice_domain_decomposition_equivalent_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90 index 9bef541..c760063 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_spice_method_of_characteristics_equivalent_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90 index 67d1812..08cfefb 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! + ! File Contents: ! SUBROUTINE write_spice_modal_decomposition_equivalent_circuit ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90 index ee7a430..d9069f7 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_spice_subcircuit_header ! diff --git a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90 b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90 index cd9f563..9fd91f1 100644 --- a/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90 +++ b/SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90 @@ -1,9 +1,9 @@ - -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE write_transfer_impedance_circuit ! diff --git a/SRC/GENERAL_MODULES/add_integer_to_string.F90 b/SRC/GENERAL_MODULES/add_integer_to_string.F90 index 099c4ab..b9db813 100644 --- a/SRC/GENERAL_MODULES/add_integer_to_string.F90 +++ b/SRC/GENERAL_MODULES/add_integer_to_string.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! !SUBROUTINE add_integer_to_string ! ! NAME diff --git a/SRC/GENERAL_MODULES/build_component_name_strings.F90 b/SRC/GENERAL_MODULES/build_component_name_strings.F90 index 5efe468..7368c80 100644 --- a/SRC/GENERAL_MODULES/build_component_name_strings.F90 +++ b/SRC/GENERAL_MODULES/build_component_name_strings.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: !SUBROUTINE build_name_with_conductor_and_end !SUBROUTINE build_name_with_conductor_domainConductor_and_end diff --git a/SRC/GENERAL_MODULES/constants.F90 b/SRC/GENERAL_MODULES/constants.F90 index c62f2ca..3fb9e15 100644 --- a/SRC/GENERAL_MODULES/constants.F90 +++ b/SRC/GENERAL_MODULES/constants.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! File Contents: ! MODULE constants ! @@ -107,6 +108,8 @@ IMPLICIT NONE real(dp) :: max_mesh_edge_length=1d30 ! the maximum mesh edge length on internal boundaries + real(dp) :: gp_edge_length=1d30 ! the edge length at the ground plane + real(dp) :: cg_tol=1d-12 ! tolerance for conjugate gradient solution of Finite element Laplace matrix equation real(dp) :: Twisted_pair_equivalent_radius=1.5d0 ! The twisted pair commmon mode interaction is calculated by treating the diff --git a/SRC/GENERAL_MODULES/convert_case.F90 b/SRC/GENERAL_MODULES/convert_case.F90 index d5fb3b6..38d506c 100644 --- a/SRC/GENERAL_MODULES/convert_case.F90 +++ b/SRC/GENERAL_MODULES/convert_case.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! NAME ! convert_to_lower_case ! diff --git a/SRC/GENERAL_MODULES/frequency_spec.F90 b/SRC/GENERAL_MODULES/frequency_spec.F90 index 33ff865..fa9f025 100644 --- a/SRC/GENERAL_MODULES/frequency_spec.F90 +++ b/SRC/GENERAL_MODULES/frequency_spec.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE frequency_spec ! SUBROUTINE read_and_set_up_frequency_specification diff --git a/SRC/GENERAL_MODULES/general_module.F90 b/SRC/GENERAL_MODULES/general_module.F90 index c0ed5ac..ea0cf0a 100644 --- a/SRC/GENERAL_MODULES/general_module.F90 +++ b/SRC/GENERAL_MODULES/general_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE general_module ! diff --git a/SRC/GENERAL_MODULES/generate_shapes.F90 b/SRC/GENERAL_MODULES/generate_shapes.F90 index ebdfdd5..4fa6302 100644 --- a/SRC/GENERAL_MODULES/generate_shapes.F90 +++ b/SRC/GENERAL_MODULES/generate_shapes.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS: !SUBROUTINE generate_circle_points !SUBROUTINE generate_rectangle_points diff --git a/SRC/GENERAL_MODULES/plot_geometry.F90 b/SRC/GENERAL_MODULES/plot_geometry.F90 index 42db2d0..5693a33 100644 --- a/SRC/GENERAL_MODULES/plot_geometry.F90 +++ b/SRC/GENERAL_MODULES/plot_geometry.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS: !SUBROUTINE write_circle !SUBROUTINE write_rectangle diff --git a/SRC/GENERAL_MODULES/program_status.F90 b/SRC/GENERAL_MODULES/program_status.F90 index edf5c9b..b1b9df9 100644 --- a/SRC/GENERAL_MODULES/program_status.F90 +++ b/SRC/GENERAL_MODULES/program_status.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE write_program_status diff --git a/SRC/GENERAL_MODULES/read_version.F90 b/SRC/GENERAL_MODULES/read_version.F90 index 56acc08..4566e03 100644 --- a/SRC/GENERAL_MODULES/read_version.F90 +++ b/SRC/GENERAL_MODULES/read_version.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE read_version @@ -52,9 +53,9 @@ include '../compilation_date.inc' ! this file specifies the compilation date - write(*,*)'Version :',trim(SPICE_CABLE_MODEL_BUILDER_version) - write(*,*)'Date :',trim(SPICE_CABLE_MODEL_BUILDER_date) - write(*,*)'Compilation date:',trim(SPICE_CABLE_MODEL_BUILDER_compilation_date) + write(*,*)'Version: ',trim(SPICE_CABLE_MODEL_BUILDER_version) + write(*,*)'Date: ',trim(SPICE_CABLE_MODEL_BUILDER_date) + write(*,*)'Compilation date: ',trim(SPICE_CABLE_MODEL_BUILDER_compilation_date) END SUBROUTINE read_version diff --git a/SRC/GENERAL_MODULES/read_write_subroutines.F90 b/SRC/GENERAL_MODULES/read_write_subroutines.F90 index 7e93d75..f8d8e9a 100644 --- a/SRC/GENERAL_MODULES/read_write_subroutines.F90 +++ b/SRC/GENERAL_MODULES/read_write_subroutines.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: !SUBROUTINE write_license !SUBROUTINE path_format @@ -55,11 +56,11 @@ IMPLICIT NONE ! START write(*,*)'' - write(*,*)'This software is part of SACAMOS, State of the Art CAble MOdels in Spice.' + write(*,*)'This software is part of SACAMOS, State of the Art CAble MOdels for Spice.' write(*,*)'It was developed by the University of Nottingham and the Netherlands Aerospace' write(*,*)'Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ' write(*,*)' ' - write(*,*)'Copyright (C) 2016-2017 University of Nottingham ' + write(*,*)'Copyright (C) 2016-2018 University of Nottingham ' write(*,*)' ' write(*,*)'SACAMOS is free software: you can redistribute it and/or modify it under the' write(*,*)'terms of the GNU General Public License as published by the Free Software' diff --git a/SRC/MATHS_MODULES/FFT.F90 b/SRC/MATHS_MODULES/FFT.F90 index f2029ba..78f336c 100644 --- a/SRC/MATHS_MODULES/FFT.F90 +++ b/SRC/MATHS_MODULES/FFT.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE FFT_TIME_TO_FREQ ! SUBROUTINE FFT_FREQ_TO_TIME diff --git a/SRC/MATHS_MODULES/cmatrix.F90 b/SRC/MATHS_MODULES/cmatrix.F90 index c94cffb..7f44939 100644 --- a/SRC/MATHS_MODULES/cmatrix.F90 +++ b/SRC/MATHS_MODULES/cmatrix.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE write_cmatrix(Mat,dim,unit) ! SUBROUTINE write_cmatrix_re(Mat,dim,unit) ! SUBROUTINE write_cmatrix_im(Mat,dim,unit) diff --git a/SRC/MATHS_MODULES/dmatrix.F90 b/SRC/MATHS_MODULES/dmatrix.F90 index d08202a..f89e5b0 100644 --- a/SRC/MATHS_MODULES/dmatrix.F90 +++ b/SRC/MATHS_MODULES/dmatrix.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE dwrite_matrix(a,ar,ac,dim,unit) ! SUBROUTINE dread_matrix(a,ar,ac,dim,unit) ! SUBROUTINE dinvert_Gauss_Jordan(A,ar,AI,dim) diff --git a/SRC/MATHS_MODULES/maths.F90 b/SRC/MATHS_MODULES/maths.F90 index 08650e9..da946d0 100644 --- a/SRC/MATHS_MODULES/maths.F90 +++ b/SRC/MATHS_MODULES/maths.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! Name ! maths ! diff --git a/SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90 b/SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90 index 1242615..d4dea31 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS (within include files) ! !frequency_domain_analysis.F90: SUBROUTINE frequency_domain_analysis diff --git a/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90 b/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90 index c928ddb..3b1bef4 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE frequency_domain_MTL_solution ! SUBROUTINE frequency_domain_MTL_solution_V diff --git a/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90 b/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90 index edfad7c..5d11e68 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE frequency_domain_analysis ! diff --git a/SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90 b/SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90 index d8a708d..71baeb9 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE calc_incident_field_components ! SUBROUTINE calculate_incident_field_sources diff --git a/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90 b/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90 index 3f4d453..1753f9d 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE modal_decomposition_global ! SUBROUTINE modal_decomposition_global_ZY diff --git a/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90 b/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90 index b1ac43c..9eb8516 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE modal_decomposition_LC ! SUBROUTINE orthogonal_transformation diff --git a/SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90 b/SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90 index 2c96b90..22dc9ce 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE calculate_propagation_correction_filters ! diff --git a/SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90 b/SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90 index 96676dc..47baf41 100644 --- a/SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90 +++ b/SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE time_domain_analysis ! diff --git a/SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90 b/SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90 index 31dc6ee..1a06607 100644 --- a/SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -27,6 +27,7 @@ ! ! ! +! ! SUBROUTINE BRUNE_test(H,type,CFtype,R,L1out,C,L2out,K,found,HR,remainder_OK,remainder_zero) ! SUBROUTINE LC_test_BRUNE(H_PR,L,C,found,HR,remainder_OK,remainder_zero) ! SUBROUTINE L_test_BRUNE(H_PR,L,found,HR,remainder_OK,remainder_zero) diff --git a/SRC/NETWORK_SYNTHESIS/include_C_test.F90 b/SRC/NETWORK_SYNTHESIS/include_C_test.F90 index 3c2a69f..d82dd45 100644 --- a/SRC/NETWORK_SYNTHESIS/include_C_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_C_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -27,6 +27,7 @@ ! ! ! +! ! SUBROUTINE C_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_LC_test.F90 b/SRC/NETWORK_SYNTHESIS/include_LC_test.F90 index 25eceda..49277e4 100644 --- a/SRC/NETWORK_SYNTHESIS/include_LC_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_LC_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE LC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_L_test.F90 b/SRC/NETWORK_SYNTHESIS/include_L_test.F90 index f219b82..5c60fba 100644 --- a/SRC/NETWORK_SYNTHESIS/include_L_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_L_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE L_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_R2_test.F90 b/SRC/NETWORK_SYNTHESIS/include_R2_test.F90 index f6b5aa7..07ad85f 100644 --- a/SRC/NETWORK_SYNTHESIS/include_R2_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_R2_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE R2_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_RC_test.F90 b/SRC/NETWORK_SYNTHESIS/include_RC_test.F90 index af1e2b1..062aacb 100644 --- a/SRC/NETWORK_SYNTHESIS/include_RC_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_RC_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE RC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_RLC_test.F90 b/SRC/NETWORK_SYNTHESIS/include_RLC_test.F90 index 7ac88b8..9ef6b9a 100644 --- a/SRC/NETWORK_SYNTHESIS/include_RLC_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_RLC_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE RLC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_RL_test.F90 b/SRC/NETWORK_SYNTHESIS/include_RL_test.F90 index ff86c1c..1db8707 100644 --- a/SRC/NETWORK_SYNTHESIS/include_RL_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_RL_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE RL_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_R_test.F90 b/SRC/NETWORK_SYNTHESIS/include_R_test.F90 index 11ecf16..d5e1912 100644 --- a/SRC/NETWORK_SYNTHESIS/include_R_test.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_R_test.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE R_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90 b/SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90 index a234ac7..de5dd0e 100644 --- a/SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! + ! ! Description ! Local filter functions used specifically in the network synthesis processes diff --git a/SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90 b/SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90 index a2778c9..a006acd 100644 --- a/SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE calculate_min_resistance_function(H,R,w0) ! SUBROUTINE calculate_min_resistance_value(H,R,w0) diff --git a/SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90 b/SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90 index 2cf25b3..b0b8642 100644 --- a/SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTAINS: ! FUNCTION conjugate_pair ! FUNCTION imaginary_pair diff --git a/SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90 b/SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90 index 1f48b65..20d1ec8 100644 --- a/SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE test_filter_positive_real(H,stable,local_verbose) ! ! diff --git a/SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90 b/SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90 index f21156f..d16e667 100644 --- a/SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! Description ! This is a fortran fragment which is included in network_synthesis.F90 ! It is used for testing that the equivalent circuit model reproduces the diff --git a/SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90 b/SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90 index 652b6f5..0d007ed 100644 --- a/SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90 +++ b/SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! SUBROUTINE write_ladder_network(Hname,gain,CFterm,CFtype,CF_dim,max_order,R_add,nw,wmin,wmax, & ! node_1_in,node_2_in,node_1_out,node_2_out,vref_node,next_free_node,unit) ! diff --git a/SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90 b/SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90 index e07c272..bbbee4c 100644 --- a/SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90 +++ b/SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90 @@ -1,8 +1,9 @@ -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -24,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTAINS (within include files): ! SUBROUTINE BRUNE_test(H,type,CFtype,R,L1out,C,L2out,K,found,HR,remainder_OK,remainder_zero) ! SUBROUTINE LC_test_BRUNE(H_PR,L,C,found,HR,remainder_OK,remainder_zero) diff --git a/SRC/NETWORK_SYNTHESIS/network_synthesis.F90 b/SRC/NETWORK_SYNTHESIS/network_synthesis.F90 index 5b7983c..3ee6c6f 100644 --- a/SRC/NETWORK_SYNTHESIS/network_synthesis.F90 +++ b/SRC/NETWORK_SYNTHESIS/network_synthesis.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! SUBROUTINE network_synthesis ! diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90 index 9e223f6..eae053a 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! Description ! functions related to rational function filter function representations ! to be included in filter_module.F90 diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90 index 20c45eb..9bd85ea 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! Name ! filter_module ! diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90 index 9ad5aed..b4514cc 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! !+ ! Name ! filter_operators - overloading operators for filter functions diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90 index 23b8c94..f634d34 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! Description ! subroutines related to rational function filter function representations ! to be included in filter_module.F90 diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90 index 3fa292f..242810b 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! Description ! type definitions for rational function filter function representations ! to be included in filter_module.F90 diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90 index 978a073..b985962 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! FILE CONTENTS ! ! SUBROUTINE findroots(a,roots,poly_order) diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90 index ee25908..574a570 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! NAME ! polynomial_functions ! diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90 index 2ffab51..0491819 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! !+ ! Name ! Operators - overloading operators for polynomials diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90 index b28fc35..2724f7a 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! Description ! subroutines related to polynomial data types ! diff --git a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90 b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90 index aa4ca5e..8b6535f 100644 --- a/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90 +++ b/SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! Name ! polynomial_types ! diff --git a/SRC/PUL_PARAMETER_CALCULATION/Aprod.F90 b/SRC/PUL_PARAMETER_CALCULATION/Aprod.F90 index cb940c1..e430261 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/Aprod.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/Aprod.F90 @@ -1,8 +1,9 @@ -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -24,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE Aprod diff --git a/SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90 b/SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90 index c2c95b1..b12f832 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,9 +25,10 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! SUBROUTINE solve_real_symm(n, b, x,tol,itmax) ! SUBROUTINE dot ( n, x, y ,res) -! SUBROUTINE solve_complex_symm(n, b, x,tolitmax) +! SUBROUTINE solve_complex_symm(n, b, x,tol,itmax) ! SUBROUTINE zdot ( n, x, y ,res) ! ! NAME diff --git a/SRC/PUL_PARAMETER_CALCULATION/Laplace.F90 b/SRC/PUL_PARAMETER_CALCULATION/Laplace.F90 index 33c9a5b..1f2213a 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/Laplace.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/Laplace.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE Laplace @@ -1098,6 +1099,7 @@ else if(.NOT.lossy_dielectric) then v_tmp(1:n_known)=V(j1,j2,1:n_known) b_tmp(1:N_unknown)=-matmul(K_rhs,v_tmp) bt(1:N_unknown)=b_tmp(1:N_unknown) + xt(1:N_unknown)=0d0 ! initial guess for xt ! conjugate gradient solution CALL solve_real_symm(N_unknown, bt, xt, rtol, itnlim) @@ -1121,6 +1123,7 @@ else if (lossy_dielectric) then v_tmp(1:n_known)=V(j1,j2,1:n_known) b_tmp(1:N_unknown)=-matmul(K_rhs,v_tmp) + x_tmp(1:N_unknown)=(0d0,0d0) ! initial guess for x_tmp ! conjugate gradient solution CALL solve_complex_symm(N_unknown, b_tmp, x_tmp, rtol,itnlim ) diff --git a/SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90 b/SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90 index ec7e4b2..a3d20e8 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE PUL_LC_Laplace @@ -130,6 +131,8 @@ IMPLICIT NONE real(dp),allocatable :: rtheta(:) ! rotation angle of conductor real(dp),allocatable :: dl(:) ! edge length for the mesh on this shape logical,allocatable :: conductor_has_dielectric(:) ! flag to indicate that a conductor has a dielectric around it + + real(dp) :: dl_gp ! edge length at the centre of the ground plane real(dp) :: dl_local ! edge length for the mesh at rectangle edge centre @@ -449,6 +452,8 @@ IMPLICIT NONE dl(1)=r(1)/(2*Laplace_surface_mesh_constant) shape_to_region(1,inside) =0 ! inside is the dielectric region shape_to_region(1,outside)=-1 ! no outside region + + dl_gp=min(gp_edge_length,dl(1)) end if ! infinite ground plane @@ -761,11 +766,11 @@ IMPLICIT NONE CALL write_Dshape_gmsh(x(i),y(i),rw(i),rw2(i),rh(i),r(i),rox(i),roy(i),rtheta(i),dl(i),point,i,gmsh_geometry_file_unit) else if (shape_type(i).EQ.semicircle) then - + write(gmsh_geometry_file_unit,*)' // semicircle ',i point=point+1 write(gmsh_geometry_file_unit,*)'Point(',point,' ) = {',x(i)-xc+rox(i),',' & - ,y(i)-yc+roy(i),',',0.0,',' ,dl(i),' };' + ,y(i)-yc+roy(i),',',0.0,',' ,dl_gp,' };' ! middle of ground plane point point=point+1 write(gmsh_geometry_file_unit,*)'Point(',point,' ) = {',x(i)-xc+rox(i)+r(i),',' & ,y(i)-yc+roy(i),',',0.0,',',dl(i),' };' diff --git a/SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90 b/SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90 index 308e5ef..5e389b0 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! ! SUBROUTINE PUL_LC_calc_wide_separation_approximation diff --git a/SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90 b/SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90 index f1401c0..ef060b2 100644 --- a/SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90 +++ b/SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE PUL_parameter_module ! CONTAINS diff --git a/SRC/SFILTER_FIT/Calculate_Sfilter.F90 b/SRC/SFILTER_FIT/Calculate_Sfilter.F90 index fcbf7b3..811aefc 100644 --- a/SRC/SFILTER_FIT/Calculate_Sfilter.F90 +++ b/SRC/SFILTER_FIT/Calculate_Sfilter.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File contents: ! SUBROUTINE Calculate_Sfilter ! diff --git a/SRC/SFILTER_FIT/Sfilter_fit_module.F90 b/SRC/SFILTER_FIT/Sfilter_fit_module.F90 index dbb426f..1ea0b15 100644 --- a/SRC/SFILTER_FIT/Sfilter_fit_module.F90 +++ b/SRC/SFILTER_FIT/Sfilter_fit_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! FILE CONTENTS (in include files) ! ! SUBROUTINE Calculate_Sfilter diff --git a/SRC/SFILTER_FIT/Weiner_Hopf.F90 b/SRC/SFILTER_FIT/Weiner_Hopf.F90 index 8a95a55..031129a 100644 --- a/SRC/SFILTER_FIT/Weiner_Hopf.F90 +++ b/SRC/SFILTER_FIT/Weiner_Hopf.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File contents: ! SUBROUTINE Weiner_Hopf ! diff --git a/SRC/SFILTER_FIT/filter_MSE.F90 b/SRC/SFILTER_FIT/filter_MSE.F90 index 84322bc..5fb4077 100644 --- a/SRC/SFILTER_FIT/filter_MSE.F90 +++ b/SRC/SFILTER_FIT/filter_MSE.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File contents: ! SUBROUTINE filter_MSE ! diff --git a/SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90 b/SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90 index 195a590..614d875 100644 --- a/SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90 +++ b/SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE circuit_symbol_module ! diff --git a/SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90 b/SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90 index 8ecc836..1222000 100644 --- a/SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90 +++ b/SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE spice_cable_bundle_module ! CONTAINSE diff --git a/SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90 b/SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90 index 116fbab..12ca49b 100644 --- a/SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90 +++ b/SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! MODULE type_specifications ! diff --git a/SRC/cable_bundle_model_builder.F90 b/SRC/cable_bundle_model_builder.F90 index 0fca559..d34755d 100644 --- a/SRC/cable_bundle_model_builder.F90 +++ b/SRC/cable_bundle_model_builder.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! File Contents: ! PROGRAM cable_bundle_model_builder ! @@ -362,6 +363,10 @@ integer :: dim read(bundle_spec_file_unit,*,END=9000,ERR=9000)max_mesh_edge_length end if + if (INDEX(line,'gp_edge_length').NE.0) then + read(bundle_spec_file_unit,*,END=9000,ERR=9000)gp_edge_length + end if + if (INDEX(line,'cg_tol').NE.0) then read(bundle_spec_file_unit,*,END=9000,ERR=9000)cg_tol end if diff --git a/SRC/cable_model_builder.F90 b/SRC/cable_model_builder.F90 index f30ccdf..1a71b82 100644 --- a/SRC/cable_model_builder.F90 +++ b/SRC/cable_model_builder.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software diff --git a/SRC/compare_results.F90 b/SRC/compare_results.F90 index 12ecdab..f37d737 100644 --- a/SRC/compare_results.F90 +++ b/SRC/compare_results.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -26,6 +26,7 @@ ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! ! +! ! File Contents: ! ! MODULE compare_results_data diff --git a/SRC/rational_function_fit.F90 b/SRC/rational_function_fit.F90 index e1dd25b..90d235e 100644 --- a/SRC/rational_function_fit.F90 +++ b/SRC/rational_function_fit.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! PROGRAM rational_function_fit ! diff --git a/SRC/shield_conductor_and_transfer_impedance_model_builder.F90 b/SRC/shield_conductor_and_transfer_impedance_model_builder.F90 index 912c00e..e6371e8 100644 --- a/SRC/shield_conductor_and_transfer_impedance_model_builder.F90 +++ b/SRC/shield_conductor_and_transfer_impedance_model_builder.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! PROGRAM shield_conductor_and_transfer_impedance_model_builder ! diff --git a/SRC/spice_cable_bundle_model_builder.F90 b/SRC/spice_cable_bundle_model_builder.F90 index 84982e3..9fd49b0 100644 --- a/SRC/spice_cable_bundle_model_builder.F90 +++ b/SRC/spice_cable_bundle_model_builder.F90 @@ -1,9 +1,9 @@ ! -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice. ! It was developed by the University of Nottingham and the Netherlands Aerospace ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. ! -! Copyright (C) 2016-2017 University of Nottingham +! Copyright (C) 2016-2018 University of Nottingham ! ! SACAMOS is free software: you can redistribute it and/or modify it under the ! terms of the GNU General Public License as published by the Free Software @@ -25,6 +25,7 @@ ! ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk ! +! ! File Contents: ! PROGRAM spice_cable_bundle_model_builder ! -- libgit2 0.21.2