CalculateRLevel1 function

CalculateRLevel1