Commit fe64b32b1e7ad5e7b47ede2e3400a14d51ee5fd1

Authored by Chris Smartt
1 parent 981a5185

Update file header information

Showing 105 changed files with 352 additions and 234 deletions   Show diff stats

Too many changes.

To preserve performance only 100 of 105 files displayed.

SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE bundle_domain_creation
30 31 ! CONTAINS
... ...
SRC/BUNDLE_DOMAIN_CREATION/create_global_domain_structure.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! NAME
29 30 ! SUBROUTINE create_global_domain_structure
30 31 !
... ...
SRC/BUNDLE_DOMAIN_CREATION/plot_bundle_cross_section.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS:
29 30 !SUBROUTINE plot_bundle_cross_section
30 31 !
... ...
SRC/BUNDLE_DOMAIN_CREATION/set_conductor_positions_for_Einc.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS:
29 30 !SUBROUTINE set_conductor_positions_for_Einc
30 31 !
... ...
SRC/CABLE_BUNDLE_MODULES/cable_bundle_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE cable_bundle_module
30 31 ! CONTAINS
... ...
SRC/CABLE_MODULES/Dconnector.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE Dconnector_set_parameters
30 31 ! SUBROUTINE Dconnector_set_internal_domain_information
... ...
SRC/CABLE_MODULES/ML_flex_cable.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE ML_flex_cable_set_parameters
30 31 ! SUBROUTINE ML_flex_cable_set_internal_domain_information
... ...
SRC/CABLE_MODULES/cable_checks.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE gt_zero_check(p,cable_spec_error,cable_name,message)
30 31 ! SUBROUTINE cylindrical_check(r,cable_spec_error,cable_name,message)
... ...
SRC/CABLE_MODULES/cable_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE cable_module
30 31 ! CONTAINS
... ...
SRC/CABLE_MODULES/coax.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE coax_set_parameters
30 31 ! SUBROUTINE coax_set_internal_domain_information
... ...
SRC/CABLE_MODULES/conductor_impedance_model.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! OVERALL DESCRIPTION
29 30 ! These subroutines perform processes related to the conductor impedance models available
30 31 !
... ...
SRC/CABLE_MODULES/cylindrical.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE cylindrical_set_parameters
30 31 ! SUBROUTINE cylindrical_set_internal_domain_information
... ...
SRC/CABLE_MODULES/flex_cable.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE flex_cable_set_parameters
30 31 ! SUBROUTINE flex_cable_set_internal_domain_information
... ...
SRC/CABLE_MODULES/ground_plane.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE ground_plane_set_parameters
30 31 ! SUBROUTINE ground_plane_set_internal_domain_information
... ...
SRC/CABLE_MODULES/overshield.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE overshield_set_parameters
30 31 !
... ...
SRC/CABLE_MODULES/shielded_twisted_pair.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE shielded_twisted_pair_set_parameters
30 31 ! SUBROUTINE shielded_twisted_pair_set_internal_domain_information
... ...
SRC/CABLE_MODULES/shielded_twisted_pair_cm_dm_parameter_calculation.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE shielded_twisted_pair_cm_dm_parameter_calculation
30 31 !
... ...
SRC/CABLE_MODULES/spacewire.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE spacewire_set_parameters
30 31 ! SUBROUTINE spacewire_set_internal_domain_information
... ...
SRC/CABLE_MODULES/twinax.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE twinax_set_parameters
30 31 ! SUBROUTINE twinax_set_internal_domain_information
... ...
SRC/CABLE_MODULES/twisted_pair.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE twisted_pair_set_parameters
30 31 ! SUBROUTINE twisted_pair_set_internal_domain_information
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/create_new_node.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE create_new_node
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_model.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTAINS (within include files):
29 30 !
30 31 !create_new_node.F90: SUBROUTINE create_new_node
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_model.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE create_spice_subcircuit_model
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_subcircuit_symbol.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE create_spice_subcircuit_symbol_NGspice
30 31 ! SUBROUTINE create_spice_subcircuit_symbol_LTspice
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/create_spice_validation_test_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE create_spice_validation_test_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_ZT_incident_field_excitation_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_ZT_incident_field_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_delay_line.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_delay_line
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_incident_field_excitation_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_incident_field_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_s_domain_controlled_voltage_source.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_s_domain_controlled_voltage_source
30 31 ! SUBROUTINE write_filter_model
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_comment_line.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_comment
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_dc_resistances.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_dc_resistances
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_domain_decomposition_equivalent_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_domain_decomposition_equivalent_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_method_of_characteristics_equivalent_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_method_of_characteristics_equivalent_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_modal_decomposition_equivalent_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_modal_decomposition_equivalent_circuit
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_spice_subcircuit_header.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_spice_subcircuit_header
30 31 !
... ...
SRC/CREATE_SPICE_CIRCUIT_MODEL/write_transfer_impedance_circuit.F90
1   -
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE write_transfer_impedance_circuit
30 31 !
... ...
SRC/GENERAL_MODULES/add_integer_to_string.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 !SUBROUTINE add_integer_to_string
29 30 !
30 31 ! NAME
... ...
SRC/GENERAL_MODULES/build_component_name_strings.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !SUBROUTINE build_name_with_conductor_and_end
30 31 !SUBROUTINE build_name_with_conductor_domainConductor_and_end
... ...
SRC/GENERAL_MODULES/constants.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! File Contents:
30 31 ! MODULE constants
31 32 !
... ... @@ -107,6 +108,8 @@ IMPLICIT NONE
107 108  
108 109 real(dp) :: max_mesh_edge_length=1d30 ! the maximum mesh edge length on internal boundaries
109 110  
  111 + real(dp) :: gp_edge_length=1d30 ! the edge length at the ground plane
  112 +
