From 6c41f3d8e46f44602a00063fcf6f0e4822b3505d Mon Sep 17 00:00:00 2001
From: Dylan Harries <dylan.harries@adelaide.edu.au>
Date: Wed, 1 Feb 2017 17:32:20 +1030
Subject: [PATCH] Allow storing the mass dimensions of input and extra
 parameters

---
 meta/Parameters.m | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/meta/Parameters.m b/meta/Parameters.m
index 4e51eaaf7..f0f2a62e2 100644
--- a/meta/Parameters.m
+++ b/meta/Parameters.m
@@ -169,6 +169,23 @@
 allOutputParameters = {};
 allPhases = {};
 
+(* list storing mass dimensions for input and extra parameters *)
+extraMassDimensions = {};
+
+AddMassDimensionInfo[par_, dim_?NumberQ] :=
+    Module[{parNames},
+           parNames = #[[1]]& /@ extraMassDimensions;
+           If[!MemberQ[parNames, par],
+              extraMassDimensions = Utils`ForceJoin[extraMassDimensions, {{par, dim}}];,
+              pos = Position[parNames, par, 1];
+              extraMassDimensions = ReplacePart[extraMassDimensions, pos -> {par, dim}];
+             ];
+          ];
+
+AddMassDimensionInfo[par_, dim_] :=
+    Print["Error: mass dimension for parameter ", par,
+          " must be a number"];
+
 GuessInputParameterType[Sign[par_]] :=
     CConversion`ScalarType[CConversion`integerScalarCType];
 GuessInputParameterType[FlexibleSUSY`Phase[par_]] :=