! $Id$
module w2_mod
use date_tools_mod
contains
subroutine w2_main
type(date_type) :: d2
print*,'hallo'
call d2 % set_date ( month =7, day =7, hour = 13)
call d2 % print_data
print*,d2 % date_string ( 'yy/mm/dd')
end subroutine w2_main


end module w2_mod