110 113 real(dp) :: cg_tol=1d-12 ! tolerance for conjugate gradient solution of Finite element Laplace matrix equation
111 114  
112 115 real(dp) :: Twisted_pair_equivalent_radius=1.5d0 ! The twisted pair commmon mode interaction is calculated by treating the
... ...
SRC/GENERAL_MODULES/convert_case.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! NAME
29 30 ! convert_to_lower_case
30 31 !
... ...
SRC/GENERAL_MODULES/frequency_spec.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE frequency_spec
30 31 ! SUBROUTINE read_and_set_up_frequency_specification
... ...
SRC/GENERAL_MODULES/general_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE general_module
30 31 !
... ...
SRC/GENERAL_MODULES/generate_shapes.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS:
29 30 !SUBROUTINE generate_circle_points
30 31 !SUBROUTINE generate_rectangle_points
... ...
SRC/GENERAL_MODULES/plot_geometry.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS:
29 30 !SUBROUTINE write_circle
30 31 !SUBROUTINE write_rectangle
... ...
SRC/GENERAL_MODULES/program_status.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !
30 31 ! SUBROUTINE write_program_status
... ...
SRC/GENERAL_MODULES/read_version.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !
30 31 ! SUBROUTINE read_version
... ... @@ -52,9 +53,9 @@
52 53  
53 54 include '../compilation_date.inc' ! this file specifies the compilation date
54 55  
55   - write(*,*)'Version :',trim(SPICE_CABLE_MODEL_BUILDER_version)
56   - write(*,*)'Date :',trim(SPICE_CABLE_MODEL_BUILDER_date)
57   - write(*,*)'Compilation date:',trim(SPICE_CABLE_MODEL_BUILDER_compilation_date)
  56 + write(*,*)'Version: ',trim(SPICE_CABLE_MODEL_BUILDER_version)
  57 + write(*,*)'Date: ',trim(SPICE_CABLE_MODEL_BUILDER_date)
  58 + write(*,*)'Compilation date: ',trim(SPICE_CABLE_MODEL_BUILDER_compilation_date)
