include/const.inc

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

Source module last modified on Sat, 21 May 2005, 15:30;
HTML image of Fortran source automatically generated by for2html on Mon, 23 May 2005, 21:29.


# *** Physical constants ***

      real*8 pi,deg,minute,sec,rad,r8ln2,hbar,hovm,hsqov2m,
     &       gammal,gammani
      parameter (
     *  pi       = 3.141592653589793239d0,
     *  deg      = pi/180,
     *  minute   = pi/180/60,
     *  sec      = pi/180/3600,
     *  rad      = 180/pi,
     *  r8ln2    = 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]
 
# units
      real*8 euni
      character*5 cunit
      common /cnst/ euni,cunit

# program control
      logical*4 dbgref,needbefore
      real*8 dbgarg(16)
      integer*4 dbgiarg(16)
      common /pgmctrl/dbgarg,dbgiarg,dbgref,needbefore   

# *** Array dimensions ***
      
      integer*4 res_nvar,res_ncmd
     
      parameter( 
     *    res_nvar=50   ,    ! Actual number of variables  NNVARS
     *    res_ncmd=45)          ! Actual number of commands  NCMDS