This is an example of an inter-process mismatch or "drift".
Clearly, the test programs aren't being run (much).
I made some fields wider.
There might be a more f90 idiomatic way to do this.
See attached md file
This is an example of an inter-process mismatch or "drift".
Clearly, the test programs aren't being run (much).
I made some fields wider.
There might be a more f90 idiomatic way to do this.
```
diff --git a/lib/test_q65.f90 b/lib/test_q65.f90
index 598de976f..d36f69504 100644
--- a/lib/test_q65.f90
+++ b/lib/test_q65.f90
@@ -1,6 +1,6 @@
program test_q65
- character*84 cmd1,cmd2,line
+ character*86 cmd1,cmd2,line
character*22 msg
character*8 arg
character*1 csubmode
@@ -70,10 +70,10 @@ program test_q65
baud=12000.0/nsps
tsym=1.0/baud
-! 1 2 3 4 5 6 7
-! 1234567890123456789012345678901234567890123456789012345678901234567890123456'
- cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 0.0 1 60 100 -10.0 > junk0'
- cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A -Q 3 -f 1500 -X 32 *.wav > junk'
+! 1 2 3 4 5 6 7 8
+! 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456'
+ cmd1='q65sim "K1ABC W9XYZ EN37 " A 1500 5.0 0.0 0.0 1 60 100 5 -10.0 > junk0'
+ cmd2='jt9 -3 -p 15 -L 300 -H 3000 -d 3 -b A -Q 333 -f 1500 -X 32 *.wav > junk1'
write(cmd1(10:33),'(a)') '"'//msg//'"'
cmd1(35:35)=csubmode
@@ -87,8 +87,8 @@ program test_q65
write(cmd2(11:13),'(i3)') ntrperiod
write(cmd2(33:35),'(i3)') ndepth
- write(cmd2(45:45),'(i1)') nQSOprogress
- write(cmd2(50:53),'(i4)') nf0
+ write(cmd2(45:47),'(i3)') nQSOprogress
+ write(cmd2(52:55),'(i4)') nf0
cmd2(40:40)=csubmode
call system('rm -f *.wav')
@@ -112,12 +112,12 @@ program test_q65
nfalse=0
naptype=0
ndecn=0
- write(cmd1(72:76),'(f5.1)') snr1
+ write(cmd1(72:78),'(f5.1)') snr1
call system(cmd1)
call sec0(0,tdec)
call system(cmd2)
call sec0(1,tdec)
- open(10,file='junk',status='unknown')
+ open(10,file='junk1',status='unknown')
n=0
snrsum=0.
snrsq=0.
```
_______________________________________________
wsjt-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wsjt-devel
