/* == is yr a leap year == */

int IsLeapYear(int Year)
/* Return SUCCESS if Year is a leap year,
 FAIL otherwise */
{
  if ((Year % 4 == 0) && (Year % 4000 != 0) &&
      ((Year % 100 != 0) || (Year % 400 == 0)))
    return(SUCCESS);
  return(FAIL);
}