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