Reduce the number of SetDirectory[]/ResetDirectory[] calls in xsil2graphics2 Mathematica scripts when there are multiple moment groups.

git-svn-id: svn+ssh://svn.code.sf.net/p/xmds/code/trunk/xpdeint@2828 41b19578-b77a-4e3b-9682-c8570d237623