fapid_sff_modwid2date.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_MODWID2DATE_CC_VERSION \
  "TF_FAPID_SFF_MODWID2DATE_CC   V1.0"

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

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

/* ----- END OF fapid_sff_modwid2date.cc ----- */