fapid_sff_prepwid2.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_PREPWID2_CC_VERSION \
  "TF_FAPID_SFF_PREPWID2_CC   V1.0   "

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

int sff_prepwid2__(integer *nsamp, real *samprat, char *station, 
                   integer *year, integer *month, integer *day,
                   integer *hour, integer *minute, char *comp,
                   char *auxid, char *instyp, real *second, real *calib,
                   real *calper, real *hang, real *vang, char *wid2line,
                   integer *ierr, ftnlen station_len, ftnlen comp_len,
                   ftnlen auxid_len, ftnlen instyp_len, ftnlen wid2line_len)
{
  ::sff::WID2 wid2;
  wid2.nsamples= *nsamp;
  wid2.dt      = 1./(*samprat);
  wid2.station =fapidxx::stringfromfstring(station, station_len);
  double dsecond=*second;
  libtime::timeint isecond=static_cast<libtime::timeint>(std::floor(dsecond));
  libtime::timeint milsec
    =static_cast<libtime::timeint>(std::floor(1.e3*dsecond));
  libtime::timeint micsec
    =static_cast<libtime::timeint>(std::floor(1.e6*dsecond));
  milsec -= 1000*isecond;
  micsec -= 1000*(milsec+1000*isecond);
  libtime::TAbsoluteTime date(*year, *month, *day, *hour, *minute,
                              isecond, milsec, micsec);
  wid2.date    =date;
  wid2.channel =fapidxx::stringfromfstring(comp, comp_len);
  wid2.auxid   =fapidxx::stringfromfstring(auxid, auxid_len);
  wid2.instype =fapidxx::stringfromfstring(instyp, instyp_len);
  wid2.calib   = *calib;
  wid2.calper  = *calper;
  wid2.hang    = *hang;
  wid2.vang    = *vang;
  fapidxx::WID2container wid2c(wid2);
  wid2c.encode(wid2line, wid2line_len);
  *ierr=0;
  return(0);
} // int sff_prepwid2__

/* ----- END OF fapid_sff_prepwid2.cc ----- */