!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/util/lib_date/caldatw.for $

!$Header: /weru/cvs/weps/weps.src/util/date/caldatw.for,v 1.2 2002-09-04 20:22:17 wagner Exp $

      subroutine   caldatw (dd, mm, yyyy)

!     + + + PURPOSE + + +
!     a wrapper for the caldat routine, so that the julian day does not
!     need to be passed in. 

!     + + + KEYWORDS + + +
!     date, utility

!     + + + ARGUMENT DECLARATIONS + + +
      integer   dd, mm, yyyy

!     + + + ARGUMENT DEFINITIONS + + +
!     mm     - integer value of mm in the range 1-12
!     dd     -                  dd in the range 1-31
!     yyyy   -                  yyyy (negative A.D., positive B.C.)

      call caldat (-1, dd, mm, yyyy)

      return ! astronomical Gregorian date
      end