20 double precision,
parameter ::
21 #
ge=2.002 319 304 3737 d0,
22 #
betae=927.400 899 d-23,
23 #
hbar=1.054 571 596 d-27,
double precision, parameter betae
double precision, parameter ge
double precision, parameter gammae
double precision, parameter hbar
double precision, parameter kb