! $Id$
program date_test

   use date_tools_mod
   use w1_mod
   use w2_mod
   
   
   type(date_type) :: d1
   type ( sat_type)::sat
   
   call d1 % set_date( year=2013)
   call d1 % print_data
   print*,d1 % date_string ( 'yymmdd')
   print*,'================================================'
   call sat  % init_sat ()
   call w1_main()
   call w2_main()
   
   


end program date_test