subroutine print_date(dummy,unit)
integer(4),dimension(8) :: dummy
integer :: unit
integer(4) :: year
integer(4) :: mese
integer(4) :: day
integer(4) :: h
integer(4) :: m
integer(4) :: s
integer(4) :: ms
character(len=9),parameter,dimension(12) :: month = (/ &
'January ', 'February ', 'March ', 'April ', &
'May ', 'June ', 'July ', 'August ', &
'September', 'October ', 'November ', 'December ' /)
year = dummy(1)
mese = dummy(2)
day = dummy(3)
h = dummy(5)
m = dummy(6)
s = dummy(7)
ms = dummy(8)
write(unit,"(A,i2,1x,a,1x,i4,2x,i2,a1,i2.2,a1,i2.2,a1,i3.3)")&
"Timestamp: +",day,trim(month(mese)),year, h,':',m,':',s,'.',ms
write(unit,*)""
end subroutine print_date