subroutine datime(dbuf,tbuf)
c--   subroutine date and time
c--   calls date and time inclued here as they may be machine dependent
c--alpha
c      character Istart_date*9,Iend_date*9,Istart_time*8,Iend_time*8
c
c      call date_and_time(Istart_date) ! get date vms
c--hp ux
      character dbuf*9,tbuf*8
c
      print*, ' datime : date et time  a programmer '
c      call date(dbuf)
c      call time(tbuf)

      return
      end