58 59  
59 60 END SUBROUTINE read_version
60 61  
... ...
SRC/GENERAL_MODULES/read_write_subroutines.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !SUBROUTINE write_license
30 31 !SUBROUTINE path_format
... ... @@ -55,11 +56,11 @@ IMPLICIT NONE
55 56 ! START
56 57  
57 58 write(*,*)''
58   - write(*,*)'This software is part of SACAMOS, State of the Art CAble MOdels in Spice.'
  59 + write(*,*)'This software is part of SACAMOS, State of the Art CAble MOdels for Spice.'
59 60 write(*,*)'It was developed by the University of Nottingham and the Netherlands Aerospace'
60 61 write(*,*)'Centre (NLR) for ESA under contract number 4000112765/14/NL/HK. '
61 62 write(*,*)' '
62   - write(*,*)'Copyright (C) 2016-2017 University of Nottingham '
  63 + write(*,*)'Copyright (C) 2016-2018 University of Nottingham '
63 64 write(*,*)' '
64 65 write(*,*)'SACAMOS is free software: you can redistribute it and/or modify it under the'
65 66 write(*,*)'terms of the GNU General Public License as published by the Free Software'
... ...
SRC/MATHS_MODULES/FFT.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE FFT_TIME_TO_FREQ
30 31 ! SUBROUTINE FFT_FREQ_TO_TIME
... ...
SRC/MATHS_MODULES/cmatrix.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE write_cmatrix(Mat,dim,unit)
30 31 ! SUBROUTINE write_cmatrix_re(Mat,dim,unit)
31 32 ! SUBROUTINE write_cmatrix_im(Mat,dim,unit)
... ...
SRC/MATHS_MODULES/dmatrix.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE dwrite_matrix(a,ar,ac,dim,unit)
29 30 ! SUBROUTINE dread_matrix(a,ar,ac,dim,unit)
30 31 ! SUBROUTINE dinvert_Gauss_Jordan(A,ar,AI,dim)
... ...
SRC/MATHS_MODULES/maths.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! Name
29 30 ! maths
30 31 !
... ...
SRC/MTL_ANALYTIC_SOLUTION/MTL_analytic_solution.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS (within include files)
29 30 !
30 31 !frequency_domain_analysis.F90: SUBROUTINE frequency_domain_analysis
... ...
SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_MTL_solution.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE frequency_domain_MTL_solution
30 31 ! SUBROUTINE frequency_domain_MTL_solution_V
... ...
SRC/MTL_ANALYTIC_SOLUTION/frequency_domain_analysis.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE frequency_domain_analysis
30 31 !
... ...
SRC/MTL_ANALYTIC_SOLUTION/incident_field_excitation.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE calc_incident_field_components
30 31 ! SUBROUTINE calculate_incident_field_sources
... ...
SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE modal_decomposition_global
30 31 ! SUBROUTINE modal_decomposition_global_ZY
... ...
SRC/MTL_ANALYTIC_SOLUTION/modal_decomposition_LC.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE modal_decomposition_LC
30 31 ! SUBROUTINE orthogonal_transformation
... ...
SRC/MTL_ANALYTIC_SOLUTION/propagation_correction_filters.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE calculate_propagation_correction_filters
30 31 !
... ...
SRC/MTL_ANALYTIC_SOLUTION/time_domain_analysis.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE time_domain_analysis
30 31 !
... ...
SRC/NETWORK_SYNTHESIS/include_BRUNE_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -27,6 +27,7 @@
27 27 !
28 28 !
29 29 !
  30 +!
30 31 ! SUBROUTINE BRUNE_test(H,type,CFtype,R,L1out,C,L2out,K,found,HR,remainder_OK,remainder_zero)
31 32 ! SUBROUTINE LC_test_BRUNE(H_PR,L,C,found,HR,remainder_OK,remainder_zero)
32 33 ! SUBROUTINE L_test_BRUNE(H_PR,L,found,HR,remainder_OK,remainder_zero)
... ...
SRC/NETWORK_SYNTHESIS/include_C_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -27,6 +27,7 @@
27 27 !
28 28 !
29 29 !
  30 +!
