/*
 * Libraries and headers for PDC release 3.3 (C) 1989 Lionel Hummel.
 * PDC Software Distribution (C) 1989 Lionel Hummel and Paul Petersen.
 * PDC I/O Library (C) 1987 by J.A. Lydiatt.
 *
 * This code is freely redistributable upon the conditions that this
 * notice remains intact and that modified versions of this file not
 * be included as part of the PDC Software Distribution without the
 * express consent of the copyright holders.  No warrantee of any
 * kind is provided with this code.  For further information, contact:
 *
 *  PDC Software Distribution    Internet:                     BIX:
 *  P.O. Box 4006             or hummel@cs.uiuc.edu            lhummel
 *  Urbana, IL  61801-8801       petersen@uicsrd.csrd.uiuc.edu
 */

/* time.c - standard C time functions
 */

#include <time.h>
#include <math.h>


#if 0
double jday(t)
time_t *t;
#else
double jday(const time_t *t)
#endif
{
    /*  Julian date at epoch (12am Jan. 1, 1978) was 2,443,509.5 */
    return ( ((double) (*t)) / (60.0 * 60.0 * 24.0) + 2443509.5);
}


double difftime(t1, t0)
time_t t1, t0;
{
    return ((double) t1) - (double) t0;
}