yds2unix.c

Go to the documentation of this file.

#include <timeutils.h>
 
/* -------------------------------------------------------------- */
/* yds2unix() - converts year and day of year to secs since 1/1/70 */
 
/* -------------------------------------------------------------- */
double yds2unix(int16_t year, int16_t day, double secs) {
    double usec;
    struct tm trec;
    time_t secSince;
 
    /*                                                  */
    /* calculate seconds from 1/1/70 to input year, day */
    /* and correct to GMT                               */
    /*                                                  */
    trec.tm_year = year - 1900;
    trec.tm_mon = 0;
    trec.tm_mday = day;
    trec.tm_hour = 0;
    trec.tm_min = 0;
    trec.tm_sec = 0;
    trec.tm_isdst = 0;
    secSince = mktime(&trec) - gmt_offset();
 
    /*                                                  */
    /* Now we total the seconds                         */
    /*                                                  */
    usec = secSince + secs;
 
    return usec;
}
 
/* make a FORTRAN function */
double yds2unix_(int16_t *year, int16_t *day, double *secs) {
    return ( yds2unix(*year, *day, *secs));
}