30 31 ! SUBROUTINE C_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
31 32 !
32 33 !
... ...
SRC/NETWORK_SYNTHESIS/include_LC_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE LC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
29 30 !
30 31 !
... ...
SRC/NETWORK_SYNTHESIS/include_L_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE L_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
30 31 !
31 32 !
... ...
SRC/NETWORK_SYNTHESIS/include_R2_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE R2_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
30 31 !
31 32 !
... ...
SRC/NETWORK_SYNTHESIS/include_RC_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE RC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
30 31 !
31 32 !
... ...
SRC/NETWORK_SYNTHESIS/include_RLC_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE RLC_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
30 31 !
31 32 !
... ...
SRC/NETWORK_SYNTHESIS/include_RL_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE RL_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
29 30 !
30 31 !
... ...
SRC/NETWORK_SYNTHESIS/include_R_test.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE R_test(H_PR,type,CFtype,R,L,C,found,HR,remainder_OK,remainder_zero)
29 30 !
30 31 !
... ...
SRC/NETWORK_SYNTHESIS/include_local_filter_subroutines.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +
28 29 !
29 30 ! Description
30 31 ! Local filter functions used specifically in the network synthesis processes
... ...
SRC/NETWORK_SYNTHESIS/include_minimum_resistance_function.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE calculate_min_resistance_function(H,R,w0)
30 31 ! SUBROUTINE calculate_min_resistance_value(H,R,w0)
... ...
SRC/NETWORK_SYNTHESIS/include_pole_residue_test_functions.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTAINS:
29 30 ! FUNCTION conjugate_pair
30 31 ! FUNCTION imaginary_pair
... ...
SRC/NETWORK_SYNTHESIS/include_test_positive_real.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE test_filter_positive_real(H,stable,local_verbose)
29 30 !
30 31 !
... ...
SRC/NETWORK_SYNTHESIS/include_write_frequency_response.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! Description
30 31 ! This is a fortran fragment which is included in network_synthesis.F90
31 32 ! It is used for testing that the equivalent circuit model reproduces the
... ...
SRC/NETWORK_SYNTHESIS/include_write_spice_model.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! SUBROUTINE write_ladder_network(Hname,gain,CFterm,CFtype,CF_dim,max_order,R_add,nw,wmin,wmax, &
30 31 ! node_1_in,node_2_in,node_1_out,node_2_out,vref_node,next_free_node,unit)
31 32 !
... ...
SRC/NETWORK_SYNTHESIS/module_network_synthesis.F90
1   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
2 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
3 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
4 5 !
5   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
6 7 !
7 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
8 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -24,6 +25,7 @@
24 25 !
25 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
26 27 !
  28 +!
27 29 ! FILE CONTAINS (within include files):
28 30 ! SUBROUTINE BRUNE_test(H,type,CFtype,R,L1out,C,L2out,K,found,HR,remainder_OK,remainder_zero)
29 31 ! SUBROUTINE LC_test_BRUNE(H_PR,L,C,found,HR,remainder_OK,remainder_zero)
... ...
SRC/NETWORK_SYNTHESIS/network_synthesis.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! SUBROUTINE network_synthesis
30 31 !
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_functions.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! Description
30 31 ! functions related to rational function filter function representations
31 32 ! to be included in filter_module.F90
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! Name
30 31 ! filter_module
31 32 !
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_operators.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 !+
30 31 ! Name
31 32 ! filter_operators - overloading operators for filter functions
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_subroutines.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! Description
30 31 ! subroutines related to rational function filter function representations
31 32 ! to be included in filter_module.F90
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/filter_types.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! Description
29 30 ! type definitions for rational function filter function representations
30 31 ! to be included in filter_module.F90
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/findroots.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! FILE CONTENTS
30 31 !
31 32 ! SUBROUTINE findroots(a,roots,poly_order)
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_functions.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! NAME
30 31 ! polynomial_functions
31 32 !
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_operators.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 !+
29 30 ! Name
30 31 ! Operators - overloading operators for polynomials
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_subroutines.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! Description
30 31 ! subroutines related to polynomial data types
31 32 !
... ...
SRC/POLYNOMIAL_AND_FILTER_MODULES/polynomial_types.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! Name
29 30 ! polynomial_types
30 31 !
... ...
SRC/PUL_PARAMETER_CALCULATION/Aprod.F90
1   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  1 +!
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
2 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
3 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
4 5 !
5   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
6 7 !
7 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
8 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -24,6 +25,7 @@
24 25 !
25 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
26 27 !
  28 +!
