mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-27 08:36:36 -04: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
|