w3difdat.f

Go to the documentation of this file.

 
 
      subroutine w3difdat(jdat,idat,it,rinc)
      integer jdat(8),idat(8)
      real rinc(5)
      real rinc1(5)
!  difference the days and time and put into canonical form
      rinc1(1)=iw3jdn(jdat(1),jdat(2),jdat(3))-
     &         iw3jdn(idat(1),idat(2),idat(3))
      rinc1(2:5)=jdat(5:8)-idat(5:8)
      call w3reddat(it,rinc1,rinc)
! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      end