% script that set the  universal constants 
% JN 22.04.05
%
% JN 02.08.05
% modified - parameters are now global, to use them also in
% functions without need of recalling the script with each call to the
% function

global ALPHA ECHARGE LIGHTC PLANCK EMASS EV HCEVA DWW
global DWW 
global KILO MILI MICRO NANO ANGS ARCSEC DEG

% physical units
ALPHA = 7.297352568E-3; 
ECHARGE = 1.60217653E-19; %/C
LIGHTC = 299792458; % M/S
PLANCK = 6.58211915E-16; %eV s (H/2PI) 
EMASS = 0.000510998918; %GeV 
EV = 1.60217653E-19; %joules 
W2E = 12398.41856; % angstrom to electronvolt
HCEVA = 12398.41856; % hc product in eV.Angstrom

% usual bandwidth;
DWW = 0.001;

% unit factors
KILO = 1e3;
MILI = 1e-3;
MICRO = 1E-6;
NANO = 1E-9;
ANGS = 1e-10;
DEG = pi/180;
ARCSEC = pi/648000;

