_RL tmpVar, sumVar1, sumVar2
sumVar2 = 0.
sumVar2 = sumVar2 + tmpVar
IF ( sumVar2.GT.vol_Epsil )
& INT(sumVar1),sumVar2/sumVar1,vol_Epsil