WSJT-X/lib/ft2/cdatetime.f90
2019-01-18 12:33:45 -05:00

7 lines
164 B
Fortran

character*17 function cdatetime()
character cdate*8,ctime*10
call date_and_time(cdate,ctime)
cdatetime=cdate(3:8)//'_'//ctime
return
end function cdatetime