From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 noao/imred/vtel/d1900.x | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 noao/imred/vtel/d1900.x

(limited to 'noao/imred/vtel/d1900.x')

diff --git a/noao/imred/vtel/d1900.x b/noao/imred/vtel/d1900.x
new file mode 100644
index 00000000..7af25a4b
--- /dev/null
+++ b/noao/imred/vtel/d1900.x
@@ -0,0 +1,15 @@
+# D1900 -- Function to return the number of days since the turn of the
+# century.
+
+int procedure d1900 (month, day, year)
+
+int	month, day, year		# m,d,y of date
+
+int	mac[12]
+data	mac/0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334/
+
+begin
+	d1900 = 365 * year + (year - 1) / 4 + mac[month] + day
+	if (month >= 3 && mod(year,4) == 0)
+	    d1900 = d1900 + 1
+end
-- 
cgit