source: trunk/doc/example_exp.tcl

Last change on this file was 932, checked in by toby, 11 years ago

address missing files

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