(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1969,         64]
NotebookOptionsPosition[      1718,         50]
NotebookOutlinePosition[      2071,         66]
CellTagsIndexPosition[      2028,         63]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{
   "SetDirectory", "[", 
    "\"\</Users/ws13/Documents/DarkSUSY/MG5/feynrules-current/\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/MSSMD\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<MSSMD.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ReadLHAFile", "[", 
   RowBox[{"Input", "\[Rule]", "\"\<sps1a.dat\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CheckHermiticity", "[", 
   RowBox[{"LADMuMu", "+", "LN1NDAD"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteUFO", "[", "Lag", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7324434905061827`*^9, 3.7324434959477243`*^9}, {
  3.7324442065609827`*^9, 3.732444215673705*^9}, {3.732447138253428*^9, 
  3.7324471410221243`*^9}, {3.7324473054173183`*^9, 3.732447308837887*^9}, {
  3.732448262361619*^9, 3.7324482625818768`*^9}, {3.7334377789676123`*^9, 
  3.73343777977355*^9}}]
},
WindowSize->{808, 655},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1156, 28, 131, "Input"]
}
]
*)

