Source module last modified on Mon, 24 Apr 2006, 17:32;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
# ***** constants for RESTRAX ******
# *** Units ***
real*8 pi,deg,minute,sec,rad,sqrt8ln2,hbar,hovm,hsqov2m,
& gammal,gammani
parameter (
* pi = 3.141592653589793239d0,
* deg = pi/180,
* minute = pi/180/60,
* sec = pi/180/3600,
* rad = 180/pi,
* sqrt8ln2 = 2.354820045,
* hbar = 6.58211889d-4, ! [meV*ns]
* hovm = 6.296e-1, ! [m/ms*A]
* hsqov2m = 2.0721, ! [meV*A^2]
* gammal = 1.83246d8, ! [1/T/s] gyromagnetic ratio
* gammani = 0.00173) ! [rad/A]
real*8 euni,znorm
character*5 cunit
common /cnst/ znorm,euni,cunit
# EXCI version: used to check for compatibility with external EXCI libraries
real*4 exci_number
parameter (exci_number=5.2)
# *** Array dimensions ***
integer*4 mhis,nhi,mdat,maxd,mpar,mres,res_nvar,res_ncmd,
* mqom,nxr,mimax
parameter(
* mhis=129 , ! Histogram & data dimensions
* nhi= 91 , ! Default histogram size
* mdat=64 , ! Max. number of data files
* maxd=nhi*mdat , ! Dimension of arrays SPX,RHIST,...
* mpar=64 , ! Max. number of fitting parameters
* res_nvar=50 , ! Actual number of variables
* res_ncmd=44 , ! Actual number of commands
* mres=256 , ! Dimension of RES_DAT,...
* mqom=320000 , ! Dimension of QOM array
* mimax=128 , ! Max. & default dimension of image arrays
* nxr=3000 ) ! default number of (Q,w) points for gaussian R(Q,w)