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