Return to titojd.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / misc

coherent

/*
 * Convert COHERENT time into julian date
 */
#include "time.h"
#include "local_misc.h"
jday_t
time_to_jday(t)
time_t t;
{
	jday_t jd;
	jd.j_s = (t += 86400L/2) % 86400L;
	jd.j_d = (t / 86400L) + COHEPOCH;
	return jd;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.