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