mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 10:06:11 -05:00
16 lines
318 B
Fortran
16 lines
318 B
Fortran
|
program makedate
|
||
|
|
|
||
|
|
#ifdef Win32
|
||
|
|
use dfport
|
||
|
|
#endif
|
||
|
|
|
||
|
|
open(10,file='makedate_sub.f90',status='unknown')
|
||
|
|
write(10,*) 'subroutine makedate_sub(isec)'
|
||
|
|
write(10,*) '!f2py intent(out) isec'
|
||
|
|
write(10,*) ' isec=',time()
|
||
|
|
write(10,*) ' return'
|
||
|
|
write(10,*) 'end subroutine makedate_sub'
|
||
|
|
|
||
|
|
end program makedate
|
||
|
|
|