DOUBLE PRECISION mass,width,Ep,lum DOUBLE PRECISION Q0,bslope,f2o4pi,rho0 real spin COMMON/GLOBAL/mass,width,lum,Ep,Q0, $bslope,f2o4pi,rho0,spin