Source module last modified on Fri, 5 May 2006, 19:42;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
#***********************************************************************
# $Id: blockdata.f,v 1.6 2006/05/05 17:42:56 saroun Exp $
BLOCK DATA
#***********************************************************************
#
INCLUDE 'const.inc'
INCLUDE 'inout.inc'
INCLUDE 'config.inc'
INCLUDE 'res_grf.inc'
INCLUDE 'restrax.inc'
integer*4 irest,mrespar
parameter (irest=mres-res_nvar-res_ncmd)
parameter (mrespar=mpar-2)
integer*4 iseed,irnd
common /rndgen/ iseed,irnd
data mf_max,mf_cur /1,1/
data swplot,swraytr /1,0/
data devstr/ '/xserv '/
data iseed,irnd /0,0/
data datpath,respath,cfgpath,datname,cfgname,rescal_name,resname
* / 4* ' ', 'default.cfg', ' ', 'restrax.dat'/
data sinp,sout,smes /5,6,6/
data silent,dsilent /0,0/
data pathdel / '/'/
data cunit / 'meV'/
data jfixed/mpar*1/
data fittol,fitlam0 /0.01,100.0/
#// RESCAL parameters
data res_nam/
#// RESCAL parameters (extended)
& 'DM', 'DA', 'ETAM', 'ETAA', 'ETAS', 'SM', 'SS', 'SA', 'KFIX', 'FX',
& 'ALF1', 'ALF2', 'ALF3', 'ALF4', 'BET1', 'BET2', 'BET3', 'BET4',
& 'AS', 'BS', 'CS', 'AA', 'BB', 'CC', 'AX', 'AY', 'AZ', 'BX', 'BY', 'BZ',
& 'QH', 'QK', 'QL', 'EN', 'DH', 'DK', 'DL', 'DE', 'DA3', 'DA4', 'GH', 'GK',
& 'GL', 'GMOD', 'ROMH', 'ROMV', 'ROAH', 'ROAV', 'SDI', 'SHI',
#// I/O commands
& 'LSCFG', 'HELP', 'PATH', 'CPATH', 'FILE', 'CFG', 'EXCI', 'OUT',
& 'BAT', 'SHELL', 'GRFDE', 'PLOT', 'PRINT', 'SAVE', 'WRITE', 'EXIT',
& 'EXFF', 'SIMFC',
#// Special settings
& 'RO', 'ROA', 'EMOD', 'SPOS', 'FLIP', 'MAG', 'SPIN', 'AMOD', 'TAUF',
#// Execution commands
& 'BRAG', 'MBRAG', 'PHON', 'MPHON', 'FWHM', 'MFWHM', 'RES', 'MRES', 'FIT',
& 'MFIT', 'GENDT', 'PROF', 'OMEXC', 'DATA', 'EXPR', 'IMPR', 'OPTAS',
& irest* ' '/
data res_hlp / res_nvar* ' ',
1 'list of available configuration files ',
8 'list help from "restrax.hlp" file (if exists)',
6 '[pathname] set search path to data files (ILL format)',
6 '[pathname] set search path to config. files (*.cfg, *.res)',
7 '[filename] load parameters from RESCAL file or ILL data file',
9 '[filename] load instrument configuration [*.cfg]',
9 '[filename] set EXCI model (load shared library)',
1 '[filename] redirect output to a file',
2 '[filename] get input from a batch file',
2 'executes a system shell command',
* '[device] set device name for PGPLOT output',
7 '[1-6] plot R(Q,E) (1-3) or scan profiles (4-6)',
8 '[1-6] print out last plot(no) or as by PLOT (1-6)',
2 '[filename] save current parameters ',
3 '[filename] save simulated scan profile ',
4 'exit with warning if parameters are not saved ',
5 'exit without saving parameters ',
6 'create simulated data sets for flatcone mode',
9 '[mask] set "optimal" crystal curvatures (mask e.g. 1 0 1 0)',
9 '[mask] as ' 'RO' ', but analytical method',
4 '[0|1] switch elastic scattering mode ON|OFF (for SA=0 only)',
* '[x y z] move sample (x||ki), for MC only ',
7 '[fi ff] flip spin before/after the sample, e.g. [0 1] ',
8 ' ',
9 '[si sf] spin transfer, eg. 1 -1 = up -> down (0=all)',
1 '[0|1] switch between normal and "flat-cone" analyzer mode',
1 '[tau] set Fourier time to tau in [ns]',
3 '[1|2] Brag widths by TRAX',
2 '[1|2] Brag widths by Monte Carlo',
4 '[1] phonon widths by TRAX or Risoe [1]',
4 ' phonon widths by Monte Carlo',
* '[h k l] Brag and "vanad" fwhm along [h k l] (at dE=0), TRAX',
* '[h k l] Brag and "vanad" fwhm along [h k l] (at dE=0), M.C.',
5 '[1..4] resol. volumes [1] and matrix [2..4] by TRAX ',
5 '[1..4] resol. volumes [1] and matrix [2..4] by M.C. ',
2 'show and fit EXCI model using TRAX res. function',
2 'show and fit EXCI model using M.C. res. function',
1 '[nev] [suma] generate simulated scan data with errors',
3 '[1-5] plot profiles of R(Q,E) along (Qx,Qy,Qz,E,Kf)',
3 '[h k l] excitation energies and S(Q,E) for Q=[h k l]',
3 'data manager',
3 '[file] export resolution function to stdout or <file>',
3 '[file] read resolution function from stdinp or <file>',
3 ' ',
3 irest* ' '/
data hlpopt/
#xxxxxccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccxxx
1 'RESTRAX options: ',
2 ' ',
3 '-sx randomize with x, Example: -s10001 ',
4 '-tx test random generator with dim=x, e.g. -t5 ',
5 '-ran1 use Numerical Recipes RAN1 generator ',
6 '-rand use system random number generator (RAND) ',
7 '-dir=path define path to configuration files ',
7 '-exci=filename ... initial name of EXCI library without ext. ',
8 '-gsn for n>2, some graphics is saved in ASCII data ',
9 '-help (or -?) show this help '/
data spint /0/
# EXCI common fields
data excilib / 'libres_exci_osc.so'/
end