Summary

###########################################################################

	File:     calendat.icn

	Subject:  Procedure to get date from Julian Day Number

	Author:   Ralph E. Griswold

	Date:     September 6, 1992

	Modified: Bruce Rennie

	Date:     August 7, 2020

###########################################################################

   This file is in the public domain.

###########################################################################

  calendat(j) return a record with the month, day, and year corresponding
  to the Julian Date Number j.

  As the former contents of this file were a direct extract from the IPL
  file datetime.icn, replace the code with a link to datetime.

  record date1(month, day, year)
  procedure calendat(julian)

###########################################################################

  Acknowledgement:  This procedure is based on an algorithm given in
  "Numerical Recipes; The Art of Scientific Computing"; William H. Press,
  Brian P. Flannery, Saul A. Teukolsky. and William T. Vetterling;
  Cambrdayge University Press, 1986.

###########################################################################

This file is part of the (main) package.