27 29 ! File Contents:
28 30 !
29 31 ! SUBROUTINE Aprod
... ...
SRC/PUL_PARAMETER_CALCULATION/CG_solve.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,9 +25,10 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! SUBROUTINE solve_real_symm(n, b, x,tol,itmax)
29 30 ! SUBROUTINE dot ( n, x, y ,res)
30   -! SUBROUTINE solve_complex_symm(n, b, x,tolitmax)
  31 +! SUBROUTINE solve_complex_symm(n, b, x,tol,itmax)
31 32 ! SUBROUTINE zdot ( n, x, y ,res)
32 33 !
33 34 ! NAME
... ...
SRC/PUL_PARAMETER_CALCULATION/Laplace.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !
30 31 ! SUBROUTINE Laplace
... ... @@ -1098,6 +1099,7 @@ else if(.NOT.lossy_dielectric) then
1098 1099 v_tmp(1:n_known)=V(j1,j2,1:n_known)
1099 1100 b_tmp(1:N_unknown)=-matmul(K_rhs,v_tmp)
1100 1101 bt(1:N_unknown)=b_tmp(1:N_unknown)
  1102 + xt(1:N_unknown)=0d0 ! initial guess for xt
1101 1103  
1102 1104 ! conjugate gradient solution
1103 1105 CALL solve_real_symm(N_unknown, bt, xt, rtol, itnlim)
... ... @@ -1121,6 +1123,7 @@ else if (lossy_dielectric) then
1121 1123  
1122 1124 v_tmp(1:n_known)=V(j1,j2,1:n_known)
1123 1125 b_tmp(1:N_unknown)=-matmul(K_rhs,v_tmp)
  1126 + x_tmp(1:N_unknown)=(0d0,0d0) ! initial guess for x_tmp
1124 1127  
1125 1128 ! conjugate gradient solution
1126 1129 CALL solve_complex_symm(N_unknown, b_tmp, x_tmp, rtol,itnlim )
... ...
SRC/PUL_PARAMETER_CALCULATION/PUL_LC_Laplace.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !
30 31 ! SUBROUTINE PUL_LC_Laplace
... ... @@ -130,6 +131,8 @@ IMPLICIT NONE
130 131 real(dp),allocatable :: rtheta(:) ! rotation angle of conductor
131 132 real(dp),allocatable :: dl(:) ! edge length for the mesh on this shape
132 133 logical,allocatable :: conductor_has_dielectric(:) ! flag to indicate that a conductor has a dielectric around it
  134 +
  135 + real(dp) :: dl_gp ! edge length at the centre of the ground plane
133 136  
134 137 real(dp) :: dl_local ! edge length for the mesh at rectangle edge centre
135 138  
... ... @@ -449,6 +452,8 @@ IMPLICIT NONE
449 452 dl(1)=r(1)/(2*Laplace_surface_mesh_constant)
450 453 shape_to_region(1,inside) =0 ! inside is the dielectric region
451 454 shape_to_region(1,outside)=-1 ! no outside region
  455 +
  456 + dl_gp=min(gp_edge_length,dl(1))
