real rradius,rr,rg,rcpp
      common/comcstphy/rradius,rr,rg,rcpp