!$Id$
module w1_mod
use date_tools_mod

type sat_type

   type (date_type) :: date1
   
contains
   procedure :: init_sat

end type sat_type



contains

subroutine init_sat ( this )
   class ( sat_type ) :: this
   
   print*, this % date1 % date_string ('yymmdd') 

end subroutine init_sat


subroutine w1_main
   type(date_type) :: d2
   print*,'hallo'
   call d2 % set_date ( month =11)
   call d2 % print_data
   print*,d2 % date_string ( 'yy/mm/dd')
end subroutine w1_main


end module w1_mod