Commit fe64b32b1e7ad5e7b47ede2e3400a14d51ee5fd1

Authored by Chris Smartt
1 parent 981a5185

Update file header information

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

Too many changes.

To preserve performance only 100 of 105 files displayed.

SRC/BUNDLE_DOMAIN_CREATION/bundle_domain_creation.F90
1 ! 1 !
2 -! This file is part of SACAMOS, State of the Art CAble MOdels in Spice. 2 +! This file is part of SACAMOS, State of the Art CAble MOdels for Spice.
3 ! 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