From 8b2a66513849b78c2a6e9d8a8581e46d15955efc Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Wed, 9 Mar 2016 22:39:13 +0000 Subject: [PATCH] Update argument list for JT65 callback in command line jt65 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6514 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/jt65_test.f90 | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/jt65_test.f90 b/lib/jt65_test.f90 index 29ff5ea30..00381d3cd 100644 --- a/lib/jt65_test.f90 +++ b/lib/jt65_test.f90 @@ -37,7 +37,7 @@ contains end subroutine test subroutine my_callback (this, utc, sync, snr, dt, freq, drift, decoded & - , ft, qual) + , ft, qual, smo, sum, minsync, submode, aggression) use jt65_decode implicit none @@ -51,6 +51,11 @@ contains character(len=22), intent(in) :: decoded integer, intent(in) :: ft integer, intent(in) :: qual + integer, intent(in) :: smo + integer, intent(in) :: sum + integer, intent(in) :: minsync + integer, intent(in) :: submode + integer, intent(in) :: aggression write(*,1010) utc,snr,dt,freq,decoded 1010 format(i4.4,i4,f5.1,i5,1x,'#',1x,a22)