sff_modwid2date__()

int sff_modwid2date__	(	char *	wid2line,
		integer *	year,
		integer *	month,
		integer *	day,
		ftnlen	wid2line_len
	)

modify date of first sample in WID2 line

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_ModWid2date(wid2line, year, month, day)
c
c Just modify date-entry in WID2 line
c
c input:
c   year, month, day       new date to set
c input and output:
c   wid2line               modified WID2 line
c
c no default setting are allowed
c----------------------------------------------------------------------

Definition at line 61 of file fapid_sff_modwid2date.cc.

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

{
  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__ */

Here is the call graph for this function: