_RL StartingYear, EndingYear
& StartingYear, EndingYear,
EndingYear = 2000.
do year = StartingYear, EndingYear
IF( CurrentYear.gt. EndingYear .or.