C+
C NAME:
C	fortime
C PURPOSE:
C	Include file for fortime.f library
C CATEGORY:
C	gen/for/h
C CALLING SEQUENCE:
C	include		'fortime.h'
C PROCEDURE:
C	Julian days are sometimes specified after subtracting some large
C	offset e.g. NBIG = 2400000, 2440000 or 2450000
C
C	The corresponding time origin is [-2451545+NBIG,43200000], i.e.
C		T0=[-51545,43200000] for NBIG = 2400000
C		T0=[-51544,       0] for NBIG = 2400000.5 (Modified Julian Day)
C		T0=[-11545,43200000] for NBIG = 2440000
C		T0=[-11544,       0] for NBIG = 2440000.5
C		T0=[- 1545,43200000] for NBIG = 2450000
C		T0=[- 1544,       0] for NBIG = 2450000.5
C MODIFICATION HISTORY:
C	NOV-2003, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	! # fractional units for days supported by code

	integer		 TIME__UNIT_N
	parameter	(TIME__UNIT_N=7)

	! # units per day

	integer		 TIME__HOURS_IN_DAY
	parameter	(TIME__HOURS_IN_DAY=24)

	integer		 TIME__MINUTES_IN_DAY
	parameter	(TIME__MINUTES_IN_DAY=1440)

	integer		 TIME__SECONDS_IN_DAY
	parameter	(TIME__SECONDS_IN_DAY=86400)

	integer		 TIME__DSEC_IN_DAY
	parameter	(TIME__DSEC_IN_DAY=864000)

	integer		 TIME__CSEC_IN_DAY
	parameter	(TIME__CSEC_IN_DAY=8640000)

	integer		 TIME__MSEC_IN_DAY
	parameter	(TIME__MSEC_IN_DAY=86400000)

	!integer	 TIME__4SEC_IN_DAY
	!parameter	(TIME__4SEC_IN_DAY=864000000)

	! Define a couple of convenient time origins

	! The absolute time origin 2000 Jan 1.0

	integer		 TIME__2000_DAY
	parameter	(TIME__2000_DAY=0)

	integer		 TIME__2000_SMALL
	parameter	(TIME__2000_SMALL=0)

	integer		 TIME__2000_UNITS
	parameter	(TIME__2000_UNITS=TIME__MSEC_IN_DAY)

	! Julian day 2451545.0 = Jan 1.5, 2000 (noon)
	! Julian days are time relative to T0=[-2451545,12]

	integer		 TIME__JD_DAY
	parameter	(TIME__JD_DAY=-2451545)

	integer		 TIME__JD_SMALL
	parameter	(TIME__JD_SMALL=43200000)

	integer		 TIME__JD_UNITS
	parameter	(TIME__JD_UNITS=TIME__MSEC_IN_DAY)

	! Modified Julian Day
	! Modified Julian days are time relative to T0=[-51544,0]
	! MJD = JD-2400000.5
	
	integer		 TIME__MJD_DAY
	parameter	(TIME__MJD_DAY=-51544)

	integer		 TIME__MJD_SMALL
	parameter	(TIME__MJD_SMALL=0)

	integer		 TIME__MJD_UNITS
	parameter	(TIME__MJD_UNITS=TIME__MSEC_IN_DAY)

	! Time origin is initialized to 2000, 1 Jan, 0 UT

	integer		TIME__ORIGIN(3)
	common		/TIME__ORIGIN_SAVE/ TIME__ORIGIN