NCEPLIBS-w3emc/ver-2.11.0/w3movdat_8f_source.html

       subroutine w3movdat(rinc,idat,jdat)


       real rinc(5)

       integer idat(8),jdat(8)

       real rinc1(5),rinc2(5)

 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

 !  add the interval to the input time of day and put into reduced form

 !  and then compute new date using julian day arithmetic.

       rinc1(1)=rinc(1)

       rinc1(2:5)=rinc(2:5)+idat(5:8)

       call w3reddat(-1,rinc1,rinc2)

       jldayn=iw3jdn(idat(1),idat(2),idat(3))+nint(rinc2(1))

       call w3fs26(jldayn,jdat(1),jdat(2),jdat(3),jdow,jdoy)

       jdat(4)=idat(4)

       jdat(5:8)=nint(rinc2(2:5))

 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

       end

iw3jdn
function iw3jdn(IYEAR, MONTH, IDAY)
Computes julian day number from year (4 digits), month, and day.
Definition: iw3jdn.f:42

w3fs26
subroutine w3fs26(JLDAYN, IYEAR, MONTH, IDAY, IDAYWK, IDAYYR)
Computes year (4 digits), month, day, day of week, day of year from julian day number.
Definition: w3fs26.f:56

w3movdat
subroutine w3movdat(rinc, idat, jdat)
This subprogram returns the date and time that is a given NCEP relative time interval from an NCEP ab...
Definition: w3movdat.f:24

w3reddat
subroutine w3reddat(it, rinc, dinc)
This subprogram reduces an ncep relative time interval into one of seven canonical forms,...
Definition: w3reddat.f:86