w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-15 21:12:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Trivial updates to testfast9.f90, for distributiion to G4JNT.

Browse Source
This commit is contained in:
Joe Taylor 2022-09-28 10:18:42 -04:00
parent ca4fac2fd0
commit f9423aa6d4
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
CMakeLists.txt
View File

@ -1153,6 +1153,9 @@ target_link_libraries (q65_ftn_test wsjt_fort wsjt_cxx)
add_executable (jt49sim lib/jt49sim.f90) add_executable (jt49sim lib/jt49sim.f90)
target_link_libraries (jt49sim wsjt_fort wsjt_cxx) target_link_libraries (jt49sim wsjt_fort wsjt_cxx)
add_executable (testfast9 lib/testfast9.f90)
target_link_libraries (testfast9 wsjt_fort wsjt_cxx)
#add_executable (allsim lib/allsim.f90) #add_executable (allsim lib/allsim.f90)
#target_link_libraries (allsim wsjt_fort wsjt_cxx) #target_link_libraries (allsim wsjt_fort wsjt_cxx)

6
lib/testfast9.f90
View File

@ -1,6 +1,6 @@
program testfast9 program testfast9
parameter (NMAX=359424) parameter (NMAX=30*12000)
integer*2 id2(NMAX) integer*2 id2(NMAX)
integer narg(0:11) integer narg(0:11)
character*80 line(100) character*80 line(100)
@ -8,8 +8,8 @@ program testfast9
nargs=iargc() nargs=iargc()
if(nargs.ne.2) then if(nargs.ne.2) then
print*,'Usage: testfast9 submode infile' print*,'Usage: testfast9 submode infile'
print*,'Example: testfast9 E /data/VE1SKY/K1JT/JT9E/150806_123300.wav' print*,'Example: testfast9 E 150806_123300.wav'
go to 999 go to 999
endif endif
call getarg(1,submode) call getarg(1,submode)