452 457  
453 458 end if ! infinite ground plane
454 459  
... ... @@ -761,11 +766,11 @@ IMPLICIT NONE
761 766 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)
762 767  
763 768 else if (shape_type(i).EQ.semicircle) then
764   -
  769 +
765 770 write(gmsh_geometry_file_unit,*)' // semicircle ',i
766 771 point=point+1
767 772 write(gmsh_geometry_file_unit,*)'Point(',point,' ) = {',x(i)-xc+rox(i),',' &
768   - ,y(i)-yc+roy(i),',',0.0,',' ,dl(i),' };'
  773 + ,y(i)-yc+roy(i),',',0.0,',' ,dl_gp,' };' ! middle of ground plane point
769 774 point=point+1
770 775 write(gmsh_geometry_file_unit,*)'Point(',point,' ) = {',x(i)-xc+rox(i)+r(i),',' &
771 776 ,y(i)-yc+roy(i),',',0.0,',',dl(i),' };'
... ...
SRC/PUL_PARAMETER_CALCULATION/PUL_analytic.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 !
30 31 ! SUBROUTINE PUL_LC_calc_wide_separation_approximation
... ...
SRC/PUL_PARAMETER_CALCULATION/PUL_parameter_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE PUL_parameter_module
30 31 ! CONTAINS
... ...
SRC/SFILTER_FIT/Calculate_Sfilter.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File contents:
29 30 ! SUBROUTINE Calculate_Sfilter
30 31 !
... ...
SRC/SFILTER_FIT/Sfilter_fit_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! FILE CONTENTS (in include files)
29 30 !
30 31 ! SUBROUTINE Calculate_Sfilter
... ...
SRC/SFILTER_FIT/Weiner_Hopf.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File contents:
29 30 ! SUBROUTINE Weiner_Hopf
30 31 !
... ...
SRC/SFILTER_FIT/filter_MSE.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File contents:
29 30 ! SUBROUTINE filter_MSE
30 31 !
... ...
SRC/SPICE_CABLE_BUNDLE_MODULES/circuit_symbol_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE circuit_symbol_module
30 31 !
... ...
SRC/SPICE_CABLE_BUNDLE_MODULES/spice_cable_bundle_module.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE spice_cable_bundle_module
30 31 ! CONTAINSE
... ...
SRC/TYPE_SPECIFICATION_MODULE/type_specifications.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -25,6 +25,7 @@
25 25 !
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
  28 +!
28 29 ! File Contents:
29 30 ! MODULE type_specifications
30 31 !
... ...
SRC/cable_bundle_model_builder.F90
1 1 !
2   -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice.
  2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 3 ! It was developed by the University of Nottingham and the Netherlands Aerospace
4 4 ! Centre (NLR) for ESA under contract number 4000112765/14/NL/HK.
5 5 !
6   -! Copyright (C) 2016-2017 University of Nottingham
  6 +! Copyright (C) 2016-2018 University of Nottingham
7 7 !
8 8 ! SACAMOS is free software: you can redistribute it and/or modify it under the
9 9 ! terms of the GNU General Public License as published by the Free Software
... ... @@ -26,6 +26,7 @@
26 26 ! The University of Nottingham can be contacted at: ggiemr@nottingham.ac.uk
27 27 !
28 28 !
  29 +!
29 30 ! File Contents:
30 31 ! PROGRAM cable_bundle_model_builder
31 32 !
... ... @@ -362,6 +363,10 @@ integer :: dim
362 363 read(bundle_spec_file_unit,*,END=9000,ERR=9000)max_mesh_edge_length
363 364 end if
364 365  
  366 + if (INDEX(line,'gp_edge_length').NE.0) then
  367 + read(bundle_spec_file_unit,*,END=9000,ERR=9000)gp_edge_length
  368 + end if
  369 +
365 370 if (INDEX(line,'cg_tol').NE.0) then
366 371 read(bundle_spec_file_unit,*,END=9000,ERR=9000)cg_tol
367 372 end if
... ...