src/blockdata.f

Fortran project RESTRAX, source module src/blockdata.f.

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