WSJT-X/lib/ft2/cdatetime.f90

mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-31 13:10:19 -04:00
character*17 function cdatetime()
  character cdate*8,ctime*10
  call date_and_time(cdate,ctime)
  cdatetime=cdate(3:8)//'_'//ctime
  return
end function cdatetime
Add a missing file; tweak the FT2 decoder. 2019-01-18 12:33:45 -05:00			`character*17 function cdatetime()`
			`character cdate8,ctime10`
			`call date_and_time(cdate,ctime)`
			`cdatetime=cdate(3:8)//'_'//ctime`
			`return`
			`end function cdatetime`