Create calcSingleRSun