program dt
 use mkinds
 use mdates

character(10) :: cdtg
real(r4)      :: stime
integer(i4)   :: iyear,day,ihour

!call date_and_time(cdtg)
!cdtg="20070101"
call getarg(1,cdtg)
call CDATE2WNDAY(stime,cdtg)
!stime=stime-3.0
call wday2cdtghh(stime,cdtg)
call forday(stime,iyear,day,ihour)
print *, cdtg
print *, int(stime)
print *, iyear
print *, day
print *, ihour

end program