sff_modwid2shift__()

int sff_modwid2shift__	(	char *	wid2line,
		real *	tmin,
		real *	tsec,
		ftnlen	wid2line_len
	)

shift time of first sample in WID2 line

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_ModWid2shift(wid2line, tmin, tsec)
c
c Change time and date of first sample by adding tmin minutes
c and tsec seconds
c
c input:
c   tmin        minutes to add
c   tsec        seconds to add
c input and output:
c   wid2line    string to change
c----------------------------------------------------------------------

Definition at line 62 of file fapid_sff_modwid2shift.cc.

References fapidxx::WID2container::encode(), and fapidxx::WID2container::wid2.

{
  fapidxx::WID2container wid2c(wid2line, wid2line_len);
  libtime::TAbsoluteTime date(wid2c.wid2.date);
  double tshift=double(*tsec)+60.*double(*tmin);
  if (tshift < 0.)
  { wid2c.wid2.date-=libtime::double2time(-tshift); }
  else
  { wid2c.wid2.date+=libtime::double2time(tshift); }
  wid2c.encode(wid2line, wid2line_len);
  return 0;
} // int sff_modwid2shift__

Here is the call graph for this function: