C+
C NAME:
C	TIMECOORDINATES
C RESTRICTIONS:
C	Contains executable statements
C PROCEDURE:
C	This include file contains the time coordinates to use to 
C	convert Carrington variable to time from beginning of observations
C-
	XCtfrac(I)= 1.*(I-1)/nT1
        XCtvar(X) = 1+sngl(X-XCtbeg)/sngl(XCtend-XCtbeg)*nT1	! CV -> time interval
	XCtfull(I)= XCtbeg + XCtfrac(I)*(XCtend-XCtbeg)

	Itvar(X) = max(1,min(nT,nint(X)))	! time interval -> longitude interval index 

	TC  = 2.2756158e-4			! 1/Light travel speed in AU/CR
	TCD = 5.7755342e-3			! 1/Light travel speed in AU/Day

	nT1 = nT-1