include/const.inc

Fortran project EXCI, source module include/const.inc.

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)