fapid_sff_modwid2time.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_MODWID2TIME_CC_VERSION \
  "TF_FAPID_SFF_MODWID2TIME_CC   V1.0"

#include <fapidxx/fapidsff.h>
#include <fapidxx/wid2container.h>
#include <fapidxx/error.h>

int sff_modwid2time__(char *wid2line, integer *hour, integer 
        *minute, real *second, ftnlen wid2line_len)
{
  fapidxx::WID2container wid2c(wid2line, wid2line_len);
  libtime::TAbsoluteTime date(wid2c.wid2.date);
  wid2c.wid2.date=libtime::TAbsoluteTime(date.year(),
                                         date.month(),
                                         date.day());
  wid2c.wid2.date+=libtime::TRelativeTime(0,(*hour),(*minute))
    +libtime::double2time(double(*second));
  wid2c.encode(wid2line, wid2line_len);
  return 0;
} /* sff_modwid2time__ */

/* ----- END OF fapid_sff_modwid2time.cc ----- */