c$Header: /weru/cvs/climate/wind_gen/src/libf/difdat.for,v 1.1 1999-04-12 19:49:47 ffa Exp $
c
      integer   function   difdat
     i                    (d1, m1, yyy1, d2, m2, yyy2)
c     + + + PURPOSE + + +
c     Two dates are passed to this function and the number of days between
c     them is returned. The important thing to remember here is that the
c     first date is subtracted _from_ the second. 
c     Example:
c        d1 m1 yyy1    d2 m2 yyy2   returns   meaning
c        01 01 1992    02 01 1992   1         1 day from 01/01/1992 it will
c                                             be 02/01/1992
c        02 01 1992    01 01 1992   -1        -1 day from 02/01/1992 (or 1
c                                             day ago) it was 01/01/1992
c
c     + + + KEYWORDS + + +
c     date, utility
c
c     + + + ARGUMENT DECLARATIONS + + + 
      integer d1, m1, yyy1, d2, m2, yyy2
c
c     + + + ARGUMENT DEFINITIONS + + +
c     d1     - day 
c     m1     - month
c     yyy1   - year
c     d2     - day
c     m2     - month
c     yyy2   - year
c
c     + + + FUNCTION DECLARATIONS + + +
      integer julday
c
c     + + + END SPECIFICATIONS + + +
c
      difdat=julday (d2, m2, yyy2)-julday (d1, m1, yyy1)
      return
      end
c
c$Log: not supported by cvs2svn $
cRevision 1.1.1.1  1999/03/12 17:05:31  wagner
cBaseline version of WEPS with Bill Rust's modifications
c
c Revision 1.1.1.1  1995/01/18  04:20:06  wagner
c Initial checkin
c
c Revision 2.1  1992/03/27  17:22:53  wagner
c Version 2 code.
c