mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-29 15:48:38 -05:00
7 lines
164 B
Fortran
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
|