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