mirror of https://github.com/saitohirga/WSJT-X.git
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
|
|
|