c$Header: /weru/cvs/weps/weps.src/util/date/mvdate.for,v 1.1.1.1 1999-03-12 17:05:31 wagner Exp $
c
      subroutine   mvdate
     i                              (delta, dd, mm, yyyy,
     o                               nday, nmonth, nyear)
c     + + + PURPOSE + + +
c     Compute a date which is delta number of days before or after the
c     date that is passed.
c
c     + + + KEYWORDS + + +
c     date, utility
c
c     + + + ARGUMENT DECLARATIONS + + + 
      integer delta, dd, mm, yyyy, nday, nmonth, nyear
c
c     + + + ARGUMENT DEFINITIONS + + +
c     delta  - positive or negative integer indicating number of days
c     dd     - day   -\
c     mm     - month   >-- passed in parameters. WILL NOT CHANGE
c     yyyy   - year  -/
c
c     nday   - day   -\
c     nmonth - month   >-- results are shipped out in here
c     nyear  - year  -/
c
c     + + + SUBROUTINES CALLED + + +
c     caldat
c
c     + + + FUNCTION DECLARATIONS + + +
      integer julday
c
c     + + + END SPECIFICATIONS + + +
c
      call caldat ((julday (dd, mm, yyyy)+delta), nday, nmonth, nyear)
      end
c
c$Log: not supported by cvs2svn $
c Revision 1.1.1.1  1995/01/18  04:20:07  wagner
c Initial checkin
c
c Revision 2.1  1992/03/27  17:22:53  wagner
c Removed extraneous assignments to nday,
c nmonth, and nyear which were made before
c caldat was called.
c
c Version 2 code.
c