| Line | |
|---|
| 1 | # basic definitions |
|---|
| 2 | set expgui(gsasdir) /home/gsas |
|---|
| 3 | set expgui(gsasexe) /home/gsas/exe |
|---|
| 4 | set env(GSASBACKSPACE) 1 |
|---|
| 5 | set expgui(autoiconify) 0 |
|---|
| 6 | set expgui(debug) 0 |
|---|
| 7 | # source files |
|---|
| 8 | source ${expgui(gsasdir)}/expgui/readexp.tcl |
|---|
| 9 | source ${expgui(gsasdir)}/expgui/gsascmds.tcl |
|---|
| 10 | # load exp file |
|---|
| 11 | cd /home/toby/test/ |
|---|
| 12 | expload GARNET.EXP |
|---|
| 13 | mapexp |
|---|
| 14 | # make changes |
|---|
| 15 | expinfo title set "GARNET 300K" |
|---|
| 16 | histinfo 1 file set GARNET300.RAW |
|---|
| 17 | phaseinfo 1 a set [expr 1.0001 * [phaseinfo 1 a]] |
|---|
| 18 | phaseinfo 1 b set [expr 1.0001 * [phaseinfo 1 b]] |
|---|
| 19 | phaseinfo 1 c set [expr 1.0001 * [phaseinfo 1 c]] |
|---|
| 20 | # save & run |
|---|
| 21 | expwrite GARNET300.EXP |
|---|
| 22 | forknewterm POWPREF "$expgui(gsasexe)/powpref GARNET300" |
|---|
| 23 | forknewterm GENLES "$expgui(gsasexe)/genles GARNET300" |
|---|
Note: See
TracBrowser
for help on using the repository browser.
