mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-06 01:11:18 -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
|