sff_modwid2time__()

int sff_modwid2time__	(	char *	wid2line,
		integer *	hour,
		integer *	minute,
		real *	second,
		ftnlen	wid2line_len
	)

modify time of first sample in WID2 line

Description from stuff.f:

c----------------------------------------------------------------------
      subroutine sff_ModWid2time(wid2line, hour, minute, second)
c
c Just modify time-entry in WID2 line
c
c input:
c   hour, minute, second   new time 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_modwid2time.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(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__ */

Here is the call graph for this function: