w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 08:31:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

Still working on getting c++/fortran interface right.

Browse Source
This commit is contained in:
Steve Franke 2018-07-06 18:14:56 -05:00
parent 7f85f8983d
commit 5948b671eb
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/genft8.f90
View File

@ -1,4 +1,4 @@
subroutine genft8(msg37,mygrid,bcontest,i3,n3,isync,msgsent37,msgbits,itone) subroutine genft8(msg37,mygrid,bcontest,i3,n3,isync,msgsent37,msgbits77,itone)
! Encode an FT8 message, producing array itone(). ! Encode an FT8 message, producing array itone().

1
lib/ft8/genft8_174_91.f90
View File

@ -2,7 +2,6 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
! Encode an FT8 message, producing array itone(). ! Encode an FT8 message, producing array itone().
use packjt
use packjt77 use packjt77
include 'ft8_params.f90' include 'ft8_params.f90'
character msg*37,msgsent*37 character msg*37,msgsent*37