(* Saving session - for possible debugging *)

maintainDumpsave := If[ifDumpSave === True,
(*   Share[]; *)(* To avoid lack of memory *) 
   filedump = ToFileName[dirtemp, "tmushrooms.mx"];
   Print["Saving session into the file ", filedump, " ..."];
   timedump = NumberForm[Timing[DumpSave[filedump, "Global`"]][[1]], {5, 1}];
   Print["   --- Session saved in ", timedump, " second. Use dumpsave.nb to read previously saved session."];
];