sedet.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     35186,        630]
NotebookOptionsPosition[     34179,        594]
NotebookOutlinePosition[     34733,        615]
CellTagsIndexPosition[     34690,        612]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "AceGen`"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.426186076125*^9, 3.426186080890625*^9}, {
   3.633505675351861*^9, 3.6335056790813913`*^9}, {3.633505765731646*^9, 
   3.633505769505602*^9}, {3.633505819953742*^9, 3.6335058233678102`*^9}, {
   3.633505859865068*^9, 3.6335058670195217`*^9}, {3.633510330456863*^9, 
   3.633510332930201*^9}, 3.633510877378813*^9, 3.788000854909232*^9, 
   3.792398456448639*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Set", "::", "\<\"write\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tag \\\\\\\"\\\", \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Times\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\({\\\"None\\\", \
\\\"\\\"}\\)\\)\\\\ \\(\\({\\\"Linux GCC\\\", \\\"/usr/bin/gcc\\\", \
\\\"/usr/bin/gcc\\\"}\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" is \
Protected.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/write\\\", \
ButtonNote -> \\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.487338918031162*^9, 3.623352988795377*^9, {3.633211642431384*^9, 
   3.633211651424848*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"name", "=", 
   RowBox[{"FileBaseName", "[", 
    RowBox[{"NotebookFileName", "[", "]"}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SMSInitialize", "[", 
  RowBox[{"name", ",", 
   RowBox[{"\"\<Language\>\"", "\[Rule]", "\"\<Fortran90\>\""}], ",", 
   RowBox[{"\"\<Mode\>\"", "\[Rule]", "\"\<Optimal\>\""}], ",", 
   RowBox[{"\"\<VectorLength\>\"", "\[Rule]", "50000"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSModule", "[", 
   RowBox[{"name", ",", 
    RowBox[{"Real", "[", 
     RowBox[{
      RowBox[{"se$$", "[", "6", "]"}], ",", 
      RowBox[{"tangent$$", "[", 
       RowBox[{"6", ",", "6"}], "]"}], ",", 
      RowBox[{"dcedgamma$$", "[", "6", "]"}], ",", 
      RowBox[{"dcedc$$", "[", 
       RowBox[{"6", ",", "6"}], "]"}], ",", 
      RowBox[{"dsedgamma$$", "[", "6", "]"}], ",", 
      RowBox[{"dsedc$$", "[", 
       RowBox[{"6", ",", "6"}], "]"}]}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"se", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"se$$", ",", 
      RowBox[{"{", "6", "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tangent", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"tangent$$", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dcedgamma", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dcedgamma$$", ",", 
      RowBox[{"{", "6", "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dcedc", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dcedc$$", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dsedgamma", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dsedgamma$$", ",", 
      RowBox[{"{", "6", "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dsedc", "\[DoubleRightTee]", 
   RowBox[{"SMSReal", "[", 
    RowBox[{"Array", "[", 
     RowBox[{"dsedc$$", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dsedc", "\[DoubleRightTee]", 
   RowBox[{
    RowBox[{"tangent", ".", "dcedc"}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dsedgamma", "\[DoubleRightTee]", 
   RowBox[{
    RowBox[{"tangent", ".", "dcedgamma"}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"dsedgamma", ",", "dsedgamma$$"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSExport", "[", 
   RowBox[{"dsedc", ",", "dsdec$$"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SMSWrite", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4261861348125*^9, 3.426186161828125*^9}, {
   3.427542224*^9, 3.4275422243125*^9}, 3.4275453758125*^9, {
   3.42754623571875*^9, 3.42754626359375*^9}, 3.42754785565625*^9, 
   3.427548169671875*^9, {3.42927996009375*^9, 3.429279962296875*^9}, {
   3.438439387125*^9, 3.438439388*^9}, {3.4404361632930803`*^9, 
   3.440436166949026*^9}, {3.445870620584727*^9, 3.445870623790863*^9}, {
   3.446216228289334*^9, 3.446216282742811*^9}, {3.44621631868624*^9, 
   3.44621631885499*^9}, {3.446216351102205*^9, 3.446216351183056*^9}, {
   3.446293786104152*^9, 3.446293792183764*^9}, 3.446475967218207*^9, {
   3.446880843300035*^9, 3.446880844170237*^9}, 3.446890826068512*^9, {
   3.446893822274331*^9, 3.446893824059276*^9}, {3.447498629269288*^9, 
   3.447498632900706*^9}, {3.448042303102645*^9, 3.448042305542992*^9}, {
   3.44809135248275*^9, 3.448091353321991*^9}, {3.44811001211119*^9, 
   3.448110041936853*^9}, {3.448110145266873*^9, 3.448110147053007*^9}, {
   3.44811094662273*^9, 3.448110948517034*^9}, {3.448112278914509*^9, 
   3.448112285473276*^9}, {3.448123744745762*^9, 3.448123753042899*^9}, {
   3.44813502902954*^9, 3.448135030591645*^9}, 3.448139237885815*^9, {
   3.448142207768088*^9, 3.448142212708065*^9}, {3.448146572727599*^9, 
   3.448146580081447*^9}, 3.448147365156846*^9, {3.4481830845304*^9, 
   3.448183087333543*^9}, {3.448297404805592*^9, 3.448297410149173*^9}, {
   3.448299943601687*^9, 3.448299943781274*^9}, {3.448545221410957*^9, 
   3.448545240547647*^9}, {3.448558032541431*^9, 3.448558049429341*^9}, {
   3.448577645025915*^9, 3.44857765766511*^9}, 3.448646244269343*^9, 
   3.448646303633465*^9, 3.448650150323119*^9, 3.448650194397192*^9, {
   3.450986663069806*^9, 3.450986698661041*^9}, {3.450986784898303*^9, 
   3.450986790407636*^9}, {3.45103843644679*^9, 3.451038454318932*^9}, {
   3.451038959733551*^9, 3.451038967300267*^9}, {3.451055116551082*^9, 
   3.45105514580022*^9}, {3.451056853936622*^9, 3.451056898166103*^9}, {
   3.451056930046932*^9, 3.451056960541834*^9}, 3.451057078682105*^9, {
   3.451057636755808*^9, 3.451057737642023*^9}, {3.451057860991008*^9, 
   3.451057866211105*^9}, {3.451058114122273*^9, 3.451058174190255*^9}, {
   3.45105828772525*^9, 3.451058319340709*^9}, {3.45105938792707*^9, 
   3.451059418178435*^9}, {3.451059483159359*^9, 3.451059485981179*^9}, {
   3.451059587072235*^9, 3.45105962136382*^9}, {3.451107615179875*^9, 
   3.451107620457742*^9}, {3.451115408251421*^9, 3.45111541171154*^9}, 
   3.451115750908897*^9, 3.451115818129735*^9, {3.451115980880613*^9, 
   3.451116031212839*^9}, {3.451126950600027*^9, 3.451126980243674*^9}, {
   3.451127037721711*^9, 3.451127053884392*^9}, {3.451127806730613*^9, 
   3.451127822216624*^9}, {3.451128076675198*^9, 3.451128099022692*^9}, {
   3.451128757324267*^9, 3.451128758462233*^9}, {3.451287067579806*^9, 
   3.451287100839201*^9}, {3.451299867003715*^9, 3.451299903089595*^9}, {
   3.451301484362469*^9, 3.451301491688129*^9}, {3.451303265833068*^9, 
   3.451303272679346*^9}, 3.451367044615671*^9, 3.451577192156044*^9, 
   3.451583714178725*^9, 3.451597162697447*^9, 3.451671931392434*^9, {
   3.45173512749507*^9, 3.451735128498657*^9}, {3.451991089529819*^9, 
   3.451991110666354*^9}, {3.451991144046453*^9, 3.45199114587802*^9}, {
   3.451991462846256*^9, 3.451991500362782*^9}, {3.451997916067656*^9, 
   3.451997916972168*^9}, {3.45199890129247*^9, 3.451998915997358*^9}, {
   3.45200670935004*^9, 3.452006715874024*^9}, {3.452012469910067*^9, 
   3.452012490173022*^9}, {3.456834853771174*^9, 3.456834855049622*^9}, {
   3.457254849180555*^9, 3.457254849655453*^9}, {3.457262386447555*^9, 
   3.457262421881778*^9}, {3.45726279128421*^9, 3.457262797305015*^9}, {
   3.457262841759947*^9, 3.457262846067908*^9}, {3.457263404382782*^9, 
   3.457263409199305*^9}, {3.457266457136763*^9, 3.45726646766391*^9}, {
   3.457267035582186*^9, 3.45726704163021*^9}, {3.457270087475956*^9, 
   3.457270103695919*^9}, {3.457270221117715*^9, 3.457270242777457*^9}, {
   3.457270745161356*^9, 3.457270746962593*^9}, 3.457272451595813*^9, {
   3.457272644930151*^9, 3.457272645570836*^9}, {3.457272842194768*^9, 
   3.457272842912609*^9}, {3.457273016027723*^9, 3.457273018103411*^9}, {
   3.457344956229929*^9, 3.457344957044853*^9}, {3.457345279448009*^9, 
   3.457345310101467*^9}, {3.457346557602675*^9, 3.457346558899008*^9}, {
   3.457351598835738*^9, 3.457351603910381*^9}, 3.457352361031333*^9, {
   3.457429905535572*^9, 3.457429906293728*^9}, 3.457769376744449*^9, {
   3.457782697718182*^9, 3.457782698992462*^9}, {3.457782908631504*^9, 
   3.457783004991385*^9}, {3.457783036491727*^9, 3.457783048514168*^9}, {
   3.457791318440554*^9, 3.457791320730181*^9}, {3.459591288632172*^9, 
   3.459591305681431*^9}, {3.459596642591884*^9, 3.459596652561107*^9}, {
   3.459597155683266*^9, 3.459597161835298*^9}, {3.459699400918235*^9, 
   3.45969940483994*^9}, 3.459699653553062*^9, {3.4596999207252*^9, 
   3.459699932561174*^9}, {3.459700591181047*^9, 3.459700592712694*^9}, {
   3.459700794907302*^9, 3.459700796404009*^9}, {3.459700899131591*^9, 
   3.459700902381678*^9}, 3.466151719058118*^9, {3.466152733054849*^9, 
   3.466152735813437*^9}, {3.466153344049096*^9, 3.466153352190165*^9}, 
   3.466153863479047*^9, {3.466153894892956*^9, 3.466153895123059*^9}, {
   3.466154039385586*^9, 3.466154043080144*^9}, {3.466154459896009*^9, 
   3.466154485883275*^9}, {3.466167328783002*^9, 3.466167357320884*^9}, 
   3.466167851581121*^9, {3.466169862212552*^9, 3.466169872033107*^9}, {
   3.466246197443149*^9, 3.466246200364558*^9}, {3.466271718668324*^9, 
   3.466271725427105*^9}, {3.466280497375553*^9, 3.466280506692231*^9}, {
   3.466342108091231*^9, 3.466342109292054*^9}, 3.466593247941474*^9, {
   3.468828705700693*^9, 3.468828725929084*^9}, 3.468828941220716*^9, {
   3.468921462092437*^9, 3.468921470354116*^9}, {3.474043501832173*^9, 
   3.474043519027277*^9}, {3.474043569395389*^9, 3.474043637493796*^9}, {
   3.474043765157254*^9, 3.474043866487606*^9}, {3.47404399487804*^9, 
   3.474044023758338*^9}, {3.474044657191828*^9, 3.474044702467668*^9}, {
   3.474047123323532*^9, 3.474047185032992*^9}, {3.474059999531765*^9, 
   3.474060001945677*^9}, {3.474061177628653*^9, 3.474061184789781*^9}, {
   3.474061865641941*^9, 3.474061873091734*^9}, {3.474062723208189*^9, 
   3.474062744258012*^9}, {3.474067506061337*^9, 3.474067506822393*^9}, {
   3.474067676357455*^9, 3.47406769448774*^9}, {3.474069492082337*^9, 
   3.474069493003804*^9}, {3.474069854903051*^9, 3.47406985547289*^9}, {
   3.474107703062398*^9, 3.474107708163212*^9}, {3.474108204932829*^9, 
   3.474108226673815*^9}, 3.474108522672617*^9, {3.474109566936646*^9, 
   3.474109579462998*^9}, {3.474110608566763*^9, 3.474110616577734*^9}, {
   3.474116619268959*^9, 3.4741166204678*^9}, 3.474125659010163*^9, {
   3.474188668815318*^9, 3.474188669303377*^9}, {3.478849533800956*^9, 
   3.478849537531636*^9}, {3.478849569743783*^9, 3.478849570997253*^9}, 
   3.479483219849529*^9, 3.479483260236949*^9, {3.623350685482924*^9, 
   3.6233506879201937`*^9}, {3.62335217830285*^9, 3.623352178670568*^9}, {
   3.623352779501381*^9, 3.6233527987078342`*^9}, {3.623352905426886*^9, 
   3.62335293809486*^9}, {3.62335298503487*^9, 3.6233529870476503`*^9}, {
   3.623353174548135*^9, 3.6233532074927797`*^9}, 3.623353239496044*^9, {
   3.623364388123123*^9, 3.623364404657198*^9}, {3.623364477003613*^9, 
   3.623364479875504*^9}, {3.623397866214465*^9, 3.623397884693262*^9}, {
   3.623398893391448*^9, 3.623398916426627*^9}, {3.6234959925706797`*^9, 
   3.623495992623004*^9}, 3.623496999271368*^9, 3.623497046472343*^9, {
   3.623506215436852*^9, 3.62350621625029*^9}, {3.623507134604549*^9, 
   3.623507140106915*^9}, 3.623507547005621*^9, {3.623509869387718*^9, 
   3.623509883739275*^9}, {3.623671744704914*^9, 3.623671760467641*^9}, {
   3.623671931075844*^9, 3.62367193901578*^9}, {3.623672011397779*^9, 
   3.6236720566052713`*^9}, {3.623672201917864*^9, 3.623672334437096*^9}, {
   3.623672403043641*^9, 3.623672561988954*^9}, {3.623672645334565*^9, 
   3.6236727362295732`*^9}, 3.62367297787388*^9, {3.623673920007008*^9, 
   3.623673959203126*^9}, {3.623675107147929*^9, 3.6236751248169317`*^9}, {
   3.623675189371151*^9, 3.623675203423944*^9}, {3.6236753308382397`*^9, 
   3.62367536626222*^9}, {3.633181105264208*^9, 3.63318111972281*^9}, {
   3.633181352935338*^9, 3.633181468054562*^9}, {3.6331818868837423`*^9, 
   3.633181918455461*^9}, 3.6332076987485332`*^9, 3.633211580915062*^9, {
   3.633211671709235*^9, 3.633211729000967*^9}, {3.633211759230466*^9, 
   3.633211790443005*^9}, 3.633211841369318*^9, {3.633471034425125*^9, 
   3.6334711018572083`*^9}, {3.63350497501215*^9, 3.633505047861884*^9}, {
   3.633505179781303*^9, 3.633505189918906*^9}, {3.6335054219214687`*^9, 
   3.633505506949073*^9}, {3.6335056149339447`*^9, 3.633505663999712*^9}, {
   3.633505703401958*^9, 3.6335057889491463`*^9}, {3.6335058445839243`*^9, 
   3.633505851132563*^9}, {3.633505992859291*^9, 3.633506250724085*^9}, {
   3.633509231154737*^9, 3.6335092331846447`*^9}, {3.633520783018941*^9, 
   3.633520794715095*^9}, {3.63352099151061*^9, 3.633521002369421*^9}, {
   3.633521202865965*^9, 3.633521215603702*^9}, {3.786094096306038*^9, 
   3.786094109004179*^9}, {3.786094142845127*^9, 3.786094147842201*^9}, {
   3.786094178848234*^9, 3.786094276092918*^9}, {3.7860943117581882`*^9, 
   3.786094418492827*^9}, {3.786094480988958*^9, 3.786094500096984*^9}, {
   3.786862917690199*^9, 3.786862959567819*^9}, {3.786863056486188*^9, 
   3.7868631246574783`*^9}, {3.786863181753387*^9, 3.786863187835134*^9}, {
   3.78686321952562*^9, 3.7868632230142393`*^9}, {3.7868663202444763`*^9, 
   3.7868663643193827`*^9}, {3.786891115081745*^9, 3.7868911274351883`*^9}, {
   3.786891954802383*^9, 3.786891975154585*^9}, {3.786893671152051*^9, 
   3.786893674517626*^9}, {3.7868946183920116`*^9, 3.7868946531357*^9}, {
   3.7868949061119337`*^9, 3.786895014771378*^9}, {3.786895423758771*^9, 
   3.786895461004738*^9}, {3.786895507586247*^9, 3.7868955228646593`*^9}, {
   3.786895960406198*^9, 3.7868960052321243`*^9}, {3.786896778447336*^9, 
   3.7868967963956137`*^9}, {3.786897115164958*^9, 3.786897115633255*^9}, {
   3.786898839499755*^9, 3.786898856607293*^9}, {3.786898972055217*^9, 
   3.7868989823413486`*^9}, {3.786899220603985*^9, 3.7868992319552507`*^9}, {
   3.7868993904118443`*^9, 3.786899497613679*^9}, {3.786900145651318*^9, 
   3.786900214976101*^9}, {3.786900420581636*^9, 3.786900423640758*^9}, {
   3.786900483510297*^9, 3.786900510406253*^9}, {3.786900813994562*^9, 
   3.7869008222819147`*^9}, {3.786901684546989*^9, 3.786901738646669*^9}, {
   3.78696524940001*^9, 3.7869652506298847`*^9}, {3.786965482846649*^9, 
   3.786965493243538*^9}, {3.786966530953803*^9, 3.78696653302289*^9}, {
   3.786966600383112*^9, 3.7869666046743298`*^9}, {3.786966961745336*^9, 
   3.786966991089644*^9}, 3.7869670850687647`*^9, {3.7869671664606323`*^9, 
   3.786967170667735*^9}, {3.7869672148607903`*^9, 3.786967214869101*^9}, {
   3.786967282874847*^9, 3.786967282888521*^9}, {3.7869673131126337`*^9, 
   3.78696737911415*^9}, 3.7869674562091217`*^9, {3.786967567958735*^9, 
   3.7869676443524637`*^9}, {3.786967842157312*^9, 3.786967901992332*^9}, {
   3.786967974440864*^9, 3.786967984705204*^9}, {3.786968022264246*^9, 
   3.786968032420978*^9}, {3.787058477891798*^9, 3.787058481009685*^9}, {
   3.7870587441709423`*^9, 3.787058757494173*^9}, {3.787119365958041*^9, 
   3.787119367894412*^9}, {3.787119399881976*^9, 3.787119412998602*^9}, {
   3.7871346340561523`*^9, 3.787134635945794*^9}, {3.787143206556177*^9, 
   3.787143214038175*^9}, {3.7871434766089897`*^9, 3.787143486700653*^9}, 
   3.787148336843845*^9, {3.787148780085361*^9, 3.78714878127871*^9}, {
   3.787158838201756*^9, 3.787158838210826*^9}, {3.7871612596973057`*^9, 
   3.787161292249177*^9}, {3.787163834293227*^9, 3.787163837559346*^9}, {
   3.787210684524818*^9, 3.7872107016213818`*^9}, 3.7872112504206533`*^9, {
   3.787211285442239*^9, 3.787211306924739*^9}, {3.787211652694735*^9, 
   3.787211669739995*^9}, {3.787214460181117*^9, 3.787214461037715*^9}, 
   3.787227556340597*^9, 3.787233954659184*^9, 3.787234307993191*^9, {
   3.787244619194268*^9, 3.787244668591545*^9}, {3.787287757281637*^9, 
   3.787287795109182*^9}, {3.787290642179956*^9, 3.787290668885665*^9}, {
   3.787633880523713*^9, 3.787633902208869*^9}, {3.787633976727274*^9, 
   3.787634044148718*^9}, {3.787634485453409*^9, 3.787634501099256*^9}, {
   3.787635871557852*^9, 3.7876358776522007`*^9}, 3.7876442503159723`*^9, 
   3.7876462620077744`*^9, {3.787667921239459*^9, 3.787667926649479*^9}, {
   3.787668352014618*^9, 3.787668352554392*^9}, {3.787668702579254*^9, 
   3.787668720374144*^9}, 3.78767266550712*^9, {3.7876777482607737`*^9, 
   3.7876777696689262`*^9}, {3.7876789719009037`*^9, 3.787679024138125*^9}, {
   3.78767961831291*^9, 3.7876796185077133`*^9}, {3.787732159713471*^9, 
   3.7877321663926573`*^9}, {3.787744121340433*^9, 3.787744121779324*^9}, {
   3.787763103727927*^9, 3.787763130089188*^9}, {3.787764159770872*^9, 
   3.787764170788673*^9}, {3.787764208053747*^9, 3.787764272267256*^9}, {
   3.787811345376718*^9, 3.787811350342523*^9}, {3.787817359606333*^9, 
   3.787817449337439*^9}, {3.787817577459271*^9, 3.787817580681583*^9}, {
   3.7878183453754177`*^9, 3.787818403066669*^9}, {3.787820320244364*^9, 
   3.787820338916992*^9}, {3.78782039730977*^9, 3.787820456825281*^9}, {
   3.787820499077695*^9, 3.787820521976986*^9}, 3.7878205960371513`*^9, {
   3.787820641739627*^9, 3.787820644673429*^9}, {3.78782077894531*^9, 
   3.787820782859008*^9}, 3.787822260856124*^9, {3.787822714146112*^9, 
   3.787822759558529*^9}, {3.78782279825037*^9, 3.787822812234104*^9}, {
   3.787824423705368*^9, 3.787824510794636*^9}, {3.787825322573501*^9, 
   3.787825377828514*^9}, {3.787905798975218*^9, 3.787905800132647*^9}, {
   3.7879058594622717`*^9, 3.787905883999103*^9}, {3.7879062891490088`*^9, 
   3.7879063069477367`*^9}, 3.7879099733755617`*^9, {3.787910501469706*^9, 
   3.787910519030005*^9}, {3.787910718382176*^9, 3.7879107192085114`*^9}, {
   3.7879107865773067`*^9, 3.787910815136485*^9}, 3.787911729105411*^9, {
   3.787915040286104*^9, 3.787915051992962*^9}, 3.787915082436692*^9, {
   3.787915355100162*^9, 3.7879153575335417`*^9}, {3.7879161451480513`*^9, 
   3.787916150337596*^9}, {3.787916182088491*^9, 3.7879161918204117`*^9}, {
   3.787917003732123*^9, 3.787917158831753*^9}, {3.78791723155849*^9, 
   3.787917303109633*^9}, {3.787917428608885*^9, 3.7879174463566427`*^9}, {
   3.7879174911582336`*^9, 3.7879175150986967`*^9}, {3.787917656365052*^9, 
   3.787917691008787*^9}, {3.787917908884152*^9, 3.7879179171836777`*^9}, {
   3.7879182035368443`*^9, 3.7879182063415117`*^9}, {3.7879182905663157`*^9, 
   3.78791833464919*^9}, 3.7879183756807833`*^9, {3.787918452935614*^9, 
   3.7879184714121113`*^9}, {3.787918628024517*^9, 3.7879187841166763`*^9}, {
   3.787919119036956*^9, 3.7879191922849894`*^9}, {3.787919232291347*^9, 
   3.787919243642042*^9}, {3.787919274925025*^9, 3.787919291706931*^9}, {
   3.787919335970831*^9, 3.7879194046406717`*^9}, {3.787919484445408*^9, 
   3.787919531757041*^9}, {3.787919579377973*^9, 3.787919601926601*^9}, 
   3.787921510956088*^9, {3.787923207389175*^9, 3.78792320910958*^9}, {
   3.788000871955295*^9, 3.7880008996143293`*^9}, {3.788001399535211*^9, 
   3.7880014175599623`*^9}, {3.78800146633405*^9, 3.788001467269123*^9}, {
   3.78800160630404*^9, 3.788001608200286*^9}, {3.788002241793804*^9, 
   3.7880022446855803`*^9}, {3.788002830083489*^9, 3.788002833050901*^9}, {
   3.7880030840608873`*^9, 3.788003092948024*^9}, 3.78800318798549*^9, {
   3.788003291468656*^9, 3.7880033238713427`*^9}, {3.788003373037961*^9, 
   3.788003374011304*^9}, {3.788003430044506*^9, 3.7880034460586967`*^9}, {
   3.7880034770161047`*^9, 3.788003488449459*^9}, {3.788004210298729*^9, 
   3.788004213059594*^9}, {3.78800430399596*^9, 3.788004312045282*^9}, {
   3.788004660739118*^9, 3.788004663402359*^9}, {3.78800472243329*^9, 
   3.78800474788477*^9}, {3.788005304892489*^9, 3.788005310805888*^9}, {
   3.7881590647126007`*^9, 3.788159123144261*^9}, {3.788163252729512*^9, 
   3.7881632592341127`*^9}, {3.7881633124120827`*^9, 3.788163314785987*^9}, {
   3.788163350960438*^9, 3.788163381397482*^9}, {3.788185225233151*^9, 
   3.788185228710939*^9}, {3.7881883562485228`*^9, 3.788188507918851*^9}, 
   3.788188680440261*^9, {3.788188914114376*^9, 3.788188953064186*^9}, {
   3.788189300405939*^9, 3.7881893018315*^9}, {3.788189801587059*^9, 
   3.788189801896927*^9}, {3.7881989971828327`*^9, 3.788199025835444*^9}, {
   3.7881990591863127`*^9, 3.7881990622739553`*^9}, {3.7882004847494917`*^9, 
   3.7882004878669643`*^9}, {3.788201901675926*^9, 3.788201905209181*^9}, {
   3.7882053520106153`*^9, 3.788205361918357*^9}, {3.788205863904912*^9, 
   3.788205875452635*^9}, {3.7882062321548367`*^9, 3.788206248020149*^9}, {
   3.788237659556633*^9, 3.788237668049274*^9}, {3.788240768849471*^9, 
   3.788240772728138*^9}, {3.788241222024387*^9, 3.788241236436619*^9}, {
   3.788241925651492*^9, 3.788241926357039*^9}, {3.7882419688624487`*^9, 
   3.788241992492131*^9}, {3.788247145181016*^9, 3.788247145631761*^9}, 
   3.7882482749570312`*^9, {3.788252888230715*^9, 3.7882529216039057`*^9}, {
   3.7882529727424498`*^9, 3.7882530227766943`*^9}, {3.788253065709194*^9, 
   3.7882530721102543`*^9}, {3.788253102923246*^9, 3.788253263729848*^9}, {
   3.788253757402154*^9, 3.788253783477777*^9}, {3.788261966034195*^9, 
   3.788262009568705*^9}, {3.788262204379243*^9, 3.788262206132073*^9}, {
   3.788262715139165*^9, 3.7882627892477713`*^9}, {3.7882628613645773`*^9, 
   3.788262861889724*^9}, {3.788263450685877*^9, 3.788263451167794*^9}, {
   3.788266337871354*^9, 3.788266344538026*^9}, {3.788283793240155*^9, 
   3.7882838196663027`*^9}, {3.788347444328701*^9, 3.788347446779481*^9}, 
   3.788374493082684*^9, {3.788374762554755*^9, 3.788374766418416*^9}, 
   3.78837482256082*^9, {3.7884173557289963`*^9, 3.788417379855178*^9}, {
   3.7884180265696297`*^9, 3.788418027039119*^9}, {3.788431870587536*^9, 
   3.788431900113811*^9}, {3.7886088552535152`*^9, 3.78860885877278*^9}, {
   3.788612101422476*^9, 3.788612105453396*^9}, {3.788612825634794*^9, 
   3.788612825640205*^9}, {3.788612860741973*^9, 3.7886128607441807`*^9}, {
   3.788613053229508*^9, 3.78861306932932*^9}, {3.7892096631778584`*^9, 
   3.7892096954626913`*^9}, {3.789209857284069*^9, 3.7892098678353786`*^9}, {
   3.7892204454022303`*^9, 3.7892205428167143`*^9}, 3.789807409567227*^9, {
   3.7898164211396713`*^9, 3.7898164404826317`*^9}, {3.7898228149393597`*^9, 
   3.789822841842964*^9}, 3.789824877763747*^9, 3.7898988632988367`*^9, {
   3.792397170418006*^9, 3.7923971715470867`*^9}, {3.792397884549402*^9, 
   3.792397913126491*^9}, {3.7923981549435177`*^9, 3.792398266660137*^9}, {
   3.792398351923814*^9, 3.79239845127104*^9}, {3.792399039737995*^9, 
   3.79239906811694*^9}, {3.792399564891508*^9, 3.792399674432773*^9}, 
   3.792425761617011*^9, {3.792425976859785*^9, 3.7924259980500393`*^9}, {
   3.7924263324639587`*^9, 3.792426336568715*^9}, {3.792426608552009*^9, 
   3.7924266142433643`*^9}, {3.792429630333213*^9, 3.792429730897369*^9}, 
   3.7924298390681477`*^9, {3.792435953302845*^9, 3.7924359661772413`*^9}, {
   3.7924371495555162`*^9, 3.792437161801044*^9}, {3.792437803029245*^9, 
   3.792437807506225*^9}, {3.792438036719983*^9, 3.792438098292316*^9}, {
   3.7924386653975077`*^9, 3.7924386753532333`*^9}, {3.7924388131653843`*^9, 
   3.792438839716969*^9}, {3.792467773255704*^9, 3.7924678106214733`*^9}, {
   3.792480556741006*^9, 3.792480564374642*^9}, {3.7924810000097*^9, 
   3.792481055868454*^9}, {3.792481433985323*^9, 3.792481575019656*^9}, {
   3.792481607926093*^9, 3.79248162948595*^9}, {3.792481876694724*^9, 
   3.7924819021995277`*^9}, {3.792481955078228*^9, 3.792481968884474*^9}, {
   3.792485745664872*^9, 3.792485760175848*^9}, {3.792485867965328*^9, 
   3.7924858699816713`*^9}, {3.7924863490839787`*^9, 3.792486411116991*^9}, {
   3.7924866465420732`*^9, 3.792486684186244*^9}, {3.792486722134691*^9, 
   3.792486738345251*^9}, {3.792486864730969*^9, 3.7924869444534903`*^9}, {
   3.79248716395408*^9, 3.792487167136798*^9}, {3.7924872824871473`*^9, 
   3.792487377285483*^9}, {3.792488022803441*^9, 3.792488069708475*^9}, {
   3.792507621890119*^9, 3.792507637911837*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.623676817349906*^9, 3.6236796288221684`*^9, {3.633181138467085*^9, 
   3.633181170261001*^9}, 3.633181323387053*^9, 3.6331813586827087`*^9, 
   3.6331818597362223`*^9, 3.633181922973483*^9, 3.633212214272945*^9, 
   3.6335050550015907`*^9, 3.63350520350387*^9, 3.633506311843285*^9, 
   3.633510338097499*^9, 3.633510880074025*^9, 3.633519700295865*^9, 
   3.633520420113976*^9, 3.633520766216907*^9, 3.6335207974580193`*^9, 
   3.633520896778717*^9, 3.633525401496825*^9, 3.786968001558004*^9, 
   3.7869680393053417`*^9, 3.7870594631423197`*^9, 3.787119422550466*^9, 
   3.787135712582191*^9, 3.7871435493425283`*^9, 3.7871460799190187`*^9, 
   3.7871483738590918`*^9, 3.7871487844903717`*^9, 3.787159186818946*^9, 
   3.787163915734022*^9, 3.7872107062245092`*^9, 3.7872113132691708`*^9, 
   3.78721167351683*^9, 3.787214465310419*^9, 3.7872275600919657`*^9, 
   3.787233959373474*^9, {3.787244652368438*^9, 3.787244672099218*^9}, 
   3.787290672652504*^9, 3.7876340546247797`*^9, 3.7876345558761387`*^9, 
   3.787644262442596*^9, 3.7876462809341583`*^9, 3.78766793001674*^9, 
   3.787668357088153*^9, 3.787668724726721*^9, 3.787672672373021*^9, 
   3.78767906400567*^9, 3.787732253709434*^9, 3.787744125328094*^9, 
   3.787763140198472*^9, 3.787764277403595*^9, 3.787811356772435*^9, 
   3.7878204723150167`*^9, 3.7878205312364388`*^9, 3.787820599628728*^9, 
   3.787820714204322*^9, 3.787820860802947*^9, 3.787822313323244*^9, 
   3.7878228331129227`*^9, 3.787824514351399*^9, 3.7878253820453873`*^9, 
   3.7879195538866253`*^9, 3.787919605993552*^9, 3.7879215349487534`*^9, 
   3.7879233986717987`*^9, 3.788003195069014*^9, 3.788003394024436*^9, 
   3.7880038803909407`*^9, 3.788004354556913*^9, 3.7880056414230213`*^9, 
   3.788159126322771*^9, 3.7881633278130207`*^9, 3.788163387094812*^9, 
   3.788185238319345*^9, 3.788188526696965*^9, 3.788188685812151*^9, 
   3.788189047986294*^9, 3.7881893078559523`*^9, 3.7881898087592363`*^9, 
   3.78819908484932*^9, 3.788200492311973*^9, 3.78820191547478*^9, 
   3.788202815406439*^9, 3.788205373339191*^9, 3.7882058790607843`*^9, 
   3.7882064402947063`*^9, 3.788237674621469*^9, 3.788240778686421*^9, 
   3.788241248305297*^9, 3.788242011897786*^9, 3.788247508140977*^9, 
   3.788248278203184*^9, 3.788253268028082*^9, 3.788262019039508*^9, 
   3.7882622106053047`*^9, 3.788262870952615*^9, 3.7882634568452263`*^9, 
   3.788265616915801*^9, 3.78826634722716*^9, 3.788283838611269*^9, 
   3.788347587528178*^9, 3.7883745072700863`*^9, 3.788374785086281*^9, 
   3.788374842403808*^9, 3.788418042123981*^9, 3.7884319505999317`*^9, 
   3.788613293558278*^9, 3.789209875596335*^9, 3.7892205525337257`*^9, 
   3.78965318146808*^9, 3.7898164533118277`*^9, 3.78982285326388*^9, 
   3.789823630354662*^9, 3.792398495974415*^9, 3.792481585740367*^9, 
   3.792482011086896*^9, 3.792488211544167*^9, 3.792508081870123*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     StyleBox["\<\"File:\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "\<\"sedet.f90\"\>", 
     StyleBox["\<\"Size:\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "7816"},
    {"\<\"Methods\"\>", "\<\"No.Formulae\"\>", "\<\"No.Leafs\"\>", 
     "\[SpanFromLeft]"},
    {
     StyleBox["\<\"sedet\"\>",
      StripOnInput->False,
      LineColor->RGBColor[0, 0, 1],
      FrontFaceColor->RGBColor[0, 0, 1],
      BackFaceColor->RGBColor[0, 0, 1],
      GraphicsColor->RGBColor[0, 0, 1],
      FontWeight->Bold,
      FontColor->RGBColor[0, 0, 1]], "2", "3454", "\[SpanFromLeft]"}
   },
   AutoDelete->False,
   GridBoxDividers->{"Rows" -> {1, 2}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Print",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuLNzlzHUi3fOHId5/sJov2ObrBIA9Jvlr5akgWkX8wQ
C8sG0snd/9hyQOIbrctBNM+iP9tzgfQ+JelvIPpKd7huHpB+ljU/txZIeyUt
+lgHpJ/nPbWuB9LLIl7OBtE1udM9m4B0vEn8GhDtUbNKoRVI34/7H9YJpM0W
NZSD6JK320+B6GdL/wt3AelHYTrK3UD63f7ZdSB6av12jilA2ke8SmMzkDY0
WWd7AEiXeeQkgOiKTt0KEF2zrLL/KpDeYbU58g6Qbjvl9tLE6o2jseQU4wjr
N44t5j5ZsUC6oPb4cgObN45bPpkmNgBpN/U5Dc1A+sUt/dcg+sYxAZFcRyDf
efqyqUD6332+OyB6GtP6RzOAdMKjsmmLgDQAH0upCQ==
  "]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.474197825235133*^9, 3.47420161346106*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.47418909142737*^9, 3.474189091470191*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.474188700946312*^9, 3.474188729602556*^9}, 
   3.4741891635218*^9, 3.47418948306068*^9, 3.474189685561896*^9, 
   3.474189801993022*^9, 3.474190500265791*^9, 3.474195650854939*^9, 
   3.474196348916482*^9, 3.478853707930504*^9, 3.4788894368152*^9, 
   3.47889012631805*^9, 3.478924451710711*^9, 3.479482323750732*^9, 
   3.479483149276924*^9, 3.479483302954696*^9, 3.479483631551895*^9, 
   3.479483776158913*^9, 3.479483828705929*^9, 3.479484836929735*^9, 
   3.479484895072572*^9, 3.479550017961924*^9, 3.479550892194786*^9, 
   3.479646020346574*^9, 3.479663028594002*^9, 3.479738833295507*^9, 
   3.479739468218192*^9, 3.487338991194268*^9, 3.623427190841576*^9, 
   3.6234971430461197`*^9, 3.62350586294328*^9, 3.62351042510102*^9, 
   3.623510515398631*^9, 3.6236768548209267`*^9, 3.623679672382414*^9, 
   3.63318193652949*^9, 3.633212244749817*^9, 3.633505114962913*^9, 
   3.6335103685562897`*^9, 3.633525415487137*^9, 3.7869680028330593`*^9, 
   3.786968271025524*^9, 3.787059696747711*^9, 3.787135948036755*^9, 
   3.787143782372727*^9, 3.7871463031023083`*^9, 3.787148608076342*^9, 
   3.787149008393546*^9, 3.787159416134193*^9, 3.787164079463788*^9, 
   3.787210846059698*^9, 3.787211513304998*^9, 3.7872118531272984`*^9, 
   3.787214659279395*^9, 3.787227828460827*^9, 3.787234155807354*^9, 
   3.787244855316176*^9, 3.7872908421490107`*^9, 3.787634230056988*^9, 
   3.787634734096661*^9, 3.787644467377522*^9, 3.7876464637029676`*^9, 
   3.787668106530992*^9, 3.787668539690949*^9, 3.787668922909227*^9, 
   3.787672856697275*^9, 3.787679293916502*^9, 3.787732458387735*^9, 
   3.787744384963991*^9, 3.787763378232843*^9, 3.787764528368929*^9, 
   3.787811645008952*^9, 3.787821092853754*^9, 3.787822571800806*^9, 
   3.787823062105686*^9, 3.787824713835286*^9, 3.787825628553793*^9, 
   3.7879200284302597`*^9, 3.7879219846852427`*^9, 3.787924049687723*^9, 
   3.788005884050849*^9, 3.7881598292815533`*^9, 3.788163582457121*^9, 
   3.788185460596581*^9, 3.788189650551586*^9, 3.788190149712825*^9, 
   3.78819920739745*^9, 3.7882006249168453`*^9, 3.7882020402121353`*^9, 
   3.788202938067359*^9, 3.788205504031954*^9, 3.78820600105414*^9, 
   3.788206442772019*^9, 3.788237677169046*^9, 3.788240781117675*^9, 
   3.788241375206403*^9, 3.788242143323427*^9, 3.788247628765786*^9, 
   3.788248419167511*^9, 3.788253445371456*^9, 3.788262167913156*^9, 
   3.788262332212113*^9, 3.78826299797157*^9, 3.7882635840292664`*^9, 
   3.7882657535934343`*^9, 3.78826648496455*^9, 3.7882839738420563`*^9, 
   3.788347716015777*^9, 3.788374509506298*^9, 3.7883747876470118`*^9, 
   3.788374977634845*^9, 3.78841817201966*^9, 3.78843207765681*^9, 
   3.7886134503337593`*^9, 3.7892100126954603`*^9, 3.789220690612049*^9, 
   3.789653310447762*^9, 3.789816585885322*^9, 3.789822981080855*^9, 
   3.7898238531122923`*^9, 3.792398496569796*^9, 3.792481591649077*^9, 
   3.792482016495772*^9, 3.792488213508068*^9, 3.79250808399312*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.474055265107882*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.447508077983658*^9, 3.447508078145165*^9}, {
   3.447508114486775*^9, 3.447508114821829*^9}, 3.451057126616637*^9, 
   3.457782306250087*^9, {3.474115444361475*^9, 3.474115444537497*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.466348308323692*^9, 3.466348314383057*^9}}]
},
WindowSize->{2558, 1490},
WindowMargins->{{Automatic, -169}, {-771, Automatic}},
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{611.28, 789.57},
"PostScriptOutputFile"->"/home/pedro/print.pdf"},
Magnification->3.,
FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 472, 8, 194, "Input"],
Cell[1042, 32, 923, 18, 65, "Message"]
}, Open  ]],
Cell[1980, 53, 150, 4, 143, "Input"],
Cell[CellGroupData[{
Cell[2155, 61, 23287, 361, 911, "Input"],
Cell[25445, 424, 2919, 41, 134, "Output"],
Cell[28367, 467, 1715, 44, 176, "Print"]
}, Open  ]],
Cell[30097, 514, 89, 1, 134, "Input"],
Cell[CellGroupData[{
Cell[30211, 519, 324, 9, 134, "Input"],
Cell[30538, 530, 3220, 50, 134, "Output"]
}, Open  ]],
Cell[33773, 583, 68, 1, 134, "Input"],
Cell[33844, 586, 236, 3, 134, "Input"],
Cell[34083, 591, 92, 1, 167, "Input"]
}
]
*)