w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-05 19:08:38 -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)
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)
#target_link_libraries (allsim wsjt_fort wsjt_cxx)

6
lib/testfast9.f90